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. NOB IN 

;KS10 MICROCODE PARAMETER FILE 

; PARAMETER FILE DEFINITIONS FOR T10KL 
;T0PS-1O KL PAGING MICROCODE (V7. 03) 



.SET/INHCST=1 
. SET/UBABLT= 1 
. SET/KIPAGE=0 
.SET/N0NSTD=1 



ALLOW INHIBIT OF CST UPDATE IF CSB = 
SUPPORT UBABLT INSTRUCTIONS 
REMOVE KI PAGING (REQUIRED FOR UBABLT) 
FOR NOW, GALL THIS VERSION NGN - STANDARD 



13 
14 
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15 .NOBIN 

16 . TITLE "KS10 MICROCODE V124, 27-JUL-84" 
17 

18 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

19 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

20 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 



21 ; ; ; 

22 ; ; ; 

23 ; ; ; COPYRIGHT (C) 1976,1977,1978,1979,1980,1981,1982, 

24 ; ; ; 1984 

25 ; ; ; DIGITAL EQUIPMENT CORP., MAYNARD , MASS. 

26 ; ; ; 

27 ;;; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE 

28 ;;; ONLY ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED 

29 ;;; ONLY WITH THE INCLUSION OF THE ABOVE COPYRIGHT 

30 ;;; NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES THEREOF, 

31 ; ; ; MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO 

32 ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND 

33 ;;; TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE TO 

34 ;;; AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES 

35 ; ; ; REMAIN IN DEC. 

36 ; ; ; 

37 ;;; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO 

38 ; ; ; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS 

39 ;;; A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.' 

40 ; ; ; 

41 ;;; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR 

42 ;;; RELIABILITY OF ITS SOFTWARE IN EQUIPMENT WHICH IS 

43 ;;; ' NOT SUPPLIED BY DEC. 

44 ; ; ; 

45 ;;; DESIGNED AND WRITTEN BY: 

46 ; ; ; DONALD A. LEWINE 

47 ; ; ; DIGITAL EQUIPMENT CORP. 

48 ; ; ; MARLBORO, MASS. 

49 ; ; ; MR1-2/E47 X6430 

50 ; ; ; 

51 ;;; MAINTAINED AND ENHANCED BY: 

52 ; ; ; DONALD D. DOSSA 

53 ;;; DIGITAL EQUIPMENT CORP. 

54 ; ; ; MARLBORO, MASS. 

55 ;;; MR1-2/E18 DTN 231-4138 

56 ; ; ; 

57 ; ; ; SEAN KEENAN 

58 ; ; ; DIGITAL EQUIPMENT CORP. 

59 ; ; ; MARLBORO, MASS. 

60 ;;; MR1-2/E18 DTN 231-4463 

61 ; ; ; 

62 ; ; ; TIM LITT 

63 ;;; PK01/C-2 223-6334 

64 ; ; ; 

65 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

66 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 

67 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;:;;;;;;;;;;;;;;■;;;;;;;;; 
68 
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; 69 .TOC "REVISION HISTORY" 

; 70 

; 71 ;REV WHY 

; 72 ;1 START KS10 MICROCODE BASED ON SM10 MICROCODE VERSION 510 

; 73 ;2 UPDATE TO KS10 VERSION 512 . 

; 74 ;3 FIX SOME DEFAULTS 

; 75 ;4 CHANGE HARDWARE TO MATCH ECO #215 

; 76 ;5 START TO UPDATE 10 MICROCODE 

; 77 ;6 MORE WORK ON 10 

; 78 ;7 MAKE INTERRUPT THE 8080 BE A PULSE. 

; 79 ;10 ADD NEW RDIO AND WRIO 

; SO ;11 FIX PROBLEMS IN MUUO CODE & CORRECT T-FIELDS 

; 81 ;12 FIX PROBLEMS IN DDIV 

; 82 ; 13 FIX UP PROBLEMS IN PI " * 

5 ; 83 ;14 TURN ON WRITE FOR FL-EXIT 

% ; 84 ; 15 FIX UP MAP INSTRUCTION 

- ; 85 ;16 MORE WORK ON KI -STYLE MAP 

| ; 86 ;17 INVERT HOLD RIGHT AND HOLD LEFT BITS 

; 87 ;20 FIXUP WRIO & RDIO EFFECTIVE ADDRESS CALC. 

I ; 88 ;21 FIX EDIT 15 ' 

I ; 89 ;22 HAVE LSH USE FAST SHIFT HARDWARE 

i ; 90 ;23 FIX T-FIELD VALUES FOR PRODUCTION HARDWARE 

I ; 91 ;24 REMOVE WRITE TEST FROM 10 READS & WRITES 

1 ; 92 ;25 REWRITE MUL & MULI TO BE FASTER AND SMALLER. ALSO MAKE ADJBP 

t ; 93 ; USE NEW MULSUB- 

1 ; 94 ;26 MAKE BYTES USE FAST SHIFT ECO. 

1 ; 95 ;27 MAKE SURE VMA FETCH IS CORRECT 

s ; 96 ;30 MORE OF 25 (FORGOT FMP) 

! ; 97 ;31 FIX SOME PROBLEMS WITH TRAPS 

f ; 98 ;32 SPEED UP EFFECTIVE ADDRESS CALCULATION 

1 ; 99 ;33 MORE OF 32 

| ; 100 ;34 SPEED UP ASH & ROT 

2 ; 101 ;35 FIX UP RDTIM SO THAT TIME DOES NOT GO BACKWARDS 
I ; 102 ;36 MORE OF 35 

1 ; 103 ;37 FIX UP PROBLEMS WITH INTERRUPTS AND DOUBLE F. P. 
§ ; 104 ;40 IMPROVE LISTING FORMAT 

2 ; 105 ;41 SPEEDUP KL-MODE PAGE REFILL , 
| ; 106 ;42 FIX UP DDIV 

* ; 107 ;43 STILL MORE DDIV STUFF 

; 108 ;44 CORRECT PROBLEMS IN D.P. PARITY STUFF 

; 109 ;45 CORRECT THE BLT CLEAR-CORE CASE TO INTERRUPT CORRECTLY 

; HO ;46 MORE OF 45 

; 111 ;47 DO NOT ALLOW SOFTWARE INTERRUPTS IF THE PI LEVEL IS NOT 

; 112 ; ACTIVE. 

; 113 ;50 MAKE FDV WORK THE SAME AS THE KL10 

; 114 ;51 FIX INTERRUPT IN CVTBDX. MAKE ABORT WORK LIKE SPEC. 

; 115 ;52 FIX BUG IN HALT LOOP 

; 116 ;53 FIX IOEA TO WORK IF NO @ OR INDEXING 

; 117 ;54 'EDIT 47 BROKE UEN 

; 118 ;55 FIX FLAGS IN MULTIPLY. ALSO CODE BUMS 

; 119 ;56 MORE CODE BUMS 

; 120 ;57 CORRECT OVERFLOW TRAPS WHICH DO MUUOS TO NOT STORE 

;. 121 ; THE TRAP FLAGS. 

; 122 
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123 ;60 CORRECT TRAPS SO THAT DSKEA RUNS RIGHT 

124 ;61 MORE OF 60. NOTE: MICROCODE REQUIRES ECO #299!! 

125 ;62 ONE MORE TRY AT EDIT 60. 

126 ;63 CORRECT TOPS-10 STYLE PAGING SO THAT A WRITE VIOLATION SETS 

127 ; BIT 2 IN THE PAGE FAIL WORD (ACCESS ALLOWED). 

128 ;64 EDIT 63 BROKE HARD PAGE FAILS. ( NXM , BAD DATA, AND 10 NXM) 

129 ;65 INTERRUPTS OUT OF MOVSRJ INSTRUCTIONS DO STRANGE THINGS. 

130 ;66 10 NXM PAGE FAIL FOR MISSING UBA GIVES PC+1 IN PAGE FAIL BLOCK. 

131 ;67 ON A BAD DATA ERROR, STORE THE BAD WORD IN AC BLOCK 7 WORD O AND 

132 1 

133 ;70 FIX A BUG WHICH CAUSED INTERRUPTS OUT OF CVTBDT TO GENERATE A BAD 

134 ; ANSWER. 

1-35 ;71 CLEANUP SOME THINGS' TO MAKE LIFE EASIER FOR FIELD SERVICE 

136 ;72 LOOK FOR 1-MS TRAP ON @ PAQE POINTERS AND ABORT REFILL IF 

137 ; SET. 

138 ;73 CORRECT EDIT 72. 

139 ;74 EDIT 67 GENERATES A DATA PATH PARITY ERROR BECAUSE OF THE BAD 

140 ; DATA. CORRECT TO NOT CHECK PARITY. 

141 ; ALSO CHANGE POP TO TIE UP BUS LESS. 

142 ;75 EDIT 60 BROKE TRAPS. MISSING =0 AT TRAP:. 

143 ;76 CORRECT BUG IN DFAD AND DFSB 

144 ;77 FIX PROBLEM SEEN IN SOME (ALL BUT ENGINEERING?) MACHINES CAUSED 

145 ; BY EDIT 76 

146 ;100 CHANGE DFAD/DFSB TO HAVE 2 MORE GUARD BITS. THIS SHOULD PRODUCE 

147 ; KL10 ANSWERS FOR ALL NORMALIZED INPUTS 

148 ; ALSO FIX A BUG IN CVTBDX PAGE FAIL LOGIC. 

149 ;101 DFDV OF 0.0 / -0.5 HANGS THE MACHINE 

150 ; 102 FIX CHOPPED FLOATING POINT INSTRUCTIONS 

151 ; 1C3 CORRECT DFDV ROUNDING BUG. 

152 ; 104 CORRECT PROBLEMS IN DFMP 

153 ; 105 RDTIME SOMETIMES GIVES WRONG ANSWER. CARRY BETWEEN 

154 ; WORDS GETS LOST SOMETIME. 

155 ; 106 MOVEM (ALSO, SETZM, SETOM, ETC.) SOMETIMES DOES NOT GENERATE 

156 ; A WRITE-TRAP IN 100% OF THE CASES THAT IT SHOULD. 

157 ; 107 PXCT 14, DOES NOT GET THE INDEX REGISTER IN THE PREVIOUS 

158 ; CONTEXT ALL THE TIME. 

159 ;110 FIX TYPO IN EDIT 103 

160 ; 1 1 1 63. BIT BYTES DO NOT WORK CORRECTLY. DSKDA FAILS BECAUSE OF THIS 

161 ; PROBLEM. 

162 ;******* VERSION 111 WENT OUT WITH SYSTEM REV 2 ******* 
163 

164 ; 1 12 FIX COMMENT IN TEST INSTRUCTIONS 

165 ; 1 13 CORRECT IOEA TO COMPUTE CORRECT' ADDRESS IF JUST LOCAL INDEXING 

166 ; IS USED. 

167 ;114 CORRECT INTERRUPT BUG IN DMUL 

168 ; 1 15 CORRECT COMMENTS HALT STATUS BLOCK 

169 ; 1 16 CORRECT PROBLEM WHERE CST MODIFIED BIT GETS SET BY MISTAKE. 

170 ; 117 RDINT INSTRUCTION DOES NOT WORK AT ALL. IT STORES RANDOM TRASH 

171 ; IN THE WRONG PLACE. NEED TO LOAD BR NOT AR. 

172 ;120 FLOATING POINT OPERATIONS SOMETIMES GET THE WRONG RESULT WITH 

173 ; INPUTS OF UNNORMALI ZED ZEROS. THIS SHOULD NEVER HAPPEN WITH 

174 ; FORTRAN OR ANY OTHER DEC LANGUAGE. 

175 ; 121 PREVENT KEEP-ALIVE CRASHES FROM OCCURRING BECAUSE THE MOVSRJ 

176 ; INSTRUCTION CAN LOCK OUT THE 1MS TIMER INTERRUPTS FROM BEING 

177 ; HANDLED. THIS CAUSES THE OPERATING SYSTEM TO LOSE TRACK OF THE 

178 ; PASSAGE OF TIME. 
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179 ;122 DFAD FOLLOWED BY A FSC OF -5 CAUSES THE FSC TO GET WRONG 

180 ; ANSWER. HAD TO CLEAR FLAG WORD AT EXIT OF DFAD TO FIX PROBLEM 

181 ;123 MORE CODE FOR EDIT 121. ADDED ANOTHER DISPATCH ADDRESS FOR 

182 ; PAGE FAIL CODE AT PFD : . 

183 ;124 ADD ASSEMBLY OPTIONS FOR NOCST AND INHIBIT CST UPDATE. 

184 ; ADD BLTUB/BLTBU TO GET UBA STYLE BYTES SWAPPED TO/FROM ILDB FORM, 

185 ; ADD ASSEMBLY OPTIONS FOR KI/KL PAGE. NEED THE SPACE FOR BLTUB/BU. 
186 

187 



a 
o 

E 
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188 .TOC "HOW TO READ THE MICROCODE " 

189 

1 90 

191 ; 

192 ; 1.0 FIELD DEFINITIONS 
193 

194 ; THESE OCCUR AT THE BEGINNING OF THE LISTING, IN THE SOURCE FILE KS10.MIC 

195 ; (CONTROL AND DISPATCH RAM DEFINITIONS). THEY HAVE THE FORM: 
196 

197 ; SYMBOL/ =<L : R>M , J 

198 ; 

199 ; THE PARAMETER (J) IS MEANINGFUL WHEN " D " IS SPECIFIED AS THE DEFAULT MECHANISM, 

200 ; AND IN THAT CASE, GIVES THE DEFAULT VALUE OF THE FIELD IN OCTAL. WHEN "F" IS 

201 ; SPECIFIED AS THE DEFAULT MECHANISM, (J) IS THE NAME OF A FIELD WHICH CONTAINS 

202 ; THE DEFAULT VALUE FOR THIS FIELD. 

203 ; 

204 ; THE PARAMETER (L) GIVES THE BIT POSITION OF THE LEFTMOST BIT IN THE FIELD. THE 

205 ; SAME METHOD IS USED AS FOR (R) BELOW. 

206 ; 

207 ; THE PARAMETER (R) GIVES THE FIELD POSITION IN DECIMAL AS THE BIT NUMBER OF THE 

208 ; RIGHTMOST BIT OF THE FIELD. BITS ARE NUMBERED FROM ON THE LEFT. NOTE THAT 

209 ; THE POSITION OF BITS IN THE MICROWORD SHOWN IN THE LISTING BEARS NO RELATION TO 

210 ; THE ORDERING OF BITS IN THE HARDWARE MICROWORD, WHERE FIELDS ARE OFTEN BROKEN UP 

211 ; AND SCATTERED. 

212 ; 

213 ; THE PARAMETER (M) IS OPTIONAL, AND SELECTS A DEFAULT MECHANISM FOR THE FIELD. 

214 ; THE LEGAL VALUES OF THIS PARAMETER ' ARE THE CHARACTERS "D" , " F " , "T" , "P", OR 

215 ; " + ". 

216 ; 

217 ; "D" MEANS (J) IS THE DEFAULT VALUE OF THE FIELD IF NO EXPLICIT VALUE IS 

218 ; SPECIFIED. 

219 ; 

220 ; "F" IS USED TO CAUSE THIS FIELD TO DEFAULT TO SOME OTHER FIELD. 

221 ; 

222 ; "T" IS USED ON THE TIME FIELD TO SPECIFY THAT THE VALUE OF THE FIELD 

223 ; DEPENDS ON THE TIME PARAMETERS SELECTED FOR OTHER FIELDS. "T" IS NOT 

224 ; USED IN THE KS10. 

225 ; 

226 ; "P" IS USED ON THE PARITY FIELD TO SPECIFY THAT THE VALUE OF THE FIELD 

227 ; SHOULD DEFAULT SUCH THAT PARITY OF THE ENTIRE WORD IS ODD. "P" IS NOT 

228 ; USED ON THE KS10. 

229 ; 

230 ; " + " IS USED ON THE JUMP ADDRESS FIELD TO SPECIFY THAT THE DEFAULT JUMP 

231 ; ADDRESS IS «THE ADDRESS OF THE NEXT INSTRUCTION ASSEMBLED (NOT, IN 

232 ; GENERAL, THE CURRENT LOCATION +1). 

233 ; 

234 ; IN GENERAL, A FIELD CORRESPONDS TO THE SET OF BITS WHICH PROVIDE SELECT INPUTS 

235 ; FOR MIXERS OR DECODERS, OR CONTROLS FOR ALU'S. 

236 ; 

237 ; 
238 
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255 ; 

256 ; 

257 ; 

258 ; 

259 ; 
260 

261 ; 

262 ; 

263 ; 

264 ; 

265 ; 

266 ; 

267 ; 

268 ; 

269 ; 
270 
271 

272 ; 
273 

274 ; 

275 ; 
276 

277 ; 

278 ; 

279 ; 

280 ; 

281 ; 

282 ; 

283 ; 

284 ; 

285 ; 

286 ; 

287 ; 
288 
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2.0 VALUE DEFINITIONS 

FOLLOWING A FIELD DEFINITION, SYMBOLS MAY BE CREATED IN THAT FIELD TO CORRESPOND 
TO VALUES OF THE FIELD. THE FORM IS: 

SYMBOL=N 

"N" IS, IN OCTAL, THE VALUE OF SYMBOL WHEN USED IN THE FIELD. 



3.0 LABEL DEFINITIONS 

A MICRO INSTRUCTION MAY BE LABELLED BY A SYMBOL FOLLOWED BY COLON PRECEDING THE 
MICROINSTRUCTION DEFINITION. THE ADDRESS OF THE MICROINSTRUCTION BECOMES THE 
VALUE OF THE SYMBOL IN THE FIELD NAMED "J". EXAMPLE: 

FOO: J/FOO 

THIS IS A MICROINSTRUCTION WHOSE "J" FIELD (JUMP ADDRESS) CONTAINS THE VALUE 
"FOO". IT ALSO DEFINES THE SYMBOL "FOO" TO BE THE ADDRESS OF ITSELF. 
THEREFORE , IF EXECUTED BY THE MICROPROCESSOR, IT WOULD LOOP ON ITSELF. 



4.0 COMMENTS 

A SEMICOLON ANYWHERE ON A LINE CAUSES THE REST OF THE LINE TO BE IGNORED BY THE 
ASSEMBLER . THIS TEXT IS AN EXAMPLE OF COMMENTS. 



5.0 MICROINSTRUCTION DEFINITION 

A WORD OF MICROCODE IS DEFINED BY SPECIFYING A FIELD NAME, 'FOLLOWED BY SLASH 
(/), FOLLOWED BY A VALUE. THE VALUE MAY BE A SYMBOL DEFINED FOR THAT FIELD, AN 
OCTAL DIGIT STRING, OR A DECIMAL DIGIT STRING (DISTINGUISHED BY THE FACT THAT IT 
CONTAINS "8" AND/OR "9" AND/OR IS TERMINATED BY A PERIOD). SEVERAL FIELDS MAY 
BE SPECIFIED IN ONE MICROINSTRUCTION BY SEPARATING FIELD/VALUE SPECIFICATIONS 
WITH COMMAS. EXAMPLE: 

AD/ZERO , RAMADR/AC*# , ACALU/AC+N , ACN/ 1 , DBUS/DP 



6.0 CONTINUATION 

THE DEFINITION OF A MICROINSTRUCTION MAY CONTINUED ONTO TWO OR MORE LINES BY 
BREAKING IT AFTER ANY COMMA. IN OTHER WORDS, IF THE LAST NON-BLANK, NON-COMMENT 
CHARACTER ON A LINE IS A COMMA, THE INSTRUCTION SPECIFICATION IS CONTINUED ON 
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289 ; THE FOLLOWING LINE. EXAMPLE: 

290 ; READ [ AR 3 , ; LOOK AT EFFECTIVE ADDRESS 

291 ; SKIP DP18, ;SEE IF RIGHT OR LEFT SHIFT 

292 ; SC_SHIFT-1, ; PUT NUMBER OF PLACE TO 

293 ; ;SHIFT IN SC 

294 ; LOAD FE, ; AND IN FE 

295 ; INST DISP ; GO DO THE SHIFT 
296 

297 ; 

298 ; 

299 ; 7.0 MACROS 

300 ; 

301 *, A MACRO IS A SYMBOL WHOSE VALUE IS ONE OR MORE FIELD/VALUE SPECIFICATIONS AND/OR 

302 ; MACROS. A MACRO DEFINITION IS A LINE CONTAINING THE MACRO NAME FOLLOWED BY A 

303 ; QUOTED STRING WHICH IS THE VALUE OF THE MACRO. EXAMPLE: 

304 ; 

305 ; LOAD VMA "MEM/1, LDVMA/1 

306 ; 

307 ; THE APPEARANCE OF A MACRO IN A MICROINSTRUCTION DEFINITION IS EQUIVALENT TO THE 

308 ; APPEARANCE OF ITS VALUE. 

309 ; 

310 ; MACRO MAY HAVE PARAMETERS ENCLOSED IN [ ] . FOR EXAMPLE, 

311 ; 

312 ; C3_[] "AD/A,A/(3>2,DEST/AD,B/<6>1 " 

313 ; 

314 ; THE @1 GETS REPLACED BY WHAT IS WRITTEN IN THE FIRST SET OF [] AND @>2 IS 

315 ; REPLACED BY WHAT IS WRITTEN IN THE SECOND SET OF [ 3 - THUS 

316 ; 

317 ; [AR]_[ARX3 

318 ; 

319 ; HAS THE SAME EFFECT AS SAYING 

320 ; 

321 ; AD/A, A/ARX , DEST/AD , B/AR 
322 

323 ; 

324 ; SEE DESCRIPTION OF RULES FOR MACRO NAMES. 
325 

326 ; 8.0 PSEUDO OPS 

327 ; 

328 ; . THE MICRO ASSEMBLER HAS 13 PSEUDO-OPERATORS: 

329 ; 

330 ; . DCODE AND .UCODE SELECT THE RAM INTO WHICH SUBSEQUENT MICROCODE WILL BE 

331 ; LOADED, AND THEREFORE THE FIELD DEFINITIONS AND MACROS WHICH ARE 

332 ; MEANINGFUL IN* SUBSEQUENT MICROCODE 

333 ; .TITLE DEFINES A STRING OF TEXT TO APPEAR IN THE PAGE HEADER, AND 

334 ; .TOC DEFINES AN ENTRY FOR THE TABLE OF CONTENTS AT THE BEGINNING. 

335 ; .SET DEFINES THE VALUE OF A CONDITIONAL ASSEMBLY PARAMETER, 

336 ; .CHANGE REDEFINES A CONDITIONAL ASSEMBLY PARAMETER, 

337 ; .DEFAULT ASSIGNS A VALUE TO AN UNDEFINED PARAMETER. 

338 ; .IF ENABLES ASSEMBLY IF THE VALUE OF THE PARAMETER IS NOT ZERO, 

339 ; . I FNOT ENABLES ASSEMBLY IF THE PARAMETER VALUE IS ZERO, AND 

340 ; .ENDIF RE-ENABLES ASSEMBLY IF SUPPRESSED BY THE PARAMETER NAMED. 

341 ; .NOBIN TURNS OFF THE BINARY A GETS RID OF THE SPACE USED TO LIST IT, 

342 ; .BIN TURN BINARY BACK ON'AGAIN. 

343 ; .WIDTH CONTROLS THE NUMBER OF BITS IN THE CRAM 
344 
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345 ; 9.0 LOCATION CONTROL 

346 ; 

347 ; A MICROINSTRUCTION "LABELLED" WITH A NUMBER IS ASSIGNED TO THAT ADDRESS . 

348 ; 

349 ; THE CHARACTER " = " AT THE BEGINNING OF A LINE, FOLLOWED BY A STRING OF O'S, 1'S, 

350 ; AND/ OR *'S, SPECIFIES A CONSTRAINT ON THE ADDRESS OF FOLLOWING 

351 ; MICROINSTRUCTIONS . THE NUMBER OF CHARACTERS IN THE CONSTRAINT STRING (EXCLUDING 

352 ; THE " = " ) IS THE NUMBER OF LOW-ORDER BITS CONSTRAINED IN THE ADDRESS. THE 

353 ; MICROASSEMBLER ATTEMPTS TO FIND AN UNUSED LOCATION WHOSE ADDRESS HAS BITS IN 

354 ; THE POSITIONS CORRESPONDING TO O'S IN THE CONSTRAINT STRING AND 1 BITS WHERE THE 

355 ; CONSTRAINT HAS 1'S. ASTERISKS DENOTE "DON'T CARE" BIT POSITIONS. 

356 ; 

357 ; IF THERE ARE ANY O'S IN THE CONSTRAINT STRING, THE CONSTRAINT IMPLIES A BLOCK OF 

358 ; <2**N> MICROWORDS, WHERE N IS THE NUMBER OF O'S IN THE STRING. ALL LOCATIONS IN 

359 ; THE BLOCK WILL HAVE 1'5 IN THE ADDRESS BITS CORRESPONDING TO 1'S IN THE STRING, 

360 ; AND BIT POSITIONS DENOTED BY *'S WILL BE THE SAME IN ALL LOCATIONS OF THE BLOCK. 

361 ; 

362 ; IN SUCH A CONSTRAINT BLOCK, THE DEFAULT ADDRESS PROGRESSION IS COUNTING IN THE 

363 ; "0" POSITIONS OF THE CONSTRAINT STRING, BUT A NEW CONSTRAINT STRING OCCURING 

364 ; WITHIN A BLOCK MAY FORCE SKIPPING OVER SOME LOCATIONS OF THE BLOCK. WITHIN A 

365 ; BLOCK, A NEW CONSTRAINT STRING DOES NOT CHANGE THE PATTERN OF DEFAULT ADDRESS 

366 ; PROGRESSION, IT MERELY ADVANCES THE LOCATION COUNTER OVER THOSE LOCATIONS. THE 

367 ; MICROASSEMBLER WILL LATER FILL THEM IN. 

368 ; 

369 ; A NULL CONSTRAINT STRING (" = " FOLLOWED BY ANYTHING BUT "0", "1", OR " * " ) SERVES 

370 ; TO TERMINATE A CONSTRAINT BLOCK. EXAMPLES: 

371 ; • 

372 ; \ =0 

373 ^ 

374 • THIS SPECIFIES THAT THE LOW-ORDER ADDRESS BIT MUST BE ZERO- - THE MICROASSEMBLER 

375 ; FINDS AN EVEN-ODD PAIR OF LOCATIONS, AND PUTS THE NEXT TWO MICROINSTRUCTIONS 

376 ; INTO THEM. 

377 ; 

378 ; =11 

379 ; THIS SPECIFIES THAT THE TWO LOW-ORDER BITS OF THE ADDRESS MUST BOTH BE ONES. 

380 ; SINCE THERE ARE NO O'S IN THIS CONSTRAINT, THE ASSEMBLER FINDS ONLY ONE LOCATION 

381 ; MEETING THE CONSTRAINT. 
382 

383 ; =0***** 

384 ; 

385 ; THIS SPECIFIES AN ADDRESS IN WHICH THE "40" BIT IS ZERO. DUE TO THE 

386 ; IMPLEMENTATION OF THIS FEATURE IN THE ASSEMBLER, THE' DEFAULT ADDRESS PROGRESSION 

387 ; APPLIES ONLY TO THE LOW-ORDER 5 BITS, SO THIS CONSTRAINT FINDS ONE WORD IN WHICH 

388 ; THE "40" BIT IS ZERO, AND DOES NOT ATTEMPT TO FIND ONE IN WHICH THAT BIT IS A 

389 ; ONE. THIS LIMITATION HAS BEEN CHANGED WITH NEWER ASSEMBLER VERSIONS. HOWEVER 

390 ; NONE OF THE LOCATIONS IN THE MICROCODE REQUIRE ANYTHING BUT THE CONSTRAINT 

391 ; MENTIONED ABOVE. 
392 
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393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
;420 
;421 
422 
423 
424 
;425 
;426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 



.TOC "CONDITIONAL ASSEMBLY DEFINITIONS" 
. DEFAULT/SIM=0 



. DEFAULT/ FULL = 1 
, DEFAULT/ I NHCST=0 
. DEFAULT/N0CST=O 
. DEFAULT/UBABLT=0 
. DEFAULT/KI PAGE= 1 
. DEFAULT/KLPAGE= 1 



0=RUN ON REAL HARDWARE 
1 = RUN UNDER SIMULATOR 

0=INCLUDE ONLY BASIC INSTRUCTIONS 
1=INCLUDE FULL INSTRUCTION SET 

0=N0 CODE TO INHIBIT CST UPDATE IF CSB=0 
1=D0N'T UPDATE CST IF CSB=0 

0=INCLUDE SUPPORT FOR WRITING THE CST 

1 =COMPLETELY DESUPPORT CST (FOR TOPS- 10) 

0=NO UBABLT SUPPORT 

1=SUPP0RT UBA STYLE BLT INSTRUCTIONS. 

;0=DON'T SUPPORT KI PAGING 
; 1=D0 

;0=DON'T SUPPORT KL PAGING 
;1=D0 

; THESE INSTRUCTIONS 



. I F/UBABLT 

. I F/KLPAGE 

. CHANGE/KI PAGE =0 
. ENDI F/KLPAGE 

. I F/KIPAGE ; ALLOW ONLY ONE PAGING MODE 

. CHANGE/KLPAGE=0 
. ENDI F/KI PAGE 

. ENDI F/UBABLT ; OTHERWISE, MAY HAVE EITHER OR BOTH 

. IF/NOCST 

. CHANGE/INHCST=0 
. ENDIF/NOCST 



. DEFAULT/NONSTD=0 
. WIDTH/ 108 



; 0=STANDARD MICROCODE 

; 1=N0N-STANDARD MICROCODE 

; ONLY FIELDS BETWEEN BITS O AND 107 EVER 
; GET LOADED INTO THE CRAM. OTHER FIELDS 
; ARE USED FOR DEFAULTING PROCESS. 



. REGION/0 , 1377/2000,3777/1400, 1777 

; TRY AND KEEP STUFF OUT OF DROM SPACE 



; T10KL.MCR[ 10, 1 141 3 
; KS10.MIC[10, 1141] 



15:34 27-JULY-1984 
07: 10 27- JULY- 1984 



MICRO 31(254) 



KS10 MICROCODE V124, 27-JUL-84 Page 13 
2901 REGISTER USAGE 



439 


.TOC 


440 




441 




442 


'0: 


443 




444 


• 1 : 


445 




446 


,2: 


447 




448 


3: 


449 




450 


4: 


451 




452 / 


5: 


453 




454 


6: 


455 




456 


7: 


457 




458 


10: 


459. 




460 


1 1 : 


461 




462 


12: 


463 




464 


13: 


465 




466 


14: 


467 




468 


15: 


469 




470 


16: 


471 




472 


17: 


473 




474 





'2901 REGISTER USAGE" 



MAG (ONES IN BITS 1-36, REST ZERO) 
PC (ADDRESS OF CURRENT INSTRUCTION + 1) 
HR (CURRENT INSTRUCTION) 
AR (TEMP -- MEM OP AT INST START) 
ARX (TEMP LOW ORDER HALF OF DOUBLE PREC) 
BR (TEMP) 

BRX (TEMP LOW ORDER HALF OF DOUBLE PREC BR ! BRX ) 
ONE (THE CONSTANT 1) 
EBR (EXEC BASE REGISTER) 
UBR (USER BASE REGISTER) 
MASK (ONES IN BITS 0-35, ZERO IN -1, -2, 36 AND 37) 
FLG (FLAG BITS) ! PAGE FAIL CODE 

PI (PI SYSTEM STATUS REGISTER [RDPI]) 
XWD1 (1 IN EACH HALF WORD) 
TO (TEMP) 
T1 (TEMP) 



T10KL.iviCR[ 10, 
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475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
503 
509 
510 
511 
512 
513 
514 
515 
516 
517 
518 
519 
520 
521 
522 
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U 1561 , 1500,2551 ,0303,0274,4463,7701 ,4200,0001 ,0001 



3633 
3634 
3635 
3636 



1561 
SUB: 



[AR]_AC-[AR] , 
AD FLAGS, 3T, 
EXIT 



[--3 [--] 



[][] 



["][][-][] 



[ 3 

i 



--- # (MAGIC NUMBER) 

--- MU'LTI PREC, MULT I SHIFT, CALL (4S, 2S, 1S) 

--- FM WRITE , MEM, DIVIDE (4S, 2S, 1S) 

--- CRY38, LOAD SC , LOAD FE (4S, 2S, 1S) 

--- T 

--- SKIP 

--- DISP 

--- SPEC 

--- CLOCKS & PARITY (CLKR, GENR , CHKR , CLKL, GENL , CHKL ) 

DBM 

DBUS 

--- RAM ADDRESS 
--- B 



A 

DEST 

RSRC 

LSRC 

ALU 

J 



AD 



LOCATION OF THIS MICRO WORD 
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; 523 .TOC "MICROCODE FIELDS -- DATAPATH CHIP" 

; 524 

; 525 U/=<0:11>+ ;CRA1 

; 526 ; NEXT MICROCODE ADDRESS » 

; 527 

; 528 ;ALU FUNCTIONS 

* 529 

; 530 ; NOTE : THE AD FIELD IS A 2 DIGIT FIELD. THE LEFT DIGIT IS THE 

; 531 ; 2901 ALU FUNCTION. THE RIGHT DIGIT IS THE 2901 SRC CODE FOR 

; 532 ; THE LEFT HALF. NORMALY THE RIGHT HALF SRC CODE IS THE SAME AS 

; 533 ; THE LEFT HALF. 

; 534 AD/=<12: 17>D,44 ;DPE1 & DPE2 

; 535 A+Q=00 

; 536 A+B=01 

5 ; 537 0+0=02 

I ; 538 0+B=03 

- ; 539 0+A=04 

I ; 540 D+A=05 

g ; 541 D+Q=06 

S ; 542 0+D=07 

i ; 543 Q-A-. 25=10 

i ; 544 B-A-. 25=11 

I ; 545 Q-. 25=12 

g ; 546 B-. 25=13 

t ; 547 A-. 25=14 

1 ; 548 , A-D-. 25=15 

1 ; 549 Q-D-. 25=16 

1 ; 550 ' -D-. 25=17 

! ; 551 A-0-. 25=20 

f ; 552 A-B-. 25=21 

1 ; 553 -Q-. 25=22 

| ; 554 • -B-. 25=23 

1 ; 555 -A-. 25=24 

I ; 556 D-A- .25=25 

1 ; 557 D-Q-. 25=26 

§ ; 558 D- .25=27 

^ ; 559 A.0R.Q=30 

| ; 560 A.0R.B=31 

£ ; 561 0=32 

; 562 B=33 

; 563 A=34 

; 564 D.OR. A=35 

; 565 D.OR. 0^36 

; 566 D=37 

; 567 A. AND. 0=40 

; 568 A.AND.B=41 

; 569 



\ 



n 
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570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598* 

599 

600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 



; MORE ALU FUNCTIONS 

ZER0=42 
; ZER0=43 
; ZERQ=44 

D.AND.A=45 

D.AND.Q=46 
; ZER0=47 

.NOT. A. AND. 0=50 

.NOT. A. AND.B=51 

= 52 

B = 53 

A = 54 

. NOT . D . AND . A=55 

. NOT. D. AND. 0=56 

ZER0=57 

A.X0R.Q=60 

A.X0R.B=61 

= 62 

B = 63 

A = 64 

D.X0R.A=65 
D.X0R.Q=66 
D=67 

A.E0V.Q=70 
A.EQV.B=71 
. NOT . 0=72 
.N0T.B=73 
.NOT. A=74 
D. EOV. A=75 
D . EOV . 0=76 
.N0T.D=77 

THIS FIELD IS THE RIGHTMOST 3 BITS OF THE 
AD FIELD . IT IS USED ONLY TO DEFAULT THE RSRC 
FIELD. 

LSRC/=<15: 17> ;DPE1 

THIS IS THE SOURCE FOR THE RIGHT HALF OF THE 
DATA PATH. IT LETS US MAKE THE RIGHT AND LEFT 
HALF WORDS DO SLIGHTLY DIFFERENT THINGS. 



611 


RSRC/=<18:20>F,LSRC 


;DPE2 


612 


A0=0 


;A 


613 


AB=1 


; A B 


614 


00 = 2 


;0 


615 


0B = 3 


;0 B 


616 


0A = 4 


;0 A 


617 


DA = 5 


;D A 


618 


DQ = 6 


;D 


619 


D0=7 


;D 



620 
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621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 



; DESTINATION CONTROL 
;SEE DPE1 AND DPE2 (2' 
DEST/=<21 :23>D,3 
A=0 

AD=1 

Q_AD=2 

PASS=3 

Q__Q*2 = 4 
AD*2=5 
Q_0* . 5=6 
AD*. 5=7 

; <24:25> 

A/=<26:29> 

MAG=0 
PC=1 
HR = 2 
AR = 3 
ARX = 4 
BR = 5 
BRX = 6 
0NE = 7 
EBR=10 
UBR=11 • 
MASK=12 
FLG=13 
PI = 14 
XWD1=15 
T0=16 
T1 = 17 

; <30:31> 

B/=<32:35>D,0 
MAG=0 
P01 
HR = 2 
AR = 3 
ARX=4 
BR = 5 
BRX=6 
0NE = 7 
EBR=10 
UBR=11 
MASK=12 ^ 
FLG=13 
PI = 14 
XWD1=15 
T0=16 
T1 = 17 



S WEIGHT IS INVERTED ON DPE5) 
;DPE1 & DPE2 

A REG IS CHIP OUTPUT, AD IS WRITTEN 

INTO REG FILE 
REG FILE GETS AD 
REG FILE IS NOT LOADED 
AD OUTPUT IS CHIP OUTPUT 

Q AND REG FILE LEFT ALONE 
ALSO REG FILE GETS AD*2 
AND IS LEFT ALONE 
ALSO REG FILE GETS AD*. 5 
; AND IS LEFT ALONE 

;UNUSED 

;DPE1 & DPE2 



; UNUSED 
;DPE1 & DPE2 



r 



o. 
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675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
701 
702 
703 
704 
705 
706 
707 
708 



.TOC 



"MICROCODE FIELDS -- RAM FILE ADDRESS AND D-BUS" 



RAMADR/=<36:38>D, 
AC#=0 
AC*#=1 
XR# = 2 
VMA = 4 
RAM=6 
# = 7 

; <39:39> 



DPE6 

AC NUMBER 

AC .FN. # 

INDEX REGISTER 

VIRTUAL MEMORY REFERENCE 

VMA SUPPLIES 10-BIT RAM ADDRESS 

ABSOLUTE RAM FILE REFERENCE 



; LEFT HALF ON DPE3 AND RIGHT HALF ON DPE4 



DBUS/=<40: 41>D , 1 

PC FLAGS=0 
PI NEW=0 

; VMA=0 
DP=1 
RAM = 2 
DBM=3 



DP.E3 & DPE4 . 

PC FLAGS IN LEFT HALF 

NEW PI LEVEL IN BITS 19-21 

VMA IN BITS 27-35 

DATA PATH 

CACHE, AC'S AND WORKSPACE 
DBM MIXER 



*, LEFT HALF ON DPMI AND RIGHT HALF ON DPM2 



DBM/=<42:44>D,7 

SCAD DIAG=0 
PF DISP=0 
APR FLAGS=0 
BYTES= 1 
EXP = 2 
DP = 3 

DP SWAP=4 
VMA = 5 
MEM=6 
# = 7 



DPMI & DPM2 

(LH) SCAD DIAGNOSTIC 

PAGE FAIL DISP IN BITS 18-21 

APR FLAGS IN BITS 22-35 

5 COPIES OF SCAD 1-7 

LH=EXPONENT , RH=TIME FRACTION 

DATA PATH 

DATA PATH SWAPPED 

VMA FLAGS, , VMA 

MEMORY BUFFER 

NUMBER FIELD IN BOTH HALVES 
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709 .TOC "MICROCODE FIELDS.-- PARITY GENERATION & HALF WORD CONTROL" 
710 

711 AD PARITY 0K/=<108>D,0 ;**NOT STORED IN CRAM** 

712 ;THIS BIT IS A 1 IF THE ALU IS DOING 

713 ; SOMETHING WHICH DOES NOT INVALIDATE 

714 , ; PARITY. IT DOES NOT APPEAR IN THE 

715 ; REAL MACHINE.' WE JUST USE IT TO SET 

716 ; THE DEFAULT FOR GENR & GENL 
717 

718 CLKL/=<45:45>D, 1 ;DPE5 

719 ;CLOCK THE LEFT HALF OF THE MACHINE 

720 GENL/=<46:46>F,AD PARITY OK ;DPE4 FROM CRM2 PARITY EN LEFT H 

721 ;STORE PARITY FOR 2901 LEFT 

722 CHKL/=<47:47> ;DPE4 FROM CRM2 PARITY CHK LEFT H 

723 ;CHECK LEFT HALF DBUS PARITY 
724 

725 CLKR/=<48 : 48>D, 1 ;DPE5 

726 ;CLOCK THE RIGHT HALF OF THE MACHINE 

727 GENR/ =<49 : 49>F , AD PARITY OK ;DPE4 FROM CRM2 PARITY EN RIGHT H 

728 ; STORE PARITY FOR 2901 RIGHT 

729 CHKR/=<50:50> ;DPE4 FROM CRM2 PARITY CHK RIGHT H 

730 ;CHECK RIGHT HALF DBUS PARITY 
731 
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732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
756 
757 
758 
759 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
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"MICROCODE FIELDS -- SPEC" 



THE FOLLOWING SPECIAL FUNCTION ARE DECODED ON DPE1, DPE5, AND DPMA: 



S! 
P ! 
E! 
C! 


EFFECT 
ON SHIFT 
PATHS 
(SEE DPE1) 


! CRA6 SPEC ! 
' EN 40 ! 
E102 ON DPE5 ! 


CRA6 SPEC 
EN 20 
E101 ON DPE5 
E41 1 ON DPMA 


CRA6 SPEC 
EN 10 
E410 ON DPMA 
E1 13 ON CRA2 


0! 


NORMAL 


! CRY 18 INH ! 


PREVIOUS 


# 


1 ! 


ZERO 


! IR LOAD ! 


XR LOAD 


CLR 1 MSEC 


2! 


ONES 


! <SPARE> ! 


<SPARE> 


CLR 10 LATCH 


3! 


ROT 


! PI LOAD ! 


APR FLAGS 


CLR 10 BUSY 


4! 


ASHC 


! ASH TEST ! 


SET SWEEP 


PAGE WRITE 


5! 


LSHC 


! EXP TEST ! 


APR EN 


NICOND 


6! 


DIV 


! PC FLAGS ! 


PXCT OFF 


PXCT EN 


7! 


ROTC 


! AC BLOCKS EN ! 


MEM CLR 


MEM WAIT 



THE DPM BOARD USES THE SPEC FIELD TO CONTROL THE 
DBM MIXER, AS FOLLOWS: 



s 
p 

E 
C 


! ACTION WHEN DBM 

! • SELECTS DP 

! GET DP BITS ! GET SCAD 1-7 





! ALL ! 


NONE 


1 


! 7-35 ! 


0-6 


2 


!0-6 AND 14-35 ! 


7-13 


3 


!0-13 AND 21-35! 


14-20 


4 


10-20 AND 28-35! 


21-27 


5 


! 0-27 AND 35 ! 


28-34 


6 


! SAME AS 


ZERO 


7 


! SAME AS 


ZERO 
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785 ; THE SPEC FIELD IS DEFINED AS A 6-BIT FIELD. THE TOP 3 BITS 

786 ; ARE SPEC SEL A, SPEC SEL B, AND SPEC SEL C. THE LOW 3 BITS ARE 

787 ; THE SELECT CODE . 
788 

789 SPEC/=<51 :56>D,0 ;DPE1 & DPE5 & DPMI & DPMA 

790 #=10 ; DECODE # BITS 

791 CLRCLK=11 ; CLEAR 1MS NICOND FLAG 

792 CLR 10 LATCH=12 ; CLEAR 10 LATCH 

793 CLR 10 BUSY=13 ; CLEAR 10 BUSY 

794 LDPAGE= 14 ;WRITE PAGE TABLE 

795 NIC0ND=15 ;DOING NICOND DISPATCH 

796 LDPXCT=16 ; LOAD PXCT FLAGS 

797 WAIT=17 ; MEM WAIT 

798 PREV=20 ; FORCE PREVIOUS CONTEXT 

799 L0ADXR=21 ; LOAD XR #, USES PXCT FIELD TO SELECT 

800 ; CORRECT AC BLOCK 

801 APR FLAGS=23 ; LOAD APR FLAGS 

802 CLRCSH=24 ; CLEAR CACHE 

803 APR EN=25 ;SET APR ENABLES 

804 MEMCLR=27 ; CLEAR PAGE FAULT CONDITION 

805 SWEEP=34 ; SET SWEEP 

806 PXCT 0FF=36 ; TURN OFF THE EFFECT OF PXCT 

807 INHCRY18=40 -INHIBIT CARRY INTO LEFT HALF 

808 ' L0ADIR=41 ; LOAD THE IR 

809 LDPI=43 ; LOAD PI SYSTEM 

810 ASH0V=44 ; TEST RESULT OF ASH 

811 EXPTST=45 ; TEST RESULT OF FLOATING POINT 

812 FLAGS=46 ; CHANGE PC FLAGS 

813 LDACBLK=47 ; LOAD AC BLOCK NUMBERS 

814 LDINST=6-1 * ; LOAD INSTRUCTION 
815 

816 ; THE SPEC*FIELD IS REDEFINED WHEN USED FOR BYTE MODE STUFF 

817 BYTE/=<54:56> ;DPM1 (SPEC SEL) 

818 BYTE 1 = 1 

819 BYTE2=2 

820 BYTE3=3 

821 BYTE4=4 

822 BYTE5=5 
823 

824 ; THE SPEC FIELD IS REDEFINED WHEN USED TO CONTROL SHIFT PATHS 

825 SHSTYLE/=<54:56> ;DPE1 (SPEC SEL) 

826 N0RM=O ;2 40-BIT REGISTERS 

827 ZER0=1 ; SHIFT ZERO INTO 36 BITS (ASH TOP 2901) 

828 0NES=2 ; SHIFT IN ONES 

829 R0T=3 ; ROTATE 

830 ASHC=4 ;ASHC 

831 LSHC=5 ; LSHC 

832 DIV=6 ;SPECIAL DIVIDE 

833 R0TC=7 ; ROTATE DOUBLE 
834 
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; 835 .TOC "MICROCODE FIELDS --DISPATCH" 

; 836 ; !=: = = = = = = = = = = = =: = = = = =:=: = = = = = = = =: = = = = = = =: = = = = = = = =: = =: = =: = = = = = = = =:=! 

; 837 ; ! D ! CRA1 ! CRA1 ! DPEA ! 

; 838 ; ! I ! DISP ! DISP ! DISP ! 

; 839 ; ! S ! 10 ! 20 ! 40 ! 

; 840 ; ! P ! ! ! ! 

; 841 ; ! =====================================^====-============= | 

; 842 ; ! ! DI AG ADR ! DI AG ADR: ! O ! 

; 843 ; ! ! 

; 844 ; ! 1 ! RETURN ! RETURN ! DP 18-21 ! 

. 845 ; ! ! 

; 846 ; ! 2 ! MULTIPLY ! J ! J ! 

. 847 . t _ , 

; 848 ; ! 3 ! PAGE' FAIL ! AREAD ! AREAD ! 

5 ; 849 ; ! ! 

I ; 850 ; ! 4 ! NICOND ! NOT USABLE ! NORM ! 

8 ; 851 ; ! ! 

I ; 852 ; ! 5 ! BYTE ! NOT USABLE ! DP 32-35 ! 

* ; 853 ; ! ! 

I ; 854 ; ! 6 ! EA MODE ! NOT USABLE ! DROM A ! 

i ; 855 ; ! . ! 

i ; 856 ; ! 7 ! SCAD ! NOT USABLE ! DROM B ! 

| ; 857 ; s= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = := = := = = =! 

* " ; 858 ; NOTE : DISP EN 40 & DISP EN 10 ONLY CONTROL THE LOW 4 BITS OF THE 

t ; 859 ; JUMP ADDRESS. DISP EN 20 ONLY CONTROLS THE . HI 7 BITS. TO DO 

I ; 860 ; SOMETHING TO ALL 11 BITS BOTH 20 & 40 OR 20 & 10 MUST BE ENABLED. 

1 ; 861 

s ; 862 DISP/=<57:62>D,70 ;CRA1 & DPEA 

i ; 863 CONSOLE=00 ;C0NS0LE DISPATCH 

? ; 864 DR0M=12 ; DROM 

I ; 865 AREAD= 1 3 ; AREAD 

I ; 866 DP LEFT=3 1 ;DP 18-21 

1 ; 867 N0RM=34 ; NORMALIZE 

I ; 868 DP=35 ; DP 32-35 

I ; 869 ADISP=36 ; DROM A FIELD 

g ; 870 BDISP=37 ; DROM B FIELD 

i ; 871 RETURN=4 1 ; RETURN 

I ; 872 MUL=62 ; MULTIPLY 

* ; 873 PAGE FAIL=63 ; PAGE FAIL 

; 874 NIC0ND=64 ; NEXT INSTRUCTION DISPATCH 

; 875 BYTE=65 ; BYTE SIZE AND POSITION 

; 876 EAM0DE=66 EFFECTIVE ADDRESS MODE 

; 877 SCADO=67 ;J!2 IF SCAD BIT = 1 

; 878 
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879 .TOC "MICROCODE FIELDS SKIP" 

880 ; ! = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = ! 

881 ; ! S !■ CRA2 ! DPEA ! DPEA ! 

882 ; IK! ■ SKIP S SKIP ! SKIP ! 

883 ; ! I ! 10 ! 20 ! 40 ! 

884 ; ! P ! ! ! ! 

885 ; ! = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =! = = = = = = = = = = = = = = = = = = = = = = = =! 

886 ; ! ■! ! ! ! 

887 ; ! ! 

888 ; ! 1 ! TRAP CYCLE ! CRY 02 ! CARRY OUT ! 

889 ; ! ! 

890 ; ! 2 ! AD=0 ! ADL SIGN ! ADL=0 ! 
89-1 ; ! — ! 

892 ; ! 3 ! - SC SIGN ! ADR SIGN ! ADR=0 ! 

893 ; ! ! 

894 ; 14! EXECUTE ! USER IOT ! -USER ! 

895 ; ! ! 

896 ; ! 5 ! -BUS 10 BUSY ! UFCL SKIP ! FPD FLAG ! 

897 ; ! ! 

898 ; 16 1 -CONTINUE ! x CRY 01 ! AC # IS ZERO f 

ggg . | . i. | 

900 ; I 7 1 -1 MSEC ! TXXX ! INTERRUPT REQ ! 

901 ; \= = = = = = = = = = = = = = = = == = = = = ± = S:S = S = =: = = = = = = = = z : = = = = = = = = = = S : = = = = = =\ 

902 

903 SKIP/=<63:68>D,70 ;CRA2 & DPEA 

904 I0LGL=04 ;(. NOT . USER )! (USER IOT )! (CONSOLE EXECUTE MODE) 

905 LLE=12 ;AD LEFT . LE . O 

906 CRY0-.31 ; AD CRY -2 

907 ADLEQO=32 ; ADDER LEFT =0 

908 ADREQO=33 ; ADDER RIGHT =0 

909 KERNEL=34 ; . NOT . USER 

910 FPD=35 ; FIRST PART DONE 

911 AC0=36 ;AC NUMBER IS ZERO 

912 INT=37 .; INTERRUPT REQUEST 

913 LE = 42 ;(AD SIGN) ! (AD. EQ.-O) 

914 CRY2-51 ; AD CRY 02 

915 DP0=52 ; AD SIGN 

916 DP18=53 ; AD BIT 18 

917 I0T=54 ;USER IOT 

918 JFCL=55 ;UFCL SKIP 

919 CRY1=56 ; AD CRY 1 

920 TXXX=57 ; TEST INSTRUCTION SHOULD SKIP 

921 TRAP CYCLE=61 ;THIS INSTRUCTION IS THE RESULT OF A 

922 ; TRAP 1 , 2, OR 3 

923 ADE0O=62 ;AD.E0.O 

924 SC=63 ;SC SIGN BIT 

925 EXECUTE=64 ; CONSOLE EXECUTE MODE 

926 -10 BUSY=65 ; . NOT . I/O LATCH 

927 -C0NTINUE=66 ; . NOT . CONTINUE 

928 -1 MS=67 ;.NOT. 1 MS. TIMER 
929 
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930 
931 
932 
933 
934 
935 
936 
337 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 



.TOC 



"MICROCODE FIELDS 



TIME CONTROL" 



DT/=<109: 1 1 1>D,0 



2T=0 
3T= 1 
4T = 2 
5T = 3 



T/=<69:71>F,DT 



2T=0 
3T=1 
4T = 2 
5T = 3 



**NOT STORED IN CRAM* * 
DEFAULT TIME FIELD (USED IN MACROS) 
CAN BE OVERRIDDEN IN MACRO CALL 



CSL5 (E601) 

CLOCK TICKS MINUS TWO REQUIRED TO 

DO A MICRO INSTRUCTION 
TWO TICKS 
THREE TICKS 
FOUR TICKS 
FIVE TICKS 
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950 


.TOC "MICROCODE FIELDS RANDOM CONTROL BITS" 


951 






952 


CRY38/=<72> 


• DPE5 


953 




INJECT A CARRY INTO THE 2901 ADDER 


954 


LQADSC/=<73> 


DPM4 


955 




LOAD THE STEP COUNTER FROM THE SCAD 


956 


L0ADFE/=<74> 


DPM4 


957 




LOAD THE FE REGISTER FROM THE SCAD 


958 


FMWRITE/=<75> 


DPE5 (E302) 


959 




WRITE THE RAM FILE." 


960 


MEM/=<76> 


DPM5 (E612) & DPE5 (E205) 


961 




START (OR COMPLETE) A MEMORY OR I/O' CYCLE UNDER 


962 




CONTROL OF THE NUMBER FIELD. 


963 


DIVIDE/=<77> 


DPE5 


964 




THIS MICROINSTRUCTION IS -DOING A DIVIDE 


965 


MULTI PREC/=<78> 


DPE5 


966 




MULTIPRECISION STEP IN DIVIDE, DFAD, DFSB 


967 


MULTI SHIFT/=<79> 


CSL5 (HAS NOTHING TO DO WITH DPE5 MULTI SHIFT) 


968 




FAST SHIFT 


969 


CALL/=<80> 


CRA2 (STACK IS ON CRA3) 


970 




THIS IS A CALL 


971 
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972 .TOC "MICROCODE FIELDS NUMBER FIELD" 
973 

974 ; HERE IS THE GENERAL FIELD 

975 #/=<90:107> ; MANY PLACES 
976 

977 ;# REDEFINED WHEN USED AS SCAD CONTROL: 

978 SCAD/=<90:92> ;DPM3 

979 A*2=0 

980 A.0R.B=1 

981 A-B-1=2 

982 A-B=3 

983 A+B=4 

984 A . AND . B=5 

985 A-1=6 

986 A=7 

987 SCADA/=<93:95> ;DPM3 

988 SC=0 

989 S#=1 

990 PTR44=2 ; 44 AND BIT 6 (SEE DPM3 ) 
99.1 BYTE 1 =3 

992 BYTE2=4 . 

993 BYTE3=5 

994 BYTE4=6 

995 BYTE5=7 

996 SCADB/=<96:97> ; DPM3 

997 FE=0 

998 EXP=1 

999 SHIFT=2 

1000 SIZE=3 

1001 S#/=<98: 107> ;DPM3 
1002 

1003 ;# REDEFINED WHEN USED AS STATE REGISTER CONTROL: 

1004 STATE/=<90: 107> ; NOT USED BY HARDWARE 

1005 SIMPLE=0 ; SIMPLE INSTRUCTIONS 

1006 BLT= 1 ; BLT IN PROGRESS 

1007 MAP=400002 ;MAP IN PROGRESS 

1008 SRC=3 ;MOVE STRING SOURCE IN PROGRESS 

1009 DST=4 ;MOVE STRING FILL IN PROGRESS 

1010 SRC+DST=5 ;MOVE STRING DEST IN PROGRESS 

1011 DSTF=6 ; FI LLING DEST 

1012 CVTDB=7 ; CONVERT DEC TO BIN 

1013 C0MP-DST=10 ;COMPARE DEST 

1014 EDIT-SRC=11 ; EDIT SOURCE 

1015 EDIT-DST=12 ; EDIT DEST 

1016 EDIT-S+D=13 ; BOTH SRC AND DST POINTERS 
1017 
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; 1018 REDEFINED WHEN USED AS WORSPACE ADDRESS 

; 1019 

; 1020 W0RK/=<98: 107> ;DPE6 

; 1021 BADW0=160 ;AC BLK 7 WORD (BAD DATA FROM MEMORY) 

; 1022 BADW1=161 ; AC BLK 7 WORD 1 (BAD DATA FROM MEMORY) 

; 1023 MUL=200 ; TEMP FOR MULTIPLY 

; 1024 DIV=201 ; TEMP FOR DIVIDE 

; 1025 SV.VMA=210 ; SAVE VMA 

; 1026 SV.AR=211 ; SAVE AR 

; 1027 SV.ARX=212 ; SAVE ARX 

; 1028 SV.BR=213 ; SAVE BR 

; 1029 SV.BRX=214 ; SAVE BRX 

; 1030 SBR=215 ; SPT BASE REGISTER 

; 1031 CBR=216 ; CST BASE ADDRESS 

5 - ; 1032 CSTM=217 ;CST MASK 

I ; 1033 PUR=220 ; PROCESS USE REGISTER 

8 ; 1034 ADJP=221 ;"P M FOR ADJBP 

| ; 1035 ADJS=222 ;"S" FOR ADUBP 

; 1036 ADJPTR=223 ; BYTE POINTER FOR ADJBP 

S ; 1037 ADJ01=224 ; TEMP FOR ADJBP 

I ; 1038 ADJR2=225 ; TEMP FOR ADJBP 

b ; 1039 ADJBPW=226 ;( BYTES/WORD ) FOR ADJBP 

| ; 1040 HSBADR=227 ; ADDRESS OF HALT STATUS BLOCK 

s ; 1041 APR=230 ;APR ENABLES 

3 ; 1042 ; THE FOLLOWING WORDS ARE USED BY EXTEND INSTRUCTION 

I ; 1043 E0=240 ; ORIGINAL EFFECTIVE ADDRESS 

1 ; 1044 E1=241 ; EFFECTIVE ADDRESS OF WORD AT EO 

s ; 1045 SLEN=242 ; SOURCE LENGTH 

f ; 1046 MSK=243 ; BYTE MASK 

f ; 1047 FILL=244 ; F I LL BYTE 

1 ; 1048 CMS=245 ; SRC BYTE IN STRING COMPARE 

! ; 1049 FSIG=246 ; PLACE TO SAVE ARX WHILE STORJNG 

* ; 1050 ; THE FLOAT CHAR \ , 

1 ; 1051 BDH=247 ; BINARY BEING CONVERTED TO \ 

| ; 1052 BDL=250 ; DECIMAL \ 

§ ; 1053 , \ 

1 ; 1054 ; TIMER STUFF ' 

| ; 1055 TIME0=300 ; HIGH ORDER 36 BITS OF TIME \ 

£ ; 1056 TIME1=301 • ; LOW ORDER 36 BITS OF TIME 

; 1057 PERI0D=302 ; INTERRUPT PERIOD 

; 1058 TTG=303 ; TIME TO GO TO NEXT INTERRUPT 

; 1059 



T10KL>iCR[ 10, 1141] 
KS10.MIC[ 10, 1 141 ] 



15:34 27-JULY-1984 
07: 10 27-JULY-1984 



MICRO 31(254) 



KSlO MICROCODE V124, 27-JUL-84 Page 28 
MICROCODE FIELDS NUMBER FIELD 



1060 ;DDIV STUFF 

1061 AC0=314 

1062 AC1=315 

1063 AC2=316 

1064 AC3=317 

1065 DDIV SGN=320 

1066 DVSOR H=321 

1067 DVSOR L=322 

1068 ;POWERS OF TEN 

1069 DECL0=344 

1070 DECHI=373 
1071 

1072 YSAVE=422 

1073 PTA.E=423 

1074 PTA.U=424 

1075 TRAPPC=425 

1076 SV.AR1=426 
1077 



;LOW WORD 
; HIGH WORD 

Y OF LAST INDIRECT POINTER 

ADDRESS OF EXEC PAGE MAP (NOT PROCESS TABLE) 
ADDRESS OF USER PAGE MAP 
SAVED PC FROM TRAP CYCLE 
ANOTHER PLACE TO SAVE AR 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 31(254) KS10 MICROCODE V124, 27-JUL-84 Page 29 

KS10.MIC[ 10, 1 141 ] 07:10 27-dULY- 1984 MICROCODE FIELDS -- NUMBER FIELD 



1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
K>97 
1098 
1099 
1 100 
1101 
1 102 
1 103 
1 104 
1 105 
1 106 
1 107 
1 108 

I 109 

I I 10 
1111 

I 1 12 

I I 13 
1 1 14 
1 115 
1 1 16 



\H REDEFINED WHEN USED AS PC FLAG CONTROL (ALL ON DPE9) 
SET0V/=<90> 



SETF0V/=<91> 
SETNDV/=<92> 



CLRFPD/=<93> 
SETFPD/=<94> 
HOLD USER/=<95> 



; <96> 

TRAP2/=<97> 

TRAP1/=<98> 



LD PCU/=<99> 
; <100> 
<101> 



<102> 
<103> 
JFCLFLG/=<104> 



LD" FLAGS/ = <105> 
; <106> 
ADFLGS/=<107> 



;DPE9 

; SET ARITHMETIC OVERFLOW 
;SET FLOATING OVERFLOW 
;5ET NO DIVIDE 



CLEAR FIRST PART DONE 
SET FIRST PART DONE 
WHEN THIS BIT IS SET IT: 

1. PREVENTS SETTING USER IOT IN USER MODE 

2. PREVENTS CLEARING USER IN USER MODE 



; SPARE 

;SET TRAP 2 

;SET TRAP 1 



\ LOAD PCU FROM USER 

;SPARE 

; SPARE 



; SPARE 
; SPARE 

;D0 A JFCL INSTRUCTION 



; LOAD FLAGS FROM DP 
; UPDATE CARRY FLAGS 



o 
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1 117 
1 1 18 
1 1 19 
1 120 
1 121 
1 122 
1 123 
1 124 
1 125 
1 126 
1 127 
1 128 
1 129 
1130 
1 131 
1 132 
1 133 
1 134 
1 135 
1 136 
1 137 
1 138 
1 139 
1 140 
1 141 
1 142 
1 143 
1 144 
1 145 
1 146 
1 147 
1 148 
1 149 
1 150 
1 151 
1 152 
1 153 
1 154 
1 155 
1 156 
1 157 
1 158 
1 159 



;# REDEFINED WHEN USED AS MEMORY CYCLE CONTROL 



FORCE USER/=<90> 
FORCE EXEC/=<91> 

FETCH/=<92> 



FORCE USER MODE REFERENCE 
FORCE EXEC MODE REFERENCE 

(DOES NOT WORK UNDER PXCT) 
THIS IS AN INSTRUCTION FETCH 



READ CYCLE/=<93> 
WRITE TEST/=<94> 
WRITE CYCLE/=<95> 



SELECT A READ CYCLE 

PAGE FAILE IF NOT WRITTEN 

SELECT A MEMORY WRITE CYCLE 



; <96> 
DONT CACHE/=<97> 
PHYSICAL/=<98> 



SPARE BIT 

DO NOT LOOK IN CACHE 

DO NOT INVOKE PAGING HARDWARE 



PXCT/=<99 : 101> 

CURRENT=0 
E1 = 1 
D1=3 

BIS-SRC-EA=4 
E2 = 5 

BIS-DST-EA=6 
D2 = 7 



; WHICH PXCT BITS TO LOOK AT 



AREAD/=<102> 
DP FUNC/=<103> 

LDVMA/=<104> 



LET DROM SELECT SYSLE TYPE AND VMA LOAD 
IGNORE U BITS 0-11 AND USE DP 0-13 INSTEAD 

DP9 MEANS "FORCE PREVIOUS" 
LOAD THE VMA 



EXT ADR/=<105> 

WAIT/=<106> 

BWRITE/=<107> 



PUT VMA BITS 14-17 ONTO BUS 
START A MEMORY OR I/O CYCLE 
START A MEMORY CYCLE IF DROM ASKS FOR IT 
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1160 ; THESE BITS ARE USED ONLY TO SETUP DP FOR A DP FUNCTION 
1161 

1162 ; <99> ; PREVIOUS 

1163 10 CYCLE/=<100> ;THIS IS AN I/O CYCLE 

1164 WRU CYCLE/=<101> ; WHO ARE YOU CYCLE 
1165 

1166 ; 

1 167 

1168 VECTOR CYCLE/=<102> ; READ INTERRUPT VECTOR 

1169 10 BYTE/=<103> ; BYTE CYCLE 

1170 ; <104> 
1171 




D 
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1172 ;# REDEFINED WHEN USED 

1 173 PI . ZER/=<90:92> 

1174 PI.IP1/=<93> 

1175 PI.IP2/=<94> 

1176 PI.IP3/=<95> 

1177 PI.IP4/=<96> 

1178 PI.IP5/=<97> 

1179 PI.IP6/=<98> 

1180 PI.IP7/=<99> 

1181 PI.0N/=<100> 

1 182 PI .CQ1/=<101> 

1 183 PI .C02/ = <102> 

1184 I . C03/=< 103> 

1185 I . C04/=< 104> 

1186 I .C05/=<105> 

1187 I . C06/ =< 106> 

1188 I.C07/=<107> 
1 189 



1 190 


;# 


REDEFINED WHEN USED AS WRPI DATA 


1 191 


PI 


,MBZ/=<90:93> 


MUST BE ZERO 


1 192 


PI 


.DIR/=<94> 


DROP INTERRUPT REQUESTS 


1 193 


pi 


CLR/=<95> 


CLEAR SYSTEM 


1 194 


PI 


. REQ/=<96> 


REQUEST INTERRUPT 


1 195 


pi 


,TCN/=<97> 


TURN CHANNEL ON 


1 196 


PI 


TCF/=<98> 


TURN CHANNEL OFF 


1 197 


PI 


TSF/=<99> 


TURN SYSTEM OFF 


1 198 


pi 


TSN/=<100> 


TURN SYSTEM ON 


f 199 


PI 


SC1/=<101> 


SELECT CHANNEL 1 


1200 


PI 


.SC2/=<102> 




1201 


PI 


SC3/=<103> 




1202 


PI 


.SC4/=<104> 




1203 


PI 


SC5/=<105> 




1204 


PI 


SC6/=<106> 




1205 


PI 


SC7/=<107> 





1206 



AS PI RIGHT BITS 
; ZEROS 

;PI 1 IN PROG 



; SYSTEM IS ON 
; CHAN 1 IS ON 



, 27-JUL-84 Page 
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1207 ;# REDEFINED WHEN USED AS AC CONTROL 

1208 

1 209 

1210 ;THIS FIELD CONTROLS THE INPUT TO A 74LS181 ON DPE6. THE NUMBER 

1211 ; FIELD HAS THIS FORMAT IN <98 : 107>: 

1212 ; 

•1213 ; ! ! ! ! ! ! ! ! ! ! 

1214 ; 'CARRY! S8 ! S4 ! S2 ! S1 ! MODE! B8 ! B4 ! B2 ! B1 

1215 ; ! IN ! FUNCTION ! ! DATA INPUTS 

1216 ; ! ! ! ! 

1217 ; 
1218 

1219 ACALU/=<98: 103> 

1220 B=25 

1221 AC+N=62 

1222 ACN/=<104: 107> 

1223 ;AC NAMES FOR STRING INSTRUCTIONS 

1224 SRCLEN=0 ; SOURCE LENGTH 

1225 SRCP=1 ; SOURCE POINTER 

1226 DLEN=3 ; DEST LENGTH 

1227 DSTP=4 ; DEST POINTER 

1228 MARK =3 ; POINTER TO MARK 

1229 BIN0=3 ;HIGH WORD OF BINARY 

1230 BIN1=4 ;LOW WORD OF BINARY 
1231 
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1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 

; 1243 

; 1244 
1245 
1246 

; 1247 

: 1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 

; 1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 

; 1266 
1267 
1268 
1269 
1270 
1271 
1272 

; 1273 
1274 
1275 
1276 
1277 
1278 
1279 



;# FIELD REDEFINED WHEN USE AS APRID DATA 
MICROCODE OPTIONS/=<90:98> 

100 ~ NON-STANDARD MICROCODE 

200 - NO CST AT ALL 

400 - INHIBIT CST UPDATE IS AVAILABLE 
040 - UBABLT INSTRUCTIONS ARE PRESENT 
020 - KI PAGING IS PRESENT 
010 - KL PAGING IS PRESENT 
MICROCODE OPTION( INHCST )/=<90> 
IF/INHCST 

0PT=1 
IF NOT /INHCST 

OPT=0 
ENDI F/INHCST 
MICROCODE 0PTI0N(N0CST)/=<91> 
IF/NOCST 

0PT=1 
IFNOT/NOCST 

OPT=0 
ENDI F/NOCST 
MICROCODE 0PTI0N(N0NSTD)/=<92> 
IF/NONSTD 

0PT=1 
I FNOT/NONSTD 

OPT=0 
ENDI F/NONSTD 
MICROCODE 0PTI0N(UBABLT)/=<93> 
I F/UBABLT 

0PT=1 
I FNOT/UBABLT 

OPT=0 
ENDI F/UBABLT 
MICROCODE 0PTI0N(KIPAGE)/=<94> 
I F/KIPAGE 

0PT=1 
I FNOT/KIPAGE 

OPT=0 
ENDIF/KIPAGE 
MICROCODE 0PTI0N(KLPAGE)/=<95> 
IF/KLPAGE 

0PT=1 
I FNOT/KLPAGE 

OPT-0 
ENDI F/KLPAGE 



MICROCODE VERSI0N/=<99: 107> 

ucv=12 / Ms- 



mcMor^ mm* 
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1280 
1281 
1282 
1283 
1284 
1285 
.1286 
1287 
1288 
1289 
1290 
1291 
1292 
1293 
1294 
; 1295 
; 1296 
1297 
1298 
1299 
1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 
1308 
1309 



;# FIELD REDEFINED WHEN USED AS A HALT CODE 



HALT/=<90: 107> 

P0WER=O 

HALT = 1 
CSL = 2 

I0PF=1OO 

ILLII=101 

ILLINT=102 

BW14= 1000 
NICOND 5=1004 
MULERR=1005 

. I FNOT/FULL 

PAGEF=1777 

. ENDI F/FULL 



CODES O TO 77 ARE "NORMAL " HALTS 
POWER UP 

HALT INSTRUCTION 
CONSOLE HALT 

CODES 100 TO 777 ARE SOFTWARE ERRORS 
I/O PAGE FAIL 

ILLEGAL INTERRUPT INSTRUCTION 

BAD POINTER TO UNIBUS INTERRUPT VECTOR 

CODES 1000 TO 1777 ARE HARDWARE ERRORS 

ILLEGAL BWRITE FUNCTION (BAD DROM) 

ILLEGAL NICOND DISPATCH 

VALUE COMPUTED FOR 10**21 WAS WRONG 

; PAGE FAIL IN SMALL MICROCODE 



;# FIELD REDEFINED WHEN USED AS FLG BITS 



FLG . W/=<94> 
FLG.PI/=<95> 
FLG.C/=<96> 
FLG.SN/=<97> 



W BIT FROM PAGE MAP 
PI CYCLE 

CACHE BIT FROM PAGE MAP 
SPECIAL NEGATE IN FDV & DFDV 



; R I GHT HALF OF FLG USED TO RECOVER FROM PAGE FAILS 
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1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 



.TOC "DISPATCH ROM DEFINITIONS" 
; ALL ON DPEA 



A/=<2:5> 



. DCODE 

READ=0 

WRITE=1 

DREAD=2 

DBLAC=3 

SHIFT=4 

DSHIFT=5 

FPI=6 

FP = 7 

RD-PF=10 
DFP=1 1 
I0T=12 



B/=<8: 11> 

SELF=4 

DBLAC=5 

DBLB=6 

AC=15 

MEM=16 

B0TH=17 



OPERAND FETCH MODE 

READ 

WRITE 

DOUBLE READ 
DOUBLE AC 
SIMPLE SHIFT • 
DOUBLE SHIFT 

FLOATING POINT IMMEDIATE 

FLOATING POINT 

READ, THEN START PREFETCH 

DOUBLE FLOATING POINT 

CHECK FOR 10 LEGAL THEN SAME AS 

STORE RESULTS AS 
SELF 

DOUBLE AC 
DOUBLE BOTH 
AC 

MEMORY 
BOTH 



; B-FI ELD WHEN USED IN FLOATING POINT OPERATIONS 



R0UND/=<8> 

M0DE/=<9> 

FL-B/=<10: 1 1> 
AC=1 
MEM = 2 
B0TH=3 

U/=<12:23> 

ACDISP/=<24> 
I/=<25> 

READ/=<26> 
TEST/=<27> 
COND FUNC/=<28> 
VMA/=<29>D, 1 
WRITE/=<30> 

.UCODE 



ROUND THE RESULT 

SEPARATE ADD/SUB & MUL/DIV ETC. 

STORE RESULTS AS 

AC 

MEMORY 
BOTH 

DISPATCH ADDRESS (MUST BE 1400 TO 1777) 
DISPATCH ON AC FIELD 

IMMEDIATE DISPATCH. DISP/AREAD DOES A DISP/DROM 

IF THIS BIT IS SET. 
START A READ AT AREAD 
START A WRITE TEST AT AREAD 
START A MEMORY CYCLE ON BWRITE 
LOAD THE VMA ON AREAD 
START A WRITE ON AREAD 
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.TOC "HOW TO READ MACROS " 

1.0 REGISTER TRANSFER MACROS 

MOST MACROS USED IN THE KS10 ARE USED TO OPERATE ON DATA IN (OR FROM/TO) 2901 
REGISTERS. THE NAMES OF THE 2901 REGISTERS ARE MACRO PARAMETERS AND ARE 
ENCLOSED IN [.] . A TYPICAL MACRO IS: 

[AR]__[AR] + [BR] 

THE SYMBOL IS PRONOUNCED "GETS" . THE ABOVE MACRO WOULD BE READ "THE AR GETS 
THE AR PLUS THE BR" . 

IF A MACRO DOES NOT HAVE A _ IN IT, THERE IS NO RESULT STORED. THUS, [AR]-[BR] 
JUST COMPARES THE AR AND THE BR AND ALLOWS FOR SKIPS ON THE VARIOUS ALU BITS. 



1 . 1 SPECIAL SYMBOLS 

THERE ARE A BUNCH OF SYMBOLS USED IN THE MACROS WHICH ARE 
THEY ARE DEFINED HERE: 



REGISTERS. 



1 . 
2. 
3. 
4. 

5. 

6. 

7. 

8. 

9. 
10. 
11 . 
12. 
13. 



AC — THE AC SELECTED BY THE CURRENT INSTRUCTION. 
AC[] AC+N. AC[1] IS AC+1, AC [2] IS AC+2 , ETC. 
APR THE APR FLAGS FROM DPMA 

EA — THE EFFECTIVE ADDRESS. THAT IS, O IN THE 
CONTENTS OF THE HR IN THE RIGHT HALF. 



NOT 2901 
SEE DPEA 



LEFT HALF AND THE 



EXP -- THE F.P. EXPONENT FROM THE SCAD. [AR]_EXP WILL TAKE THE 
EXPONENT OUT OF THE FE AND PUT IT BACK INTO THE NUMBER IN THE AR . 

FE -- THE FE REGISTER 

FLAGS THE PC FLAGS (FROM DPE9) IN THE LEFT. HALF. 
THE Q REGISTER 

RAM -- THE RAM FILE, RAM ADDRESS IS IN THE VMA . 

P THE P FIELD OF THE BYTE POINTER. SAME IDEA AS EXP. 

TIME THE 1MS. TIMER" 

VMA THE VMA. WHEN READ IT INCLUDES THE VMA FLAGS 
XR -- INDEX REGISTER 



; T10KL.MCR[ 10, 1 141 ] 

; KS10.MIC[ 10, 1 141 ] 

; 1407 ; 

; 1408 ; 

; 1409 ; 

; 1410 ; 

; 1411 ; 

; 1412 ; 

; 1413 ; 

; 1414 ; 

; 1415 ; 

; 1416 : 

; 1417 ; 

; 1418 ; 

; 1419 ; 

; 1420 ; 

; 1421 ; 

; 1422 ; 

; 1423 ; 

; 1424 ; 

; 1425 ; 

; 1426 ; 

; 1427 ; 

; 1428 ; 

; 1429 ; 

; 1430 ; 

; 1431 

; 1432 ; 

; 1433 ; 

; 1434 ; 

; 1435 ; 

; 1436 ; 

; 1437 ; 

; 1438 ; 

; 1439 ; 

; 1440 ; 

; 1441 ; 

; 1442 ; 

; 1443 ; 

; 1444 ; 

; 1445 ; 

; 1446 ; 

; 1447 ; 

; 1448 ; 

; 1449 ; 

; 1450 ; 

; 1451 ; 

; 1452 ; 

; 1453 ; 

; 1454 ; 

; 1455 
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14. XWD -- HALF WORD. USED TO GENERATE CONSTANTS. FOR EXAMPLE, [AR]_0 XWD 
[403 WOULD LOAD THE CONSTANT 40 (OCTAL) INTO THE AR . 

15. +SIGN AND -SIGN SIGN BITS USED TO SIGN SMEAR F.P. NUMBERS. FOR 
EXAMPLE, [AR]_+SIGN WOULD CLEAR AR BITS TO 8. 

16. WORK[] LOCATIONS IN THE WORKSPACE USED AS SCRATCH SPACE. FOR 
EXAMPLE , [AR]_WORK[CSTM] WOULD LOAD THE AR WITH THE CST MASK FROM THE 
RAM. CSTM IS A SYMBOL DEFINED IN THE WORK FIELD. 



1.2 LONG 

LONG IS USED ON SHIFT OPERATIONS TO INDICATE THAT THE Q REGISTER IS ALSO 
SHIFTED. THIS SAYS NOTHING ABOUT HOW THE SHIFT PATHS ARE CONNECTED UP. 



2.0 MEMORY MACROS 



MEMORY IS INDICATED BY THE SYMBOL "MEM". WHEN WE ARE WAITING FOR DATA FROM 
MEMORY THE "MEM READ" MACRO IS USED. WHEN WE ARE SENDING DATA TO MEMORY, THE 
"MEM WRITE" MACRO IS USED. EXAMPLE, 

MEM READ, ;WAIT FOR MEMORY 

[ AR ]_MEM ; LOAD DATA INTO AR 

VMA__ IS USED THE LOAD THE VMA . THUS, VMA_[PC] LOADS THE VMA FROM THE PC. 



3.0 TIME CONTROL 

THERE ARE 2 SETS OF MACROS USED FOR TIME CONTROL. THE FIRST, SELECTS THE RAM 
ADDRESS TO SPEED UP THE NEXT INSTRUCTION. THESE MACROS ARE AC, AC[], XR , VMA, 
WORK[], THE SECOND, SETS THE TIME FIELD. THESE ARE 2T , 3T , 4T , AND 5T TO 
SELECT 2, 3, 4, OR 5 TICKS. 



4.0 SCAD MACROS 

THE SCAD MACROS LOOK LIKE THE 2901 MACROS EXECPT NO [] ARE REQUIRED. THERE ARE 
ONLY A FEW SYMBOLS USED. 

1 . FE -- THE FE REGISTER 

2. SC THE SC REGISTER 
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1456 ; 

1457 ; 

1458 ; 

1459 ; 

1460 ; 
1461 

1462 ; 

1463 ; 

1464 ; 

1465 ; 

1466 ; 

1467 ; 

1468 ; 

1469 ; 

1470 ; 

1471 ; 

1472 ; 

1473 ; 

1474 ; 

1475 ; 

1476 ; 

1477 ; 

1478 ; 

1479 ; 

1480 ; 

1481 ; 

1482 ; 

1483 ' ; 
1484' ; 

1485 ; 

1486 ; 

1487 ; 

1488 ; 

1489 ; 

1490 ; 
1491 

1492 ; 

1493 ; 

1494 ; 

1495 ; 

1496 ; 

1497 ; 

1498 ; 

1499 ; 

1500 ; 

1501 ; 

1502 ; 

1503 ; 

1504 ; 

1505 ; 
1506 
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3. EXP -- THE EXPONENT FROM A F.P. NUMBER. FOR EXAMPLE FE_EXP LOADS THE 
FE FROM DP BITS 1-8. 

4. SHIFT -- THE SHIFT COUNT FROM SHIFT INSTRUCTIONS. THAT IS DP BITS 18 
AND 28-35. 

5. S# THE SMALL NUMBER . THE 10 BIT MAGIC NUMBER INPUT TO THE SCADA 
MIXER. 



5.0 CONTROL MACROS 

ALL CONTROL MACROS LOOK LIKE ENGLISH COMMANDS. SOME EXAMPLES, 
HOLD LEFT ; DO NOT CLOCK LEFT HALF OF DP 

SET APR ENABLES ; LOAD APR ENABLES FROM DP 

SET NO DIVIDE ; SET NO DIVIDE PC FLAG 



6.0 SKIPS 

ALL SKIPS CAUSE THE NEXT MICRO INSTRUCTION TO COME FROM THE ODD WORD OF AN 
EVEN/ODD PAIR. THE MACROS HAVE THE FORMAT OF SKIP COND . THEY SKIP IF CONDITION 
IS TRUE. SOME EXAMPLES, 

SKIP AD.EQ.O ;SKIP IF ADDER OUTPUT IS ZERO 

SKIP IRPT ;SKIP IF INTERRUPT IS PENDING 



7.0 DISPATCH MACROS 

DISPATCH MACROS CAUSE THE MACHINE TO GO TO ONE OF MANY PLACES. IN MOST CASES 
THEY HAVE THE WORD "DISP" IN THE NAME OF THE MACRO. FOR EXAMPLE, MUL DISP, BYTE 
DISP. 



8.0 SUPER MACROS 

THERE ARE PLACES WHERE ONE MICRO INSTRUCTION IS USED IN MANY PLACES. FOR 
EXAMPLE, MANY PLACES DETECT ILLEGAL OPERATIONS AND WANT TO GENERATE A TRAP TO 
THE MONITOR. WE COULD WRITE 
J/UUO 

BUT THIS WASTES A MICRO STEP DOING A USELESS JUMP . INSTEAD WE WRITE, 
UUO 

THIS MACRO IS THE FIRST STEP OF THE UUO ROUTINE AND JUMPS TO THE SECOND 
INSTRUCTION. WE WRITE THE EXPANSION OF THE UUO MACRO AS THE FIRST INSTRUCTION 
OF THE UUO ROUTINE SO THAT THE READER CAN SEE WHAT IT DOES. SOME EXAMPLES OF 



n. 
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1507 
1508 
1509 
1510 
1511 
1512 
1513 
1514 



SUPER MACROS ARE : 

PAGE FAIL TRAP 
DONE 



HALT [3 



GENERATE A PAGE FAIL TRAP 

THIS INSTRUCTION IS NOW COMPLETE 

USED WITH A SKIP OR DISP WHERE 

SOME PATHS ARE NOP'S 
JUMP TO HALT LOOP. ARGUMENT IS A 

CODE 
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1515 


.TOC "MACROS 


-- DATA PATH CHIP -- GENERAL" 


1516 
1517 


NOT r 1 


"AD/ . NOT . A , A/@>1 " 


1518 


F 3 + F 1 


"AD/A+B , A/<§>1 ,B/@2" 


1519 


E 3-E 3 


"AD/A-B- . 25, A/@1 , B/@2 , ADD . 25" 


1 520 


E 3 ~# 


" AD/A-D- . 25 , DBUS/DBM, DBM/# , A/@1 , ADD .25" 


152 1 


[ 3 . AND . # 


" AD/D . AND . A , DBUS/DBM , DBM/# , A/@ 1 " 


1522 


[ 3 . AND . Q 


"AD/A . AND . 0, A/@>1 , DE ST/PASS" 


1523 


[ 3 . AND . [ ] 


"AD/A . AND . B , A/@2 , B/@>1 , DEST/PASS " 


1 524 


[ 3 . AND . NOT . [ 3 


"AD/ . NOT . A . AND .B , A/#2 ,B/@1 , DEST/PASS" 


1 525 


r 1 OR f 3 


"AD/A. OR. B, A/@2, B/@1 , DEST/PASS" 


1 526 


[ 3 . XOR . # 


" AD/D . XOR . A , DBUS/DBM , DBM/# , A/@1 " 


1 527 


[ ] . xor . [ 3 


" AD/A. XQR. B, A/@2,B/@1 , DEST/PASS" 


1 528 


r i #- r i 


"AD/D- A - . 25 , DEST /AD , A/® 2 , B/@>1 , DBUS/DBM , DBM/# , ADD . 25 " 


1 529 


[ 3 # 


"AD/D DBUS/DBM DBM/# DEST/AD B/@1" 


1 UOU 


C 3 ~ 1 


"AD/- A- 25 A /ONE DEST/AD B/@1 ADD 25" 


1531 


[ ] - 2 


" AD/-A- . 25 , DEST/AD* 2 , A/ONE , B/@ 1 , ADD .25" 


1 532 


[ 3 ~Q 


"AD/-Q- . 25, DEST/AD, B/@>1 , ADD .25" 


1533 


[ 3 -Q*2 


" AD/-Q- . 25 , DEST/AD*2 , B/@ 1 , ADD .25" 


1 534 


C J -Q* . 5 


"AD/-Q- . 25 , DEST/AD* . 5 , B/@1 , ADD .25" » 


1 535 


f 1""- F 3 * 

L J L j 


"AD/-A- . 25 , A/@2 , DEST/AD , B/@1 , ADD .25" 


1 536 


r i - f 1 - 25 

L J L J - --' 


"AD/-A- . 25 , A/@2 , DEST/AD , B/<e>1 " 


1537 


[ 3 -[3*2 


"AD/-A- . 25 i A/@2 , DEST/AD* 2 , B/® 1 , ADD .25" 


1 538 


[ 3 . NOT . AC 


" AD/ . NOT . D , DBUS/RAM, RAMADR/ AC # , DEST/AD , B/@ 1 " 


1539 


[ ]"~. NOT . AC[ 3 


"AD/ . NOT . D , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N , ACN/@2 , DEST/AD , B/@ 1 , DT/3T " 


1540 


E 3". NOT . Q 


"AD/ . NOT . Q, DEST/AD , B/@1 " 


154 1 


E 3 . not . [ 3 


" AD/. NOT. A ,A/@2, DEST/AD, B/@1 " 


1542 


[30 


" AD/ZERO, DEST/AD, B/<§M " 


1 543 


[ ] 0* . 5 LONG 


"AD/ZERO , DEST/O Q*.5,B/@1" 


1544 


[ 3~o xwd [ ] 


"AD/47 , DEST/AD, B/@1 , DBM/# , DBUS/DBM , #/@2 , RSRC/DA , A/MASK" 


1545 


[ 3~~AC 


"AD/D, DBUS/RAM, RAMADR/AC# , DEST/AD ,B/@1 , AD PARITY" 


1 546 


[ ]~- AC 


" AD/-D- . 25 , DBUS/RAM , RAMADR/AC# , DEST/AD , B/@ 1 , ADD . 25 " 


1 547 


r "!~~~ACF 3 


"AD/-D- . 25 \ DBUS/RAM \ RAMADR/AC*# , ACALU/AC+N , ACN/#2 , DEST/AD , B/@1 , ADD . 25 ,DT/3T" 


1 548 


[ 3 AC* 5 


"AD/D,DBUS/RAM,RAMADR/AC#,DEST/AD* .. 5,B/@1 ,DT/3T" 


1 549 


r I A c * R I CiMd 

l J f-\ v-f ~ . «J uUlilvjl 


"AD/D , DBUS/RAM, RAMADR/AC# , DEST/Q Q* . 5 , B/@ 1 , DT/3T " 


1 rrh 

1 J JU 


[ 3~~AC*2 


"AD/D DBUS/RAM RAMADR/AC# DEST/AD*2 B/@1 DT/3T" 


1551 


[ 3 AC+1 


"AD/D+A DBUS/RAM RAMADR/AC# A/ONE DEST/AD B/@1" 


1552 


f ] a r + i OOOO0 1 

L J M \j ' 1 \J\J\J\J\J 1 


"AD/D+A , DBUS/RAM , R AM ADR/ AC # , A /XWD 1 „ DEST /AD , B/@ 1 " 


1 553 




"AD /D+A , A/@2 , DBUS/RAM , R AM ADR/ AC # , DEST/AD , B/@ 1 , DT/3T " 


1554 


[ 3 AC- 1 


"AD/D- A- .25 , DBUS/RAM , RAMADR/AC# , A/ONE , DEST/AD , B/@> 1 , ADD . 25 " 


1 555 


F 1~AC- r 3 


"AD/D-A- .25, A/@2, DBUS/RAM, RAMADR/AC#, DEST/AD, B/@1 , ADD .25" 


1 556 


[ 3 AC- [ 3 - . 25 


"AD/D- A - . 25 , A/@2 , DBUS/RAM , RAMADR/AC# , DEST/AD , B/@»1 " 


1 557' 


F 3~~ACF 3 - F 3 


"AD/D-A- . 25 ! A/@3 [ DBUS/RAM \ RAMADR/ AC* # , ACALU/AC+N , ACN/@2 , DEST/AD , B/#1 , ADD . 25 , DT/3T" 


1558 


E3 ac [ ] - 1 


"AD/D-A- . 25, A/ONE , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N , ACN/@2 , DEST/AD , B/@ 1 , ADD . 25.DT/3T 


1559 


[1 AC M . AND . [ 3 


"AD/D . AND . A , A/@3 , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@2 , DEST/AD , B/@ 1 , DT/3T " 


1560 


[] AC. AND. MASK 


"AD/D . AND . A , A/MASK , DBUS/RAM , RAMADR/AC# , DEST/AD , B/@ 1 , AD PARITY " 


1561 


E3 ACE 3 


"AD/D , DBUS/RAM, RAMADR/AC*^ , ACALU/AC+N , ACN/@2 , DEST/AD , B/@> 1 , AD PARITY , DT/3T" 


1562 


[] AC [3*2 


" AD/D, DBUS/RAM, RAMADR/AC*^, ACALU/AC+N, ACN/@2 , DEST/AD*2 , B/@ 1 , AD PARITY , DT/3T " 


1563 


[3 AC[ 3*. 5 


"AD/D , DBUS/RAM , RAMADR/ AC*# , ACALU/AC+N , ACN/@2 , DEST/AD* . 5 , B/<© 1 , AD PARITY , DT/3T " 


1564 


E ] APR 


"AD/D , DBUS/DBM , DBM/APR FLAGS , DEST/AD , B/@ 1 , DT/3T " 


1565 


[ 3 CURRENT AC [ 3 


"AD/D , DBUS/RAM , RAMADR/ # , ACALU/B ', ACN/W , DEST/AD , B/@1 , AD PARITY , DT/3T " 


1566 


[3 EA FROM [3 


"AD/57 , RSRC/OA , A/@2, DEST/AD , B/@ 1 " 


1567 
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1568 [ ]_EA "AD/57, R5RC/0A, A/HR, DEST/AD, B/@1 " 

1569 [ ]__EXP " AD/D , DBUS/DBM , DBM/EXP , A/@ 1 ,B/@1 , DEST/A , SCAD/A+B , SCADA/S# , S#/0 , SCADB/FE , HOLD RIGHT, EXP TEST 

1570 [ ]_FE "AD/D , DEST/AD* . 5 , B/@ 1 , DBUS/DBM , DBM/DP , SCAD/A+B , SCADA/S# , S#/0 , SCADB/FE , BYTE/BYTE5 " 

1571 [ ]_FLAGS "AD/D . AND . A , DBUS/PC FLAGS , A/MASK , DEST/AD , B/@ 1 .RSRC/OO" 

1572 [ )jP " AD/D, DEST/A, A/@1 ,B/@1 , DBUS/DBM , DBM/DP , BYTE/BYTE 1 , SCAD/A+B , SCADA/S# , S#/0 , SCADB/FE " 

1573 []_PC WITH FLAGS " AD/D , DBUS/PC FLAGS , RSRC/OA , A/PC , DEST/AD , B/@ 1 " 

1574 []_0 "AD/O, DEST/AD, B/@1 " 

1575 []__Q*.5 "AD/ Q, DEST/AD*. 5, B/@ 1 " 

1576 []__Q*2 "AD/Q,DEST/AD*2,B/@>1 " 

1577 [ ]__0*2 LONG " AD/O , DEST/0„0*2 , B/f» 1 " 

1578 [ ]__Q+1 "AD/A+Q, A/ONE, DEST/AD, B/@1 " 

1579 []„RAM "AD/D, DBUS/RAM , RAMADR/RAM , DEST/AD, B/@1 , AD PARITY" 

1 580 [ ]__TIME "AD/44 , RSRC/DA , A/MASK , DBUS/DBM , DBM/EXP , DEST/AD , B/@ 1 " 

1581 [ ]__VMA "AD/D, DEST/AD , B/@> 1 , DBUS/DBM, DBM/VMA" 

1582 [ ]__XR "AD/D, DBUS/RAM, RAMADR/XR#, DEST/AD, B/@1 " 

1583 [ ]_[ ] "AD/A, A/t3>2, DEST/AD, B/<e>1 " 

1584 [Li] SWAP "AD/D, DBUS/DBM, DBM/DP SWAP , DEST/A , A/@2 , B/@ 1 " 

1585 []_J] XWD O "AD/ 45 , DEST/AD , B/@ 1 , DBM/ # , DBUS/DBM , #/@2 , R SRC/DO , A/MASK " 

1586 []_[]*. 5 "AD/A, A/@2, DEST/AD*. 5, B/@1 " 

1587 []_[]*. 5 LONG "AD/ A , A/@>2 , DEST/ 0_0* . 5 , B/@ 1 " 

1588 [ ]_[ ]*2 "AD/A, A/@2 , DEST/AD*2 , B/@ 1 " 

1589 []_[]*2L0NG " AD/A , A/@2 , DEST/0_0*2 , B/@ 1 " 

1590 [ ]_J ]*4 "AD/A+B, A/@2,B/@1 ,DEST/AD*2" 

1591 [ ]__[ ]+# "AD/D+A, DBUS/DBM, DBM/#,A/@>2, DEST/AD, B/@1 " 

1592 []_[]+- 25 "AD/O+A, A/@2, DEST/AD, B/@1 , ADD .25" 

1593 []_J3+0 "AD/O+A, A/@2 , DEST/AD, B/@1" 

1594 []_[]+1 "AD/A+B, A/ONE, B/©1 ,B/@2, DEST/AD" 

1595 [ ]__[ ] + 1000001 "AD/D+A, A/@>2, DBUS/DBM, DBM/#, #/1 , DEST/AD , B/@ 1 " 

1596 [ 3„E ]+AC "AD/D+A , A/@>2 , DBUS/RAM , RAMADR/ AC# , DEST/AD , B/@ 1 " 

1597 [ ]_E ]+AC[ ] "AD/D+A, A/@2 , DBUS/RAM, RAMADR/AC*# , ACALU/AC+N , ACN/<6>3 , DEST/AD, B/@1 ,DT/3T" 

1598 C 3_E 3+Q "AD/A+Q, A/@>2, DEST/AD, B/@1 " 

1599 E 3_J 3+RAM "AD/D+A, A/@2, DBUS/RAM, RAMADR/RAM, DEST/AD, B/@1 " 

1600 [ ]_f 3+XR "AD/D+A , DBUS/RAM , RAMADR/XR# , A/@2 ,DEST/AD,B/@1 , HOLD LEFT" 

1601 [ ]_[ ] + [ ] "AD/A+B, A/@3,B/@1 , B/@2 , DEST/AD " 

1602, C3_C3+[3+-25 "AD/A+B, A/@3,B/@1 , B/@2 , DEST/AD, ADD .25" 

1603, ' []_[]-# M AD/A-D- . 25, DBUS/DBM, DBM/#, A/@2, DEST/AD, B/@1 , ADD .25" 

1604 []_[]- 1 "AD/B-A- . 25,B/@1 , A/ONE , DEST/AD , ADD . 25" 

1605 [}_[]- 1000001 "AD/A-D- . 25 , A/@2 , DBUS/DBM , DBM/ # , #/ 1 , DEST/AD , B/@ 1 , ADD . 25 " 

1606 [ ]_E 3 -AC "AD/A-D- . 25 , A/@2 , DBUS/RAM , RAMADR/AC# , DEST/AD , B/@ 1 , ADD . 25 " 

1607 f 3_E 3 -RAM "AD/A-D- . 25 , A/@2 , DBUS/RAM , RAMADR/RAM , DEST/AD , B/@ 1 , ADD . 25" 

1608 E3_E3-[1 "AD/B-A- .25, B/@1 ,B/@2,A/@3, DEST/AD, ADD .25" 

1609 []_[]-[] REV "AD/A-B- .25, B/@>1 ,B/@3,A/@2, DEST/AD, ADD .25" 
161© [ ]__[ 3 . AND . # "AD/D. AND. A, DBUS/DBM, DBM/#, DEST/AD, A/@2,B/@1 " 

1611 [ 3_C 3 • AND . H CLR LH "AD/ZERO , RSRC/DA , DBUS/DBM , DBM/ #, DEST/AD , A/@2 , B/@ 1 " 

1612 E3__E3.AND.# CLR RH "AD/D . AND . A , RSRC/OO , DBUS/DBM , DBM/# , DEST/AD , A/@2 , B/@> 1 " 

1613 [ 3_(AC[ 3 .AND. E 3 )* . 5 "AD/D . AND . A , DEST/AD* . 5, A/@3,B/@1 , RAMADR/AC*# , DBUS/RAM , AC ALU/ AC+N , ACN/@2 " 

1614 [ 3„(0+1 )*-5 " AD/A+Q, A/ONE, DEST/AD*. 5, B/®1 11 

1615 E ]_(#-[ 3 )*2 "AD/D- A- . 25 , DEST/AD*2 , A/@2,B/@1 , DBUS/DBM , DBM/ # , ADD .25" 

1616 {]_(-[])*. 5 "AD/-A-. 25, A/@2, DEST/AD*. 5, B/@1 , ADD .25" 

1617 E3_(-E3--25)*.5 LONG "AD/-A- . 25 , A/@2 , DEST/0_0* . 5 , B/@1 » 

1618 [ ]_(-[ ]-.25)*2 LONG "AD/- A - . 25 , A/@>2 , DEST/Q_Q*2 , B/@1 " 
1619 
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1620 [.]_( C ] . AND . # ) * . 5 "AD/D . AND . A , DBUS/DBM , DBM/ # , DEST/AD* . 5 , A/@2 , B/@ 1 " 

1621 []_([] .AND.#)*2 "AD/D . AND .A , DBUS/DBM , DBM/ # , DEST/ AD*2 , A/@2 , B/@ 1 " 

1622 C ]_( t ] - AND . NOT . # ) * . 5 " AD/ . NOT , D . AND . A , DBUS/DBM , DBM/ ft , DEST/ AD* . 5 , A/@2 , B/@ 1 " 

1623 []_([]. AND. NOT. #)*2 "AD/ . NOT . D . AND . A , DBUS/DBM , DBM/ , DEST/ AD*2 , A/@>2 , B/@> 1 " 

1624 [ ]__( E ] .AND. [ ] )*.5 "AD/ A .AND . B , DEST/ AD* . 5 , A/<®3 , B/@ 1 , B/@2 " 

1625 [ ]_( [ J.AND. [ 3 )*2 "AD/A, AND. B,DEST/AD*2, A/@3,B/@1 ,B/@2" 

1626 []__([] . OR .#) * . 5 11 AD/D . OR . A , DBUS/DBM , DBM/# , DEST/AD* . 5 , A/@2 , B/@ 1 " 

1627 [ ]__( [ ] .0R.#)*2 " AD/D . OR . A , DBUS/DBM , DBM/ # , DEST/ AD*2 , A/#2 , B/@>1 " 

1628 [ ]_( [ ]+#)*2 " AD/D+A , DBUS/DBM, DBM/ # , DE5T/AD*2 , A/@>2 , B/#1 " 

1629 []_([]+1)*2 "AD/A+B, A/ONE, B/@ 1 , B/@2 , DEST/AD*2 " 

1630 [ ]_( t ] + t 1 -)*-5 LONG " AD/A+B , A/@3 , B/@ 1 , B/@2 , DEST/Q_Q* . 5 " 

1631 U_([] + [])*2 LONG "AD/A+B, A/@3,B/@1 ,B/@2,DEST/Q_Q*2" 

1632 []_([]-[])*• 5 LONG " AD/B - A- . 25 , A/@3 , B/@ 1 , B/@2 , DEST/0_Q* . 5 , ADD .25" 

1633 [J_([]-[])*2 LONG " AD/B-A- . 25 , A/@3 , B/@1 , B/@2 , DEST/Q__Q*2 , ADD .25" 

1634 []„([]+[]+. 25)*. 5 LONG "AD/A+B , A/@3, B/@1 , B/@2 , DEST/0_Q* . 5 , ADD .25" 

1635 [ ]__[ ] .AND. AC " AD/D . AND . A , DBUS/RAM , RAM ADR/ AC# , A/@>2 , DEST/AD , B/@ 1 " 

1636 []_[]• AND . NOT . ft "AD/ . NOT . D . AND . A , DBUS/DBM , DBM/ # , A/@>2 , DEST/AD , B/@1 " 

1637 [ ]_[ ] .AND. NOT. [] " AD/ . NOT . A . AND . B , DEST/AD , B/@1 ,B/@2, A/(3>3" 

1638 [ ]_J ] .AND. NOT. AC "AD/ . NOT .D . AND . A , DBUS/RAM , RAMADR/AC# , A/@2 , DEST/AD , B/@1 " 

1639 []_J3.AND.Q " AD/A . AND ,Q , A/@2 , DEST/AD , B/@ 1 " 

1640 [ ]_[ 3 -AND. [ 3 "AD/A. AND . B , A/@>3 , B/@ 1 , B/<°>2 , DEST/AD " 

1 ^4 1 3 - EQV . AC "AD/D . EQV . A , DBUS/RAM , RAMADR/AC# , A/@2 , DEST/AD , B/@ 1 " 

1642 C3_[3-EQV.Q "AD/A. EQV. -Q,A/@2, DEST/AD, B/@1" 

1643 []_[]. OR. # "AD/D. OR. A, DBUS/DBM, DBM/#,A/@2, DEST/AD, B/@1" 

1644 [ ]_[ ] .OR. AC "AD/D. OR. A, DBUS/RAM, RAMADR/AC# , A/@2 , DEST/AD , B/@ 1" 

1645 [ ]_[ ] .OR. FLAGS " AD/D . OR . A , DBUS/PC FLAGS , RSRC/OA , A/0 1 , DEST/AD , B/@ 1 " 

1646 []_[]. OR. [J "AD/A. OR. B, A/@3 , B/@>2 , B/@ 1 , DEST/AD" 

164 ? C ■ XOR . # " AD/D . XOR . A , DBUS/DBM , DBM/ # , DEST/AD , A/@2 , B/0 1 " 

1648 [ ]__[ 3 .XOR. AC " AD/D. XOR. A, DBUS/RAM, RAMADR/AC# , A/©-1 , DEST/AD , B/@2 " 

1649 [3_C3.XOR.t3 "AD/A. XOR. B, A/@3,B/@1 ,B/@2, DEST/AD" 
1650 

1651 [] LEFT_0 "AD/57 , RSRC/OB , DEST/AD , B/#1 " 

1652 [] RIGHT__0 "AD/53 , RSRC/DO , DEST/AD , B/0 1 " 

1653 [3 LEFT_- 1 "AD/54 , RSRC/OB , DEST/AD , A/MASK , B/@ 1 " 

1654 [3 RIGHT_-1 " AD/53 , RSRC/OA , DEST/AD , A/MASK , B/0 1 " 
1655 

1656 

1657 [3_+SIGN "[>13_[@13.AND.#, #/777, HOLD RIGHT" 

1658 []_~SIGN n [C»1]_|>1].0R.#, #/777000,; HOLD RIGHT" 



1659 ; THE FOLLOWING 2 MACROS ARE USED IN DOUBLE' FLOATING STUFF 

1660 ; THEY ASSUME THAT THE OPERAND HAS BEEN SHIFTED RIGHT 1 PLACE. 

1661 ; THEY SHIFT 1 MORE PLACE 

1662 t ]_+SIGN* . 5 "AD/ . NOT . D . AND . A , A/@ 1 , B/0 1 , DEST/AD* . 5 , DBUS/DBM , DBM/ # , #/777400 , RSRC/OA " 

1663 [ ]_-SIGN*.5 "AD/D. OR. A, A/@1 ,B/@1 , DEST/ AD* . 5 , DBUS/DBM , DBM/ # , #/777400, RSRC/OA " 
1664 



n 
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0" 



Q-U 

0. AND. NOT. [ ] 
G_[3 

Q_n-u 
Q_n+n . 

Q_[ 3 -AND. [ 3 
Q_.NOT.AC[ ] 

o_-n 

Q_-1 

0_-AC[3 "AD/-D- 



-Q 




Q~~AC 




Q~AC[ 3 




AC [3. AND. 


MASK 


AC[ 3 - AND. 


[3 


.NOT.O 




Q # 




Q 




Q XWD [ 3 




Q Q+.25 




Q+1 




0-1 




QJ3+AC 




Q__Q* . 5 




Q*2 




Q Q.OR.# 




Q.AND.# 




0. AND. [ 3 




0. AND. NOT 


.[3 


Q Q+[3 




[3.AND.0 




E3-0R.0 





" AD/Q-A- . 25 , A/@1 , ADD .25" 
"AD/.N0T.A.AND.Q,A/@1 ,DEST/PASS" 
" AD/A , DEST/Q_AD , A/@1 " 

" AD/A -B - . 25 , A/@> 1 , B/@2 , DEST/Q_AD , ADD . 25 " 

" AD/A+B , A/@ 1 , B/@2 , DEST/0_AD " 

" AD/A . AND . B , A/@ 1 , B/@2 , DEST/0_AD " 

"AD/ . NOT . D , DBU5/RAM , RAMADR/ AC*# , AC ALU/ AC+N , ACN/ @ 1 , DEST/0_AD , DT/3T " 
"AD/-A- . 25,DEST/Q_AD, A/@1 , ADD .25" 
"Q__-[0NE3 " 

25 , DBUS/RAM, RAMADR/AC*# , ACALU/AC+N , ACN/@> 1 , DEST/0_AD , ADD . 25 , DT/3T " 
"AD/-Q- . 25, ADD . 25 , DEST/Q_AD " 

" AD/D , DBUS/RAM , RAMADR/ AC# , DEST/Q_AD ,.CHK PARITY " 

" AD/D , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N , ACN/@> 1 , DEST/ 0_AD , CHK PARITY , DT/3T " 

"AD/D. AND. A, A/MASK, DBUS/RAM, RAMADR/AC*#, ACALU/AC+N, ACN/@1 , DEST/ 0_AD , CHK PARITY , DT/3T " 

"AD/D . AND . A , A/@2 , DBUS/RAM , RAMADR/AC*# , ACALU/AC+N , ACN/@1 , DEST/0_AD , CHK PARITY , DT/3T " 

" AD/ . NOT . , DEST/Q_AD " 
"AD/D , DBUS/DBM , DBM/# , DEST/ Q_AD " 
"AD/ZERO , DEST/Q_AD " 

" AD/47 , DEST/ Q_ AD , DBM/# , DBUS/DBM , #/@ 1 , RSRC /DA , A/MASK " 

"AD/0+Q,DEST/Q_AD, ADD .25" 

" AD/A+Q , A/ONE , DEST/ 0_AD " 

" AD/Q-A - . 25 , A/ONE , DEST/ 0_AD , ADD .25" 

" AD/D+Q , DBUS/RAM , RAMADR/AC# , DEST/Q_AD " 

"[MAG3_[MASK3*-5 LONG, SHSTYLE/NORM 11 

" [MASK3_[MAG3*2 LONG, SHSTYLE/NORM" 

"AD/D . OR . Q , DBUS/DBM , DBM/# - DEST/Q_AD " 

"AD/D . AND . , DBUS/DBM , DBM/ # , DEST/Q_AD " 

" AD/A . AND . , A/@ 1 , DEST/ 0_AD " 

"AD/ . NOT . A . AND . Q , A/@ 1 , DEST/0_AD " 

"AD/A+O, A/@1 ,DEST/0_AD" 

"AD/A. AND. Q,A/@1 ,DEST/Q_AD" 

" AD/ A . OR . Q , A/@ 1 , DEST/ 0_AD " 
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1700 ' .TOC "MACROS -- DATA PATH CHIP -- MISC." 
1701 

1702 CLEAR [ ]0 " AD/D . AND . A , A/@1 , DBUS/DBM , DBM/# , #/377777 , DEST/AD , B/@1 , HOLD RIGHT" 

1703 CLEAR ARXO "CLEAR [ARX]0" 
1704 

1705 ;CYCLE CHIP REGISTERS THRU AD SO WE CAN TEST BITS 

1706 READ XR " AD/D , DBUS/RAM , RAMADR/XR# " 

1707 READ [3 "AD/B,B/@1" 

1708 READ "AD/Q" 
1709 

1710 ; TEST BITS IN REGISTERS (SKIP IF ZERO) 

1711 TR [3 "AD/D. AND. A, DBUS/DBM, DBM/#, A/@1 , SKIP ADR . EQ . O , DT/3T " 

1712 TL [] "AD/D . AND . A , DBUS/DBM , DBM/# , A/@ 1 , SKIP ADL . EQ . , DT/3T " 
1713 

1714 

1715 ; CAUSE BITS -2 AND -1 TO MATCH BIT O. 

1716 FIX [] SIGN "AD/D, DEST/A, A/@1 , B/@ 1 , DBUS/DP , HOLD RIGHT" 
1717 

1718 ; GENERATE A MASK IN AND ZERO A 2901 REGISTER 

1719 GEN MSK [3 "AD/ZERO , DEST/ Q_Q*2 , B/@> 1 , ONES " 
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1721 


.TOC "MACRO 


1722 






1723 


FM WRITE 


1724 






1725 


ac[; 


C3 VIA AD 


1726 


AC { 


3 VIA AD 


1727 


AC[ 


I E3 


1728 


AC[" 


I '[] TEST 


1729 


AC[ " 


I H + 1 


1730 


ac[; 


i C 3*2 


1731 


AC ! 


3 


1732 


AC I 


3 TEST 


1733 


AC ! 


3 + 1 


1734 


AC I 


;3+q 


1735 


acc ; 


I C3+Q 


1736 


AC{ ; 


LH-E3 


1737 


ac[ ; 


I C3+C3 


1738 


AC | 


3 + C3 


1739 


ac[; 


LC3.and.C3 


1740 


ac[; 


O.AND. C 3 


1741 


ac[; 


C3.E0V.0 


1742 


AC[ " 




1743 


AC - 


-n 


1744 


AC I 


3.0R.C3 


1745 


ac[ ; 


I .N0T.C3 


1746 


AC 


NOT . [ 3 


1747 


acc; 


!„-Q 


1748 


AC C 




1749 


acc; 





1750 


acc ; 


1 


1751 


acc ; 


Q 


1752 







-- STORE IN AC" 
"FMWRITE/1 " 

" AD/B , DEST/PASS , B/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE , CHK PARITY " 

" AD/B , DE ST/PASS , B/@ 1 , RAMADR/ AC# , DBUS/DP , FM WRITE , CHK PARITY" 

"AD/A , DEST/A , B/@2 , A/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@> 1 , DBUS/DP , FM WRITE " 

" AD/D , DBUS/DP , DEST/A , B/@2 , A/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

" AD/A+B , DEST/PASS , A/ONE , B/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

" AD/A+B , DEST/PASS , A/@2 , B/@2 , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

"AD/A, DEST/A, B/@1 , A/@1 , RAMADR/ AC# , DBUS/DP , FM WRITE" 

"AD/D, DBUS/DP . DEST/A, B/@1 , A/@1 , RAMADR/AC# , DBUS/DP , FM WRITE" 

"AD/A+B , DEST/PASS , A/ONE , B/@ 1 , RAMADR/ AC# , FM WRITE " 

" AD/A+O, DEST/PASS, A/@1 ,B/@1 , RAMADR/AC# , FM WRITE" 

" AD/A+O , DEST/PASS , A/@2 , B/@>2 , RAMADR/AC* H , ACALU/AC+N , ACN/@ 1 , FM WR ITE " 

"AD/A-B- .25, DEST/PASS, B/@3, A/@2, RAMADR/ AC* #, ACALU/AC+N, ACN/@1 , DBUS/DP, FM WRITE, ADD .25" 
"AD/A+B , DEST/PASS , B/<§>3 , A/<p>2 , RAMADR/AC*# , ACALU/AC+N , ACN/@> 1 , DBUS/DP , FM WRITE " 
"AD/A+B , DEST/PASS , B/<5>2 , A/@ 1 , RAMADR/AC^ , DBUS/DP , FM WRITE " 

"AD/A . AND . B , DEST/PASS , B/@3 , A/@2 , RAMADR/AC* # , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE " 

"AD/ A . AND . , DEST/PASS , A/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@1 , DBUS/DP , FM WRITE " 

"AD/A . EQV . , DEST/PASS , A/@2 , RAMADR/AC *# , ACALU/AC+N , ACN/@1 , DBUS/DP , FM WRITE " 

" AD/-B- . 25 , DEST/PASS , B/@2 , RAMADR/AC* # , ACALU/AC+N , ACN/@1 , DBUS/DP , FM WRITE , ADD . 25" 

"AD/ -A- . 25 , DEST/PASS , A/@> 1 , RAMADR/ AC# , DBUS/DP , ADD .25, FM WRITE" 

"AD/A . OR . B , A/@1 , B/@2 , RAMADR/ AC# , DBUS/DP , FM WRITE " 

"AD/ . NOT . B , DEST/PASS , B/@2 , RAMADR/ AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WR ITE " 

"AD/ . NOT . B , DEST/PASS , B/@ 1 , RAMADR/ AC# , DBUS/DP , FM WRI TE " 

" AD/-Q- . 25 , RAMADR/AC *# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRITE , ADD . 25 " 

"AD/ , RAMADR/AC # , DBUS/DP , FM WRITE" 

"AD/ZERO , RAMADR/ AC*# , ACALU/AC+N , ACN/@1 , DBUS/DP , FM WRITE " 

"AD/B , DEST/PASS , B/ONE , RAMADR/ AC*# , ACALU/AC+N, ACN/@1 , DBUS/DP , FM WRITE " 

" AD/Q , RAMADR/AC*# , ACALU/AC+N , ACN/@ 1 , DBUS/DP , FM WRI TE " 
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; 1753 .TOC "MACROS MICROCODE WORK SPACE" 

; 1754 \ 

; 1755 

; 1756 WORK[]^0 " AD/O , DEST/PASS , RAMADR /# , WORK/@ 1 , FM WRITE " 

; 1757 Q_WORK[ ] " AD/D , DEST/Q_AD ,'RAMADR/ # , DBUS/RAM , WORK/® 1 ,DT/3T" \ 

; 1758 WORK[]_0 "AD/ZERO, DEST/PASS , RAMADR/# , WORK/@ 1 , FM WRITE" \ 

; 1759 W0RK[]__1 " AD/B , DE ST/PASS , RAMADR/ # , W0RK/@1 , B/ONE , FM WRITE " 

; 1760 WORK[3__C3 "AD/B , DE ST/PASS , RAMADR/ # , WQRK/@ 1 , B/@>2 , FM WRITE " 

; 1761 WORK[3_[3 CLR LH " AD/47 , RSRC/ AB , DE ST/PASS , RAMADR/ # , WORK/ @ 1 , B/@2 , A/MASK , FM WRITE" 

; 1762 W0RK{]_[3-1 " AD/A-B- . 25 , A/^2 , B/ONE , DE ST/PASS , RAMADR/ # , WORK/ @> 1 , FM WRITE , ADD .25" 

f ; 1763 WORK[ ]__.NOT. [ 3 " AD/ . NOT . B , DEST/PASS , RAMADR/# , WORK/® 1 , B/@2 , FM WRITE" 

/ ; 1764 WORK [ 3_[ 3 - AND . [ 3 "AD/ A . AND . B, DEST/PASS , RAMADR/ # , W0RK/@1 , A/@2 , B/@3 , FM WRITE" 

; 1 765 [ 3 • AND . NOT . WORK [ 3 " AD/ . NOT . D . AND . A , A/f> 1 , DBUS/RAM , RAMADR/# , WORK/02 , DT/3T " 

; 1766 t ] . AND . WORK[ ] " AD/D . AND . A , A/@1 , DBUS/RAM , RAMADR/ # , WORK/® 2 , DT/3T " 

= ; 1767 [ ]_[ 3+W0RK[ ] " AD/D+A , A/@2 , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/# , WORK/ ®3 , DT/3T " 

I ; 1768 [ 3_[ 3 „ AND . WORK[ 3 " AD/D . AND . A , A/@2 , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/ # , W0RK/@3 , DT/3T " 

- ; 1769 E 3_J 3 -AND. NOT. WORK [ 3 " AD/ . NOT .. D . AND . A , A/@2 , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/ # , W0RK/@3 , DT/3T 

| ; 1770 [ ]__[ 3 .OR. WORK [ 3 "AD/D . OR . A , A/@2 , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/ # , WORK/ @3 , DT/3T " 

; 1771 [ ]_WORK[ ] "AD/D , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/# , W0RK/@2 , DT/3T " 

I ; 1772 [ 3_.N0T.W0RK[ 3 "AD/. NOT . D, DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/ # , WORK/ ®2 , DT/3T " 

§ ; 1773 [ ]_-WORK[ ] " AD/-D- . 25, ADD . 25 , DEST/ AD , B/@> 1 , DBUS/RAM , RAMADR/ # , WORK/® 2 , DT/3T " 

i ; 1774 []__W0RK[] + 1 "AD/D+A , A/ONE , DEST/AD , B/@ 1 , DBUS/RAM , RAMADR/ # , W0RK/@2 , DT/ 3T " 

I ; 1775 Q_Q-W0RK[3 " AD/Q-D- . 25 , DEST/ Q_AD , DBUS/RAM , RAMADR/ # , WORK/® 1 , ADD .25,DT/3T" 

% ; 1 776 [ ]__[ 3 -WORK [ 3 " AD/A-D- . 25 , DEST/AD , A/®2 , B/@ 1 , DBUS/RAM , RAMADR/# , W0RK/®3 , ADD . 25 , DT/3T " 

I 1777 

I ; 1778 RAM_[ ] "AD/B , DEST/PASS , RAMADR/RAM , B/® 1 , FM WRITE " 

1 ; 1779 



< 
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1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1798 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1.824 
1825 
1826 
1827 
1828 
1829 



.TOC 



MEM CYCLE 



"MACROS 



MEMORY CONTROL " 



"MEM/1 ' 



; THE FOLLOWING MACROS CONTROL MEMORY ADDRESS 



LOAD VMA 

FORCE EXEC 

VMA PHYSICAL 

VMA PHYSICAL WRITE 

VMA PHYSICAL READ 

VMA EXTENDED 

PXCT EA 
PXCT DATA 
PXCT BLT DEST 
PXCT BYTE PTR EA 
PXCT BYTE DATA 
PXCT STACK WORD 
PXCT BLT SRC 
PXCT EXTEND EA 



"MEM CYCLE, LDVMA/1" 
"FORCE EXEC/1" 

"PHYSICAL/1 , FORCE EXEC/1, FORCE USER/0,EXT ADR/1, LOAD VMA" 
"LOAD VMA, VMA PHYSICAL , WAIT/ 1 , MEM/ 1 , WRITE CYCLE/ 1 , WR I TE TEST/0" 
"LOAD VMA, VMA PHYS I CAL , WA I T/ 1 , MEM/ 1 , READ CYCLE/ 1 , WR I TE TEST/0" 
"EXT ADR/1" 

"PXCT/E 1 " . 
" PXCT/D 1 " 
"PXCT/D 1 " 
"PXCT/E2" 
"PXCT/D2" 
" PXCT/D2 " 
"PXCT/D2 " 
"PXCT/E2 " 



; THE FOLLOWING MACROS GET MEMORY CYCLES STARTED 

WRITE TEST "WRITE TEST/ 1 , WAIT/ 1 " 

START READ "MEM CYCLE, READ CYCLE/ 1 , WA I T/ 1 " 

START WRITE "MEM CYCLE, WRITE TEST, WRITE CYCLE/ 1 , WAIT/ 1 " 

START NO TEST WRITE "MEM CYCLE, WRITE CYCLE/ 1 , WAIT/ 1 " 

FETCH "START READ , FETCH/ 1 , PXCT/CURRENT , WA IT/ 1 » 

; THE FOLLOWING MACROS COMPLETE MEMORY CYCLES 

MEM WAIT "MEM CYCLE , WAIT/ 1 " 

MEM READ "MEM WAIT , DBUS/DBM , DBM/MEM" 

MEM WRITE ' "MEM WAIT.DT/3T" 

SPEC MEM READ "SPEC/WAIT , DBUS/DBM, DBM/MEM" 

SPEC MEM WRITE " SPEC/WAIT , DT/3T " 



; THINGS WHICH WRITE MEMORY 



MEM_[ ] 
MEM 



" AD/B , DEST/PASS , B/@ 1 , DBUS/DP , RAMADR/VMA , CHK PARITY " 
"AD/ Q , DBUS/DP , RAMADR/VMA " 



; THINGS WHICH READ MEMORY 



[]_I0 DATA 
[ ]_MEM 

[ ]__MEM THEN FETCH 

[ ]_MEM*.5 

E ]_MEM. AND. MASK 

[ ]_(MEM. AND. [ ] )*.5 

Q MEM 



" AD/D , DBUS/DBM , RAMADR/VMA , DEST/AD , B/@ 1 " 

" AD/D , DBUS/DBM , RAMADR/VMA , DEST/AD , B/@ 1 , CHK PARITY " 

"AD/D, DBUS/DBM, RAMADR/VMA, DEST/A, A/PC, B/@1 , CHK PARITY, FETCH, LOAD VMA' 

"AD/D , DBUS/DBM , RAMADR/VMA , DEST/AD* . 5 , B/@ 1 , CHK PARITY " 

"AD/D . AND . A , A/MASK , DBUS/DBM , RAMADR/VMA , DEST/AD , B/@ 1 , CHK PARITY " 

"AD/D . AND . A , A/@2 , DBUS/DBM , RAMADR/VMA , DEST/AD* . 5 , B/@>1 , CHK PARITY " 

" AD/D, DBUS/DBM, RAMADR/VMA, DEST/O AD, CHK PARITY" 
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1830 .TOC "MACROS VMA " 
1831 

1832 VMA_[] 

1833 VMA_[] WITH FLAGS 

1834 VM*A_[ ] .OR. [ ] WITH FLAGS 

1835 VMA_J3 + 1 

1836 VMA_C3"1 

1837 VMA_J3+XR 

1838 VMA_J3 + U 
1839 

1840 NEXT [3 PHYSICAL WRITE "AD/A+B , A/ONE , B/# 1 , DEST/AD , HOLD LEFT , LOAD VMA , VMA PHYSICAL, START WRITE" 
1841 

1842 ;MACROS TO LOAD A 2901 REGISTER WITH VMA FLAG BITS 

1843 [ ]_VMA FLAGS "AD/45 , DEST/AD , B/@ 1 , DBM/ , DBUS/DBM , RSRC/DO, A/MASK" 

1844 C3_VMA 10 READ "[@13„VMA FLAGS, READ CYCLE/1,10 CYCLE/ 1 , WR I TE TEST/0, PHYSICAL/1, FORCE EXEC/1, FORCE USER/O" 

1845 [3_VMA 10 WRITE " [@1 ]_A/MA FLAGS, WRITE CYCLE/1,10 CYCLE/ 1 , WRITE TEST/0, PHYSICAL/1, FORCE EXEC/ 1 , FORCE USER/0" 
1846 



"AD/ A , A/#1 , DEST/PASS , LOAD VMA" 

M AD/A,A/@1, DEST/PASS, LOAD VMA, WAIT/1, MEM/ 1 , EXT ADR/1, DP FUNC/1, DT/3T" 
"AD/A.OR.B, A/@1 ,B/@2, DEST/PASS, LOAD VMA, WAIT/1, MEM/1, EXT ADR/1, DP FUNC/1, DT/3T 
"AD/A+B, A/ONE, B/@1 , DEST/AD, HOLD LEFT, LOAD VMA" 
"AD/B-A-. 25, A/ONE, B/@1, ADD .25, HOLD LEFT, LOAD VMA" 
"AD/D+A , DBUS/RAM, RAMADR/XR# , A/@>1 , LOAD VMA" 
"AD/A+B, DEST/PASS, A/@1 , B/@2 , LOAD VMA" 



\ J 
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1847 


. TOC 


"MACROS -- TIME CONTROL" 


1848 






1849 


AC 


" RAMADR/ AC# " 


1850 


AC[ ] 


"RAMADR/AC*# , ACALU/ 


1851 


XR 


"RAMADR/XR#" 


1852 


VMA 


" RAMADR/ VMA " 


1853 


WORK [ ] 


" RAMADR/ # , W0RK/@1" 


1854 






1855 


2T 


"T/2T" 


1856 


3T 


"T/3T" 


1857 


4T 


"T/4T" 


1858 


5T 


"T/5T" 


1859 







, ACN/@1 * 
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1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
.1883 
1884 
1885 
1886 
1887 
1888 
1889 
1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1908 
1909 



.TOC "MACROS SCAD, SC , FE LOGIC" 

LOAD SC "LOADSC/1" 
LOAD FE "L0ADFE/1" 

STEP SC "SCAD/A- 1, SCADA/SC, LOAD SCSKIP/SC" 

SHIFT "SCAD/A+B, SCADA/S#, SCADB/FE, S#/1 , LOAD FE, 



MULTI SHIFT/1" 



SC_SC-1 

SC__SHIFT 

SC_SHIFT-1 

SC_SHIFT-2 

SC_-SHIFT 

SC_-SHIFT-1 

SC_-SHIFT-2 

SC_SC-EXP 

5C_SC-EXP- 1 

SC_SC-FE-1 

SC_SC-FE 

SC_EXP 

SC_S#-FE 

SC_FE+S# 

SC_FE 

SC s# 



SC__36 . 

SC_35 . 

SC_34. 

SC__28 . 

SC_27. 

SC_26 . 

SC__24 . 

SC__22. 

SC_20. 

SC_19. 

SC_J4. 

SC_1 1 . 

SC_9. 

SC_8 . 

SC__7 

SC_6 

SC_5 

SC__4 

SCJ3 

SC_2 

SC_1 

SC__0 

SC_-1 

SC -2 



"SCAD/A- 1 ,SCADA/SC, LOAD SC" 

"SCAD/A+B , SCADA/5# , S#/0 , SCADB/ SHI FT , LOAD SC" 
" SCAD/A+B , SCADA/S# , S#/ 1 777 , SCADB/SHI FT , LOAD SC " 
" SCAD/A+B , SCADA/S# , S#/ 1 776 , SCADB/SHI FT , LOAD SC " 
" SCAD/ A-B , SCADA/S# , S#/ 0000, SCADB/ SHI FT , LOAD SC" 
"SCAD/A-B , SCADA/S# , SCADB/ SHI FT , S#/ 1777 , LOAD "SC " 
"SCAD/A-B , SGADA/S#', SCADB/SHI FT , S#/1776 , LOAD SC" 
"SCAD/A-B , SCAD A/ SC , SCADB/ EXP , LOAD SC" 
"SCAD/A-B- 1 , SCADA/SC , SCADB/EXP , LOAD SC" 
"SCAD/A-B- 1 , SCADA/SC , SCADB/FE , LOAD SC" 
" SCAD/A-B , SCADA/SC , SCADB/FE , LOAD SC " 
"SCAD/A+B, SCADA/S#, S#/0, SCADB/EXP, LOAD SC" 
" SCAD/A-B , SCADA/S# , SCADB/FE , LOAD SC " 
"SCAD/A+B, SCADA/S#, SCADB/FE, LOAD SC" 
"SCAD/A . OR . B , SCADA/S# , S#/0, SCADB/FE , LOAD SC" 
"SCAD/A, SCADA/S#, LOAD SC" 



"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
H SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC__S# 
"SC_S# 

"sc__s# 

"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC_S# 
"SC s# 



S#/36. ! 

S#/35. ' 

S#/34. ' 
, S#/28. ! 

S#/27. 
,S#/26. 

S#/24„ ' 

S#/22. 1 

S#/20. 

S#/19. ! 
, S#/ 14 . ! 
,S#/11 . 

S#/9. " 

S#/8. " 

S#/7" 

S#/6" 

S#/5" 

S#/4" 

S#/3" 

S#/2" 
,S#/1 " 
,S#/0." 

$#/1777" 

S#/1776" 
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1910 
191 1 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 



FE 


_- F E 


FE, 


_-FE- 1 


FE 


_FE - 19 


FE 


__-FE + S# 


FE 


_FE+SC 


FE 


_FE . AND . S# 


FE 


_P 


FE 


_S 


FE 


_S+2 


FE 


_- S-20 


FE, 


_-s- 10 


F E_ 


_3rr 


FE 


_S#-FE 


FE_ 


__-2 


FE" 


12 . 


FE 


_0 


FE" 


~- 1 


fe" 


_FE+ 1 


FE_ 


_FE + 2 


fe" 


~FE+ 10 


FE~ 


_FE - 1 


FE 


FE+4 


FE" 


"EXP 


FE* 


SC+EXP 


FE" 


SC-EXP 


fe" 


~~FE+P 


FE 


"FE-200 


FE" 


-FE+200 


fe' 


FE+S# 
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GEN 17-FE 



" SCAD/A -B , SCADA/S# , S#/0 , SCADB/FE , LOAD FE " 
" SCAD/A -B , SCADA/S# , S#/ 1 777 , SCADB/FE , LOAD FE » 
"SCAD/A+B , SCADB/FE , SCADA/S# , S#/ 1550, LOAD FE " 
■ SCAD/A -B , SCADA/S# , SCADB/FE , LOAD FE " 
"SCAD/A+B, SCADA/SC, SCADB/FE, LOAD FE" 
"SCAD/ A . AND . B , SCADA/ S# , SCADB/FE , LOAD FE" 
"SCAD/A , SCADA/BYTE 1 , LOAD FE" 

"SCAD/A+B, SCADA/S#, S#/0 , SCADB/SIZE, LOAD FE" 

"SCAD/A+B, SCADA/S#, S#/20, SCADB/SIZE, LOAD FE" 

" SCAD/A -B , SCADA/ S# ,S#/ 1760, SCADB/SIZE , LOAD FE " 

'SCAD/A -B , SCADA/S# , S#/ 1 770 , SCADB/S I ZE , LOAD FE " 

" SCAD/ A , SCADA/ S# , LOAD FE" 

" SCAD/A -B , SCADA/S# , SCADB/FE , LOAD FE " 

,, FE_S#,S#/1776" 

"FE_S#, S#/1764" 

"FE__S#,S#/0" 

"FE_S#,S#/1777 H 

"SCAD/A+B , SCADA/S* , SCADB/FE , S#/ 1 , LOAD FE " 
"SCAD/A+B , SCADA/S# , SCADB/FE , S#/2 , LOAD FE" 

"SCAD/A+B , SCADA/S# , SCADB/FE , S#/ 10, LOAD FE ' 
"SCAD/A+B , SCADA/S# , SCADB/FE , S#/ 1 777 , LOAD FE " 
"SCAD/A+B , SCADA/S# , SCADB/FE , S#/4 , LOAD FE " 
"SCAD/A+B, SCADA/S#, S#/0, SCADB/EXP, LOAD FE" 
"SCAD/A+B, SCADA/SCSCADB/EXP, LOAD FE" 
"SCAD/A-B,SCADA/SC, SCADB/EXP, LOAD FE" 
"SCAD/A+B, SCADA/BYTE 1 , SCADB/FE, LOAD FE" 
"SCAD/A+B , SCADA/S# , S#/ 1 600 , SCADB/FE , LOAD FE " 
" SCAD/A -B , SCADA/S# , S#/200 , SCADB/FE , LOAD FE " 
"SCAD/A+B , SCADA/S# , SCADB/FE , LOAD FE " 



" SCAD/ A - B , SCADA/ S# , S#/2 10 , SCADB/FE 11 
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1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 



.TOC "MACROS DATA PATH FIELD CONTROL" 

"CLKL/0,GENL/0" 
"GENL/1" 
"CHKL/1" 

"CLKR/O , GENR/O" 
"GENR/ 1 " 
"CHKR/1 " 

"AD PARITY OK/1" 
"CHKL/1 , CHKR/1" 
"CHKL/0,CHKR/0" 

" SPEC/ INHCRY 18" 



HOLD LEFT 
ADL PARITY 
CHK PARITY L 

HOLD RIGHT 
ADR PARITY 
CHK PARITY R 

AD PARITY 
CHK PARITY 
BAD PARITY 

INH CRY 18 
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54 



1959 


. TOC 


"MACROS SHIFT PATH 


CONTROL " 


1960 








196 1 


ASH 


" SHSTYLE/NORM" 


•ASH SHIFT 


1962 


LSH 


" SHSTYLE/NORM" 


; LSH SHIFT (SAME HARDWARE AS ASH BUT 


1963 






; BITS -2 AND -1 ARE PRESET TO ZERO) 


1964 


ROT 


"SHSTYLE/ROT" 




1965 


LSHC 


" SHSTYLE/LSHC " 




1966 


ASHC 


" SHSTYLE/ASHC " 




1967 


ROTC 


" SHSTYLE/ROTC " 




1968 


ONES 


"SHSTYLE/ONES" 


;SHIFT IN 1 BITS 


1969 


DIV 


" SHSTYLE/DI V " 


•.SPECIAL PATH FOR DIVIDE (LIKE ROTC BUT 


1970 






;' COMPLEMENT BIT AS IT GOES AROUND) 


1971 
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1972 
1973 
1974 
1975 
1976 
1977 
1978 
1979 
1980 
1981 
1982 
1983 
1984 
1985 
1986 
1987 
1988 
1989 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2000 
2001 
2002 



.TOC 



LOAD IR 



"MACROS 



LOAD INST 
LOAD INST EA 
LOAD BYTE EA 
LOAD IND EA 
LOAD SRC EA 
LOAD DST EA 
ADD .25 
CALL [] 
LOAD PXCT 
TURN OFF PXCT 
LOAD PAGE TABLE 
LOAD AC BLOCKS 
SWEEP 
CLRCSH 
LOAD PI 
SET HALT 
CLEAR CONTINUE 
CLEAR EXECUTE 
CLEAR RUN 
UNHALT 

SET APR ENABLES 
ABORT MEM CYCLE 
CLR 10 BUSY 
CLR 10 LATCH 



-- SPECIAL FUNCTIONS" 

"SPEC/LOADIR" ; LOAD INSTRUCTION REG FROM 

DBUS0-DBUS8 , LOAD AC# FROM 
DBUS9-DBUS 1 2 

UPDATE LAST-INST-PUBLIC PC FLAG 
"SPEC/LDINST" 

"SPEC/LOADXR, PXCT/CURRENT" 
" SPEC/LOADXR , PXCT/E2 " 
"SPEC/LOADXR, PXCT/E1 " 
" SPEC/LOADXR, PXCT/B IS -SRC- EA" 
" SPEC/LOADXR, PXCT/BIS -DST -EA" 

"CRY38/1*' ; GENERATE CARRY IN TO BIT 37 

"CALL/ 1 , J/@ 1 ; CALL A SUBROUTINE 

"SPEC/LDPXCT" ; LOAD PXCT FLAGS IF EXEC MODE 

"SPEC/PXCT OFF" 

"SPEC/LDPAGE" 

" SPEC/ LDACBLK " 

"SPEC/SWEEP, PHYSICAL/ 1 " 

"SPEC/CLRCSH, PHYSICAL/1 " 

"SPEC/LDPI" 

"SPEC/#, #/74" 

"SPEC/#,#/40" 

n SPEC/#,#/20 M 

"SPEC/#, #/10" . 

"SPEC/#,#/62" 

"SPEC/APR EN " 

"DBUS/DBM , RAMADR/VMA , DBM/MEM , AD/ZERO , SPEC/MEMCLR , LOAD VMA " 
"SPEC/CLR 10 BUSY" 
"SPEC/CLR 10 LATCH" 
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2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
201 1 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 



.TOC 



"MACROS 
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CHANGE FLAGS 



"SPEC/FLAGS" 



SET AROV "CHANGE FLAGS, HOLD USER/1. 

SET FOV "CHANGE FLAGS, HOLD USER/1, 

SET NO DIVIDE "CHANGE FLAGS, HOLD USER/1. 
SET FL NO DIVIDE "SET NO DIVIDE, SETF0V/1" 



ASH AROV 
SET FPD 
CLR FPD 

SET PDL OV 
SET TRAP 1 

LOAD PCU 
UPDATE USER 
LEAVE USER 

UFCL FLAGS 

LOAD FLAGS 
EXP TEST 
AD FLAGS 

NO DIVIDE 
FL NO DIVIDE 



"SPEC/ASHOV" 
"CHANGE FLAGS, 



HOLD USER/1 , 



"CHANGE FLAGS, HOLD USER/1. 

"CHANGE FLAGS, HOLD USER/1, TRAP2/1" 

"CHANGE FLAGS, HOLD USER/1, TRAP 1 / 1 " 

"CHANGE" FLAGS, LD PCU/1" 

"CHANGE FLAGS, HOLD USER/1" 

"CHANGE FLAGS, HOLD USER/0" 



SET0V/1, TRAP 1 / 1 " 

SETFOV/1, TRAP 1 / 1 " 

SETOV/1, SETNDV/1, TRAP 1 / 1 " 



SETFPD/1 " 
CLRFPD/1 " 



"CHANGE FLAGS, 

"CHANGE FLAGS, 
"SPEC/EXPTST" 
"CHANGE FLAGS, 



HOLD USER/1, JFCLFLG/ 1 1 
LD FLAGS/ 1" 

ADFLGS/1 , HOLD USER/1 " 



"SET NO DIVIDE, J/NIDISP" 
"SET FL NO DIVIDE, J/NIDISP" 
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2032 


. TOC 


2033 




2034 


STATE [] 


2035 


END STATE 


2036 




2037 


END BLT 


2038 


END MAP 


2039 





" MACROS 



PAGE FAIL FLAGS" 

' [ FLG3__# , STATE/® 1 , HOLD LEFT" 
* [FLG]_0, HOLD LEFT" 

1 END STATE" 
•END STATE" 
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2040 


. TOC 


"macros 


-- SINGLE SKIPS'* 




204 1 








SKIPS IF: 


2042 


SKI P 


I F ACO 


"SKIP/ACO" 


THE AC NUMBER IS ZERO 


2043 


SKI P 


DPO 


"SKIP/DPO" 


DP BIT 0=1 


2044 


SKI P 


DP 1 8 


"SKIP/DP18 M 


DP BIT 18=1 


2045 


SKIP 


AD . EQ . 


" SKI P/ ADEQO , DT/ 3T " ; ADDER OUTPUT IS ZERO 


2046 


SKIP 


AD . LE . 


"SKIP/LE ,DT/3T" ; ADDER OUTPUT IS LESS THAN OR EQUAL 


2047 








TO ZERO. 


2048 


SKIP 


ADL . LE . 


"SKIP/LLE , DT/3T " 


; ADDER LEFT IS LESS THAN OR EQUAL 


2049 








TO ZERO. 


2050 


SKIP 


FPD 


"SKIP/FPD" 


FIRST-PART-DONE PC FLAG IS SET 


205 1 


SKIP 


KERNEL 


"SKIP/KERNEL" 


USER=0 


2052 


SKIP 


TO LEGAL 


"SKIP/IOLGL" 


USER=0 OR USER I0T=1 


2053 


CI/ T p 


CRYO 


"SKIP/CRYO" 


ADDER BIT CRY0=1 (NOT PC FLAG BIT) 


2054 


SKIP 


CRY 1 


" SKI P/ CRY 1 " 


ADDER BIT CRY1=1 (NOT PC FLAG BIT) 


2055 


QK TP 


CRY2 


"SKIP/CRY2, DT/3T 


; ADDER BIT CRY2=1 


2056 


SKIP 


JFCL 


"SKIP/JFCL" 


IF JFCL SHOULD JUMP 


2057 


SKIP 


ADL FO O 


"SKIP/ADLEOO" 


ALU BITS -2 TO 17 = 


2058 


SKIP 


ADR. EQ.O 


"SKIP/ ADREQO" 


ALU BITS 18-35 =0 


2059 


SKIP 


IRPT 


"SKIP/INT" 


INTERRUPT IS PENDING 


2060 


SKIP 


-1MS 


"SKIP/-1 MS" 


DON'T SKIP IF 1MS TIMER HAS EXPIRED 


2061 


SKIP 


AC REF 


"SKIP/ACREF" 


VMA IS 0-17 


2062 


SKIP 


EXECUTE 


"SKIP/EXECUTE" 


CONSOLE' EXECUTE 


2063 


TXXX 


TEST 


"SKIP/TXXX " 


TEST INSTRUCTION SHOULD SKIP 


2064 











E 
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2065 


.TOC 




2066 






2067 


NEXT INST 




2068 


NEXT INST 


FETCH 


2069 


EA MODE DISP 


2070 


AREAD 




2071 


B DISP 




2072 


BWRITE DISP 


2073 


INST DISP 




2074 


EXIT 




2075 


AD FLAGS 


EXIT 


2076 


FL-EXIT 




2077 


TEST DISP 




2078 


SKIP-COMP 


DISP 


2079 


JUMP DISP 




2080 


DONE 




2081 


JUMPA 




2082 


UUO 




2083 


LUUO 




2084 


PAGE FAIL 


TRAP 


2085 


TAKE INTERRUPT 


2086 


INTERRUPT 


TRAP 


2087 


MUL DISP 




2088 


DIV DISP 




2089 


BYTE DISP 




2090 


SCAD DISP 




2091 


RETURN [ ] 




2092 


PI DISP 




2093 


NORM DISP 




2094 


DISMISS 




2095 


CALL LOAD 


PI 


2096 


HALT [] 




2097 


CLEANUP DISP 


2098 







"MACROS -- SPECIAL DISPATCH MACROS" 

"DISP/NICOND, SPEC/NICOND, J/NICOND" 

"DISP/NICOND , SPEC/NICOND , J/NICOND- FETCH" 

"DISP/EAMODE , RAMADR/XR# " 

"DI SP/AREAD, WAIT/ 1 , AREAD/ 1 , MEM/ 1 , J/0" 

"DISP/BDISP" 

"B DISP , MEM/ 1 , BWRITE/ 1 , WRITE CYCLE/ 1 , J/BWRITE " 
"DISP/DROM, J/0" 

"BWRITE DISP, SPEC/0, WRITE TEST/1" 
"BWRITE DISP, WRITE TEST/0, AD FLAGS" 

"WRITE CYCLE/1 , WRITE TEST/ 1 , MEM/ 1 , BWRITE/ 1 , B DI SP , J/FL -BWRITE " 

"B DISP, J/TEST-TABLE" 

"B DI SP , J/ SKI P-COMP- TABLE " 

"B DISP, J/ JUMP-TABLE" 

" VMA__[PC ] , LOAD VMA, FETCH, NEXT INST FETCH" 

" t PC ]__[ A'R 3 ■» HOLD LEFT, LOAD VMA , FETCH , NEXT INST FETCH" 

" [HR ]__[HR 3 . AND . # , #/777740, HOLD RIGHT , J/UUOGO " 

" [AR3_0 XWD [403, J/LUUOT" 

"TL [FLG3, FLG.PI/1, J/PFT" 

"[FLG]_[FLG] .OR. #, FLG.PI/1 , HOLD RIGHT, J/PI " 

"WORK[SV.AR3_[AR3 , J/ITRAP" 

"DISP/MUL" 

"DISP/DIV" 

"DISP/BYTE, DT/3T " 

"DISP/SCADO" ;SKIP (2'S WEIGHT) IS SCAD IS MINUS 

"DI SP/RETURN , J/@> 1 " 

"DISP/PI" 

"OISP/NORM.DTyST" 

"TR [PI3, #/077400, CALL [ JEN 1 3 , DT/3T " 
" [T0]__[ PI ] SWAP , CALL [LDPI23" 

"AD/47 , DEST/AD , B/T 1 , DBM/ 4 , DBUS/DBM , HALT/@ 1 , RSRC/DA , A/MASK , J/HALTED " 
"READ [ FLG 3 ,' DBUS/DP, DISP/DP, 3T , J/CLEANUP" 
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2099 


.TOC 


"DISPATCH ROM MACROS" 




2 100 




. DCODE 




2 101 








2 102 


;"A FIELD" MACROS SAY HOW TO FETCH ARGUMENTS 




2 103 








2 104 


I 


" I / 1 " 




2 105 


I -PF 


"1/1 , VMA/O , READ/ 1 " 




2 106 


R 


"A/READ , READ/ 1 " 




2 107 


R-PF 


"A/RD-PF , READ/ 1 " 




2 108 


W 


"A/WRITE , TEST/ 1 " 




2 109 


RW 


"A/READ , TEST/ 1 , READ/ 1 " 




2 1 10 


IW 


"1/1 , TEST/1 " ; IMMED WHICH STORE IN E. (SETZM, 


E TC . ) 


2111 


IR 


"1/1 , READ/ 1 " ; START READ A GO TO EXECUTE CODE 




2112 


DBL R 


"A/DREAD, READ/1 " ; AR ! ARX E!E+1 




2113 


DBL AC 


"A/DBLAC" 




2 1 14 


SH 


"A/SHIFT, VMA/O, READ/ 1 " 




2115 


SHC 


"A/DSHIFT, VMA/O, READ/ 1 " 




2116 


FL-R 


"A/F-P, READ/1" ; FLOATING POINT READ 




2117 


FL-RW 


h a/FP,READ/1 ,TEST/1 " 




2118 


FL-I 


"A/^PI , READ/0" ; FLOATING POINT IMMEDIATE 




2119 


DBL FL-R 


" A/DFP , READ/ 1 " 




2 1 20 


IOT 


"A/IOT" ;CHECK FOR 10 LEGAL 




2121 








2 1 22 


; "B FIELD" MACROS SAY HOW TO STORE RESULTS 




2 123 








2 124 


AC 


"B/AC" 




2 125 


M 


"B/MEM , TEST/ 1 , COND FUNC/1" 




2 126 


B 


"B/BOTH , TEST/ 1 , COND FUNC/1" 




2 127 


S 


"B/SELF, TEST/1 , COND FUNC/1" 




2 128 


DAC 


"B/DBLAC" 




2 129 


DBL B 


"B/DBLB, TEST/ 1 , COND FUNC/1" 




2 130 


FL-AC 


"FL-B/AC" ; FLOATING POINT 




2131 


FL-MEM 


"FL-B/MEM, TEST/1 , COND FUNC/ 1 " ; FLOATING POINT 


TO MEMORY 


2 1 32 


FL-BOTH 


"FL-B/BOTH, TEST/1 , COND FUNC/1" ; FLOATING POINT 


TO BOTH 


2 133 


ROUND 


"ROUND/1" ; FLOATING POINT 


ROUNDED 


2134 








2135 








2136 


; CONTROL 


BITS 




2137 


W TEST 


"TEST/1" 




2138 


AC DISP 


"ACDISP/1" 




2139 




.UCODE 




2140 
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MICRO 



U 0000, 0002,3771,0012,4374,4007,0700,0000,0037,7777 

U 0002 , 00 1 3 , 3445 , 1 2 1 2 , 4 1 74 , 4007 , 0700 , OOOO , 0000 , 0000 

U 0013, 0053,3551,1212,4374,4007,0700,0000,0000,0001 

U 0053, 0061,3447,1200,4174,4007,0700,0000,0000,0000 

U 0061, 0071,3771,0015,4374,4007,0700,0000,0000,0001 



U 0071, 0003,4751,1207,4374,4007,0700,0010,0000,0001 

U 0003, 0100,4751,1203,4374,4007,0700,0000,0037,6000 

U 0100, 0106,3333,0003,7174,4007,0700,0400,0000,0227 

U 0106, 0110,4221,0011,4364,4277,0700,0200,0000,0010 

U 0110, 0125,4221,0010,4174,4477,0700,0000,0000,0000 



U 0125, 0131,4221,0013,4174,4257,0700,0000,0000,0000 

U 0131, 0136,3333,0013,7174,4007,0700,0400,0000,0230 

U 0136, 0162,3333,0013,7174,4007,0700,0400,0000,0300 

U 0162, 0212,3333,0013,7174,4007,0700,0400,0000,0301 



U 0212, 
U 0214, 
U 0223, 
U 0226, 
U 0235, 
U 0242, 
U 0244, 
U 0313, 



0214, 
0223, 
0226, 
0235, 
0242, 
0244, 
0313, 
0010, 



4223, 
3333. 
4221 , 
3333. 
4223. 
3771 , 
3771 , 
01 1 1 , 



0000, 1 174, 
0007, 1 174. 
0003,4174, 
0007,7174. 
0000,7174. 
0002,4374. 
0006,4374, 
0706,4174, 



4007, 
4007. 
4007. 
4007, 
4007, 
4007, 
4007, 
4007. 



0700, 
0700, 
0700, 
0700, 
0700, 
0700, 
0700, 
0700, 



0400, 
0400, 
2000, 
0400 , 
0400, 
0000, 
0000, 
0200, 



0000, 
0000, 
007 1 , 
0000, 
0000. 
0000. 
0000 , 
0000, 



1443 
1444 
0023 
0344 
0373 
0344 
0373 
0010 



U 0010, 0560,3771,0004,1276,6007,0701,0010,0000,1444 

U 0012, 0315,3333,0005,6174,4007,0700,0400,0000,0000 

U 0315, 0323,0111,0702,4174,4007,0700,0200,0000,0010 

U 0323, 0224,3333,0004,6174,4007,0630,2400,0060,0000 

U 0224, 0313,4443,0000,4174,4007,0700,0000,0000,0000 

U 0225, 0140,6553,0500,4374,4007,0321,0000,0033,0656 



U 0140, 0104,4751,1217,4374,4007,0700,0000,0000,1005 



i \ 

V J 



254) 



2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
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.TOC 



.BIN 

"POWER UP SEQUENCE 1 



.UCODE 

;HERE IS WHERE WE FIRE THE MACHINE UP DURING POWER ON 



[MASK ]___#, #/377777 
[MASK]_[MASK]*2 
[ MASK ]_[ MASK] .0R.#,#/1 
[MAG]__[MASK]*.5 
[XWD1]__#, #/l 

[ONE]_0 XWD [ 1 ] , 
CALL/1 

[AR]_0 XWD [376000] 

WORK [HSB ADR ]_[ AR ] 
[UBR]_0, ABORT MEM CYCLE 

[EBR]_0, LOAD AC BLOCKS 



. IF/FULL 



TENLP: 
=0* 



[FLG]_0, SET APR ENABLES 

WORK[APR]_[FLG] 

WORK[TIMEO]_[FLG] 
W0RK[TIME1 ]_[FLG] 

AC[BINO]_0 

AC[BIN1 ]_1 

[AR]_0, SC_19. 

W0RK[DECL0]_1 

WORK[DECHI ]_0 

[HR]_#, WORK/DECLO 

[BRX]_#, WORK/DECHI 

[BRX]__[BRX]+1 , LOAD VMA 

[ARX]_AC[BIN1 } , 

CALL [DBSLOW] 

RAM_[BR] 

[HR]_[HR]+1 , LOAD VMA 
RAM_[ ARX } , STEP SC 

J/TENLP 

[ BR ] . XOR . # , 3T, SKIP ADL 



BUILD A MASK WITH 
A ONE IN 36-BITS AND O 
IN BITS -2, -1 ,36,37 

MAKE CONSTANT 

CONSTANT WITH 1 IN EACH 
HALF WORD 

THE CONSTANT 1 

RESET STACK (CAN NEVER RETURN 

TO WHERE MR LEFT US) 
ADDRESS OF HALT STATUS 

BLOCK 
SAVE FOR HALT LOOP 
; CLEAR THE UBR AND RESET 
MEMORY CONTROL LOGIC 
CLEAR THE EBR AND FORCE 
PREVIOUS AND CURRENT AC 
BLOCKS TO ZERO 
; CLEAR THE STATUS FLAGS AND 
; DISABLE ALL APR CONDITIONS 
;ZERO REMEMBERED ENABLES 

; CLEAR TIME BASE 



=0**0 HALT [MULERR] 
. ENDI F/FULL 



COMPUTE A TABLE OF POWERS OF 
TEN 

WE WANT TO GET 22 NUMBERS 
STARTING WITH 1 

ADDRESS OF LOW WORD 
ADDRESS OF HIGH WORD 
ADDRESS THE HIGH WORD 
LOW WORD TO ARX 
MULTIPLY BY TEN 
SAVE HIGH WORD 
WHERE TO STORE LOW WORD 
STORE LOW WORD AND SEE IF 

WE ARE DONE 
NOT YET- -KEEP GOING 
EO.O, #/330656 
DID WE GET THE RIGHT ANSWER 

IN THE TOP 18 BITS? 
NO- -CPU IS BROKEN 




n 



T10KL.MCR[ 10, 1 141 ] 
SIMPLE.MIC[ 10, 1 141] 



15:34 27-JULY-1984 
15:31 27-JULY-1984 



MICRO 31(254) 



U 0141, 3622,4221,0014,4174,4007,0700,0010,0000,0000 



U 0151, 0324,4751,1217,4374,4007,0700,0000,0000,0120 



U 0324, 0332,4221,0001,4174,4467,0700,0000,0000,0004 
U 0332, 0116,3771,0017,4374,4007,0700,0000,0000,0000 



2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
221 1 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 



KS10 MICROCODE V124, 
POWER UP SEQUENCE 



27-JUL-84 Page 62 



= 0** 1 
= 1**1 



[PI3_0, CALL [L0ADPI3 



. I FNOT/FULL 

[ARX3_0 

[BR3_0 

[BRX3_0 
. END IF/FULL 

[T1 3_0 XWD [1203 



; CLEAR PI STATE 

; CLEAR REGISTERS SO NO 

; PARITY ERROR HAPPEN 

; WRITTEN WHILE COMPUTING POWERS 
;0F 10 



RH OF 120 CONTAINS START ADDRESS 
FOR SIMULATOR. FOR THE REAL 
MACHINE IT IS JUST DATA WITH 
GOOD PARITY. 

; THE CODE UNDER .IF/SIM MUST USE THE SAME ADDRESS AS THE CODE 

; UNDER .IFNOT/SIM SO THAT MICROCODE ADDRESSES DO NOT CHANGE BETWEEN 

; VERSIONS 

. IF/SIM 

VMA_[T13, START READ ; READ THE WORD 

MEM READ, [PC3_MEM, HOLD LEFT, J/ START 

;G0 FIRE UP SIMULATOR AT THE 
; PROGRAMS STARTING ADDRESS 



.IFNOT/SIM 

[PC3_0, 

LEAVE USER, 

LOAD FLAGS 

[ T 1 , HALT/POWER, 

J/PWRON 

. ENDIF/SIM 



; CLEAR LH OF PC 

; ENTER EXEC MODE 

; CLEAR TRAP FLAGS 

; LOAD T1 WITH POWER UP CODE 

; ENTER HALT LOOP. DO NOT STORE 

; HALT STATUS BLOCK 
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MICRO 



U 1400, 0110,3443,0100,4174,4156,4700,0200,0014,0012 

U 1401, 0110,0111,0701,4170,4156,4700,0200,0014,0012 

U 0260, 0110,0111,0701,4170,4156,4700,0200,0014,00.12 

U 0261, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



3510,4751,1 203 ,4374 , 4367 , 0700 , 0000 , 0000 , 0423 

3510,4751,1 203 , 4374 , 4367 , 0700 , 0000 , 0000 , 0422 

3510,4751,1 203 , 4374 , 4367 ,0700 , 0000 , 0000 , 042 1 
01 04 ,4751, 1217, 4374, 4007 , 0700 ,0000 , OOOO , 0002 

O 1 1 7 , 3443 , O 1 00 , 4 1 74 , 4007 , 0700 , 0200 , 00 1 4 , 00 1 2 

U 0111, 3510,4751,1203,4374,4367,0700,0000,0000,0423 

U 01 12, 3510,4751 , 1203,4374,4367,0700,0000,0000,0422 

U 0113, 3510,4751,1203,4374,4367,0700,0000,0000,0421 
U 0115, 0104,4751,1217,4374,4007,0700,0000,0000,0002 

U 0117, 0343,3771,0002,4365,5617,0700,0200,0000,0002 



U 0101 , 

U 0102, 

U 0103, 
U 0105, 

U 0107, 



i ) 



254) 
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2224 .TOC "THE INSTRUCTION LOOP START NEXT INSTRUCTION" 

2225 / 

2226 ; ALL INSTRUCTIONS EXCEPT JUMP'S AND UUO'S END UP HERE 

2227 1400: 

2228 DONE: DONE 

2229 1401: VMA_[PC]+1, NEXT INST FETCH, FETCH 

2230 =0 

2231 SKIP: VMA__[PC] + 1, NEXT INST FETCH,. FETCH 

2232 DONE 
2233 

2234 

2235. ; 16-WAY DISPATCH BASED ON NEXT INSTRUCTION 

2236 =0000 

2237 NICOND: 

2238 =0001 [AR]_0 XWD [423], ; TRAP TYPE 3 

2239. ; GET ADDRESS OF TRAP INST 

2240 TURN OFF PXCT, ; CLEAR PXCT 

2241 J/TRAP ;PR0CESS TRAP (INOUT.MIC) 

2242 =0010 [AR]_0 XWD [422], ; TRAP TYPE 2 

2243 TURN OFF PXCT, ; CLEAR PXCT 

2244 J/TRAP ; GO TRAP 

2245 =0011 [AR]_0 XWD [421], ; TRAP TYPE 1 

2246 TURN OFF PXCT, ; TURN OF PXCT 

2247 J/TRAP ; GO TRAP 

2248 =0101 HALT [CSL] ;"HA" COMMAND TO 8080 

2249 =0111 

2250 START: VMA_[PC], ; LOAD VMA 

2251 FETCH, ; INDICATE INSTRUCTION FETCH 

2252 J/XCTGO ; GO GET INSTRUCTION 

2253 ; THE NEXT SET, OF CASES ARE USED WHEN THERE IS A FETCH 

2254 ; IN PROGESS 

2255 =1000 

2256 NICOND-FETCH: 

2257 =1001 [AR]_0 XWD [423], ; TRAP TYPE 3 

2258 TURN OFF PXCT, 

2259 J/TRAP 

2260 =1010 [AR]_0 XWD [422], ; TRAP TYPE 2 

2261 TURN OFF PXCT, 

2262 J/TRAP 

2263 =1011 [AR]_0 XWD [421], ; TRAP TYPE 1 

2264 TURN OFF PXCT, 

2265 J/TRAP 

2266 =1101 HALT [CSL] ;"HA" COMMAND TO 8080 

2267 =1111 

2268 XCTGO: MEM READ, ;WAIT FOR MEMORY 

2269 [HRJJ4EM, ; PUT DATA IN HR 

2270 LOAD INST, ; LOAD IR & AC # 

2271 J/INCPC ;G0 BUMP PC 

2272 = 
2273 
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MICRO 



U 0343, 0201,0111,0701,2170,4366,6700,0200,0010,0010 



U 0201', 0110,0551,0201,2270,4156,4700,0200,0014,0012 



U 0203, 0110.3441,0201,4170,4156,4700,0200,0014,0012 



U 0205, O346,O551 f O2O2,227O,4OO7,070O,O2OO,OOO4,OO12 



U 0207, 0346,3443,0200,4174,4007,0700,0200,0004,0012 



254) 
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2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 



; HERE WE POINT PC TO NEXT INSTRUCTION WHILE WE WAIT FOR 
; EFFECTIVE ADDRESS LOGIC TO SETTLE 



INCPC: VMA_[PC]+1 , 
FETCH/1 , 
TURN OFF PXCT, 
EA MODE DISP 



ADDRESS OF NEXT INSTRUCTION 
INSTRUCTION FETCH 
CLEAR EFFECT OF PXCT 
DISPACTH OF INDEXING AND @ 



; MA I N EFFECTIVE ADDRESS CALCULATION 

=0001 

EACALC: 

THE FIRST 4 CASES ARE USED ONLY FOR JRST 



;CASE O -- JRST 0,FOO(XR) 
[PC]_[HR]+XR, 
HOLD LEFT, 
LOAD VMA, FETCH, 
NEXT INST FETCH 



;CASE 2 



-- JRST O, 
[PC]_[HR] , 
HOLD LEFT, 
LOAD VMA, 
NEXT INST 



FOO 



FETCH, 
FETCH 



;CASE 4 -- JRST 0,@FOO(XR) 
[HR]_[HR]+XR, 
START READ, 
LOAD VMA, 
J/FETIND 

;CASE 6 -- JRST 0,@FOO 
VMA_[HR] , 
START READ, 
J/FETIND 



UPDATE PC 
ONLY RH 

START GETTING IT 
START NEXT INST 



NEW PC 
ONLY RH 

START GETTING IT 
START NEXT INST 



ADD IN INDEX 

START TO FETCH @ WORD 

PUT ADDRESS IN VMA 

GO DO MEM WAIT (FORGET ABOUT JRST) 



LOAD UP ADDRESS 

START TO FETCH e WORD 

GO DO MEM WAIT (FORGET ABOUT JRST) 
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MICRO 



U 0211, 0213,0551,0202,2270,4007,0700,0000,0000,0000 



U 0213, 0000,5741,0203,4174,4001,3700,0200,0000,0342 



U 0215, 0346,0551,0202,2270,4007,0700,0200,0004,0112 



U 0217, 0346,3443,0200,4174,4007,0700,0200,0004,0112 



U 0346, 0363,3771,0002,4361,5217,0700,0200,0000,0102 



U 0363, 0201 ,3443,0100,2174,4006 ,6700,0200,0010,0010 



254) 



231 1 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 
2345 
2346 
2347 
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THE INSTRUCTION LOOP START NEXT INSTRUCTION 



THESE 4 ARE FOR THE NON-JRST CASE 



;CASE 10 -- JUST INDEXING 
INDEX: [HR]_[HR]+XR, 
HOLD LEFT 



; ADD IN INDEX REGISTER 
;JUST DO RIGHT HALF 



;CASE 12 -- NO INDEXING OR INDIRECT 



NOMOD : 



[AR]__EA, 
PXCT DATA, 



AREAD 



PUT O, ,E IN AR 

DO ONE OR MORE OF THE FOLLWING 
ACCORDING TO THE DROM : 

1 . LOAD VMA 

2. START READ OR WRITE 

3. DISPATCH TO 40-57 

OR DIRECTLY TO EXECUTE CODE 



;CASE 14 
BOTH: 



BOTH INDEXING AND INDIRECT 



[HR]_[HR]+XR, 
LOAD VMA, PXCT EA, 
START READ, J/FETIND 



ADD IN INDEX REGISTER 
PUT ADDRESS IN VMA 

START CYCLE AND GO WAIT FOR DATA 



;CASE 16 JUST INDIRECT 
INDRCT: VMA__[HR], 

START READ, PXCT EA 



; LOAD ADDRESS OF 9 WORD 
; START CYCLE 



; HERE TO FETCH INDIRECT WORD 
FETIND: MEM READ, [HR]_MEM, 

HOLD LEFT, 

LOAD IND EA 

XCT2: VMA__[PC], 
FETCH/ 1 , 
EA MODE DISP, 
J/EACALC 



GET DATA WORD 

JUST RIGHT HALF 

RELOAD @ AND INDEX FLOPS 

PUT PC BACK IN VMA 
TURN ON FETCH FLAG 
REDO CALCULATION FOR 
NEW WORD 




; T 10KL . MCR[ tO, 1 14 1 ] 15:34 27 -JULY- 1 984 MICRO 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27- JULY- 1984 



U 0040, 0000,3771,0003,4365,5001,2700,0200,0000,0002 

U 0041, 0000,3771,0003,0276,6001,2700,0000,0000,0000 

0366 , 377 1 , 0003 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 
0371 ,01 1 1 ,0702,4170,4007,0700,0200,0004,0312 

0000 ,3771, 0004 , 4365 , 500 1 , 2700 , 0200 , 0000 , 0002 

040 1,3771, 0003 , 0276 , 6007 , 0700 , 0000 , 0000 , 0000 
0000,3771 ,0004, 1276,6001 , 270 1 , 0000 , 0000 , 1441 



0000, 3333,0003,4174,4001 , 2530,3000,0041 , 5777 

0406,3772,0000, 1 275 , 5007 , 0701 , 0000 , 0000 , 1441 
043 1,3776, 0005 , 0274 , 4007 , 070 1 , 0000 , 0000 , 0000 

0044 , 3446 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 0042, 
U 0366, 

U 0371 , 

U 0043, 
U 0401 , 



U 0044, 



U 0045, 
U 0406, 

U 0431 , 



254) 
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2348 

2349 

2350 

2351 

2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 

2360 

2361 

2362 

2363 

2364 

2365 

2366. 

2367 

2368 

2369 

2370 

2371 

2372 

2373 

2374 

2375 

2376 

2377 

2378 

2379 

2380 

2381 

2382 

2383 

2384 

2385 

2386 

2387 



.TOC "THE INSTRUCTION LOOP -- FETCH ARGUMENTS" 

; HERE ON AREAD DISP TO HANDLE VARIOUS CASES OF ARGUMENT FETCH 



;CASE O -- READ (E) 
40: MEM READ, 

[AR]_MEM, 
INST DISP 



;CASE 
41 : 



;CASE 
42 : 



-- WRITE 
[AR]_AC, 
INST DISP 



(E) 



-- DOUBLE READ 
MEM READ, 
[AR]_MEM 

VMA_[HR]+1, PXCT DATA, 

START READ 

MEM READ, 

[ARX]_MEM, 

INST DISP 

-- DOUBLE AC 
[AR]_AC 
[ARX]_AC[ 1 ] , 
INST DISP 

-- SHIFT 

READ [AR], 
SKIP DP18, 
SC_SHIFT-1 , 
LOAD FE, 
INST DISP 



;CASE 5 -- SHIFT COMBINED 

45: Q_AC[1] 

[BR]_AC*.5 LONG 
[BR]_[BR]*.5 LONG, 
J/SHIFT 



;CASE 
43 : 



;CASE 
44: 

SHIFT: 



WAIT FOR DATA 

PUT WORD IN AR 

GO TO EXECUTE CODE 



;PUT AC IN AR 

;G0 TO EXECUTE CODE 



WAIT FOR DATA 
PUT HI WORD IN AR 
POINT TO E+1 
START MEMORY CYCLE 
WAIT FOR DATA 
LOW WORD IN ARX 
GO TO EXECUTE CODE 



GET HIGH AC 

PUT C(AC+1 ) IN ARX 

GO TO EXECUTE CODE 



LOOK AT EFFECTIVE ADDRESS 

SEE IF LEFT OR RIGHT 

PUT NUMBER OF PLACES TO SHIFT IN 

SC AND FE 
GO DO THE SHIFT 



PUT LOW WORD IN 
PUT AC IN BR & SHIFT BR ! RIGHT 
SHIFT BRIO 1 MORE PLACE RIGHT 
GO DO SHIFT SETUP 



T10KL.MCR[ 10, 1141] 15:34 27-UULY-1984 MICRO 

SIMPLE. MIC[ 10, 1141] 15:31 27-UULY- 1984 



U 0046, 0304,3770,0303,4344,4007,0700,0000,0000,0000 

U 0047, 0304,3771,0003,4365,5007,0700,0200,0000,0002 

U 0304, 0434,3333,0003,4174,4007,0520,3010,0041,2000 

U 0305 , 0000 ,4221, 0004 , 4 1 74 ,400 1 , 2700 , 0000 , 0000 , 0000 

U 0050, 0000,3770,0103,4365,5001,2700,0200,0014,0012 

U 0051, 0372,3771,0005,4365,5177,0521,3000,0041,2000 

U 0372, 0445,0111,0703,4174,4007,0700,0200,0004,0312 

U 0373, 0432,0111,0703,4174,4007,0700,0200,0004,0312 

U 0432, 0451,3551,0505,4374,0007,0700,0000,0077,7000 

U 0445, 0451,4551,0505,4374,0007,0700,0000,0000,0777 

U 0451 , 0452,4557,0004,4365,5007,0701 ,0200,0000,0002 

U 0452, 0467,3447,0503,4174,4007,0700,0000,0000,0000 

U 0467 , 047 1 , 3447 , 0303 ,4174, 4007 , 0700 , 2000 , 00 1 1 , 0000 

U 0471, 0000,3443,0100,4174,4001,2700,0200,0014,0012 
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2388 ;CASE 6 FLOATING POINT IMMEDIATE 

2389 46: C AR ]_[ AR ] SWAP, ;FLIP BITS TO LEFT HALF 

2390 U/FPRO ;JOIN COMMON F.P. CODE 
2391 

2392 ;CASE 7 -- FLOATING POINT 

2393 47: MEM- READ, ;WAIT FOR MEMORY (SPEC/MEM WAIT) 

2394 [AR]_MEM ; DATA INTO AR 

2395 =0 

2396 FPRO: READ [AR], ; LOOK AT NUMBER 

2397 SCJEXP, FE_EXP, ; PUT EXPONENT IN SC & FE 

2398 SKIP DPO, ;SEE IF NEGATIVE 

2399 CALL [ARSIGN] ; EXTEND AR SIGN 

2400 FPR1: [ARX]_0, ; ZERO ARX 

2401 INST DISP ;G0 TO EXECUTE CODE 
2402 

2403 ;CASE 10 -- READ THEN PREFETCH 

2404 50: MEM READ, ;WAIT FOR DATA 

2405 ' [AR]_MEM THEN FETCH, ; PUT DATA IN AR AND START A READ 

2406 ; VMA HAS PC+1 . 

2407 INST DISP ; GO DO IT 
2408 

2409 ;CASE 11 DOUBLE FLOATING READ 

2410 51: SPEC MEM READ, ;WAIT FOR DATA 

2411 [BR]__MEM, ; HOLD IN BR 

2412 SC_EXP, FE_EXP, ; SAVE EXPONENT 

2413 SKIP DPO, 3T ;SEE IF MINUS 

2414 =0 [AR]_[AR]+1, ;POINT TO E+1 

2415 LOAD VMA, PXCT DATA, ; PUT IN VMA 

2416 START READ, U/DFPR1 ; GO GET POSITIVE DATA 

2417 [AR]_[AR]+1, ;POINT TO E+1 

2418 LOAD VMA, PXCT DATA, ; PUT IN VMA 

2419 START READ ; GO GET NEGATIVE DATA 

2420 [BR]__-SIGN, ; SMEAR MINUS SIGN 
* 2421 U/DFPR2 ; CONTINUE BELOW 

2422 DFPR1: [BR]_*SIGN ; SMEAR PLUS SIGN 

2423 DFPR2: MEM READ, 3T , ;WAIT FOR MEMORY 

2424 [ ARX ]_( MEM . AND . [ MAG ] ) * . 5 , 

2425 ASH ;SET SHIFT PATHS 

2426 [AR]_[BR]*.5 ;SHIFT AR 

2427 [AR]__[AR]*.5, ; COMPLETE SHIFTING 

2428 SC_FE ; PAGE FAIL MAY HAVE ZAPPED 

2429 ; THE SC. 

2430 VMA_JPC], FETCH, ; GET NEXT INST 

2431 INST DISP ; DO THIS ONE 
2432 



T10KL JWCR[ 10, 1141] 15:34 27-JULY-1984 MICRO 31( 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 0052, 0402,4443,0000,4174,4007,0040,0000,0000,0000 
U 0402, 2732,4551,0202,4374,0007,0700,0000,0077,7740 
U 0403, 0000,4443,0000,4174,4001,2700,0000,0000,0000 



U 0434, 0001,4551,0303,4374,0004,1700,0000,0000,0777 
U 0435, 0001,3551,0303,4374,0004,1700,0000,0077,7000 



254) 



2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
244 1 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
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;CASE 12 -- TEST FOR 10 LEGAL 
52: SKIP 10 LEGAL 

=0 UUO 

INST DISP 



IS 10 LEGAL? 
NO 

YES- -DO THE INSTRUCTION 



CASE 13 -- RESERVED 
53: 

CASE 14 -- RESERVED 
54 : 

CASE 15 -- RESERVED 
55: 



;CASE 16 RESERVED 
;56: 

;CASE 17 -- RESERVED 
;57: 

; EXTEND AR SIGN. 

; CALL WITH SKIP ON ARO, RETURNS 1 ALWAYS 

=0 

ARSIGN: [AR]_+SIGN, RETURN [1] ; EXTEND + SIGN 
[AR]_-SIGN, RETURN [1] ; EXTEND - SIGN 



T10KL.MCR[ 10, 1 141 ] 15:34 27-.UULY- 1984 

SIMPLE. MIC[ 10, 1 141] 15:31 27-JULY- 1984 



MICRO 



U 1504, 0454,4443,0000,4174,4007,0360,0000,0000,0000 



U 1505, 1515,3440,0404, 1 1 74 , 4007 , 0700 , 0400, 0000 , 1441 



U 1 506 , 1 505 , 3333 , 0OO3 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 



254) 
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2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 



.TOC "THE INSTRUCTION LOOP -- STORE ANSWERS" 

; NOTE : INSTRUCTIONS WHICH STORE IN BOTH AC AND MEMORY 
; (E.G. ADDB, AOS) MUST STORE IN MEMORY FIRST 

; SO THAT IF A PAGE FAIL HAPPENS THE AC IS 

STILL INTACT . 



1500: 
BWRITE : 

;CASE 
; 1 500 : 

;CASE 1 
; 1501 : 

;CASE 2 
; 1502: 

;CASE 3 
; 1503: 

;CASE 4 
1504: 
STSELF : 



;CASE 5 

1505: 

DAC: 



;CASE 6 
1 506 : 
STDBTH: 



;CASE 7 
; 1507 : 



; BASE ADDRESS OF BWRITE DISPATCH 
-- RESERVED 

-- RESERVED 

RESERVED 

-- RESERVED 

-- STORE SELF 



SKIP IF ACO, 
J/STBTH1 

STORE DOUBLE AC 

AC[ 1 ]_[ARX] , 

J/STAC 



; IS AC ^ ZERO? 

;G0 TO STORE BOTH CASE 



; STORE AC 1 
;G0 STORE AC 



STORE DOUBLE BOTH (KA10 STYLE MEM_AR ONLY) 



MEM WRITE, 
MEM_[AR] , 
J/DAC 

--. RESERVED 



WAIT FOR MEMORY 
STORE AR 

NOW STORE AC & AC+1 



T10KL.MCR[ 10, 1 141 ] 
SIMPLE . MIC [ 10, 1 141 ] 



15:34 
15:31 



27- 
27- 



JULY- 
JULY- 



1984 
1984 



U 1514, 0104,4751,1217,4374,4007,0700,0000,0000,1000 

U 1515, 0100, 3440:0303, 0174, 4156, 4700, 0400, 0000, 0000 

U 1516, 1 400 , 3333 , 0003 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 

U 1517, 1515,3333, 0003 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 

U 0454 , 1515,3333, 0003 ,4175, 5007 , 070 1 ,0200 , 0000 , 0002 

U 0455 , 1 400 , 3333 , 0003 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 



MICRO 31(254) 



2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
251 1 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
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;CASE 10 
; 1510: 

;CASE 11 
; 151 1 : 

;CASE 12 
; 1512 : 

;CASE 13 
; 1513 : 

;CASE 14 
1514: 

FL-BWRITE : 



HALT 



;CASE 15 
1515 : 

STAC: AC_[AR], 
NEXT INST 



RESERVED 
RESERVED 
RESERVED 
RESERVED 
RESERVED 

[BW14] 

STORE AC 



;CASE 16 
1516: 

STMEM: MEM WRITE 
MEM_[AR] , 
J/DONE 



STORE IN MEMORY 



;CASE 17 
1517 : 
STBOTH 



STORE BOTH 



=0 

STBTH1 : 



STORE : 



MEM WRITE, 
MEM_[AR] , 
J/STAC 



MEM WRITE, 
MEM_[AR] , 
J/STAC 
MEM WRITE, 
MEM_[AR] , 
J/DONE 



; THE NEXT 4 CASES ARE ALSO 
;USED IN FLOATING POINT 



; STORE AC 

;D0 NEXT INSTRUCTION 



WAIT FOR MEMORY 
STORE AR 

START FETCH OF NEXT 



WAIT FOR MEMORY 
STORE AR 
NOW STORE AC 



WAIT FOR MEMORY 
STORE AR 
NOW STORE AC 
WAIT FOR MEMORY 
STORE AC 
START NEXT INST 



T10KL.MCRE 10, 1 141 } 15:34 27- JULY- 1984 MICRO 

SIMPLE . MIC [ 10, 1141] 15:31 27- JULY- 1984 



D 0200, 1015, 1515,1 100 

D 0201, 0015,1515,3000 

D 0202, 0116,1404,0700 

D 0203 , 0004 , 1 504 , 1 700 

D 0204, 1015, 1402, 1 100 

D 0205, 0015,1402,3000 

D 0206, 0116,1402,0700 

D 0207 , 0004 , 1 402 , 1 700 

D 0210, 1015, 1405, 1 100 

D 021 1 ,. 0015, 1405,3000 

D 0212, 0116,1405,0700 

D 0213, 0004,1405,1700 

D 0214, 1015, 1403, 1 100 

D 0215, 0015,1515,3000 

D 0216, 0116,1403,0700 

D 0217, 0004,1403,1700 



U 1 402 , 1 500 , 3770 , 0303 , 4344 , 4003 , 7700 , 0200 , 0003 , 000 1 



U 1 403 , 1 404 , 3333 , 0003 ,4174, 4007 ,0520 , 0000 , 0000 , 0000 



U 1 404 , 1 500 , 4443 , 0000 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 



U 1405, 1404,2441 ,0303,4174,4467,0701 ,4000,0001 ,0001 



1(254) 
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2544 


.TOC 


"MOVE 


GROUP" 








2545 














2546 




. DCODE 










2547 


200: 


R-PF , 


AC, 


J/STAC 




;MOVE 


2548 




I-PF, 


AC, 


J/STAC 




; MOVE I 


2549 




w, 


M, 


J/MOVE 




;MOVEM 


2550 




RW, 


s, 


J/STSELF 




; MOVES 


2551 














2552 


204: 


R-PF, 


AC, 


J/MOVS 




; MOVS 


2553 




I-PF, 


AC, 


J/MOVS 




;MOVSI 


2554 




W, 


M , 


J/MOVS 




;MOVSM 


2555 




RW, 


5, 


J/MOVS 




;MOVSS 


2556 














2557 


210: 


R-PF , 


AC, 


J/MOVN 




;MOVN 


2558 




I-PF, 


AC, 


J/MOVN 




; MOVN I 


2559 




W, 


M, 


J/MOVN 




; MOVNM 


2560 




RW, 


s, 


J/MOVN 




; MOVNS 


2561 














2562 


214: 


R-PF, 


AC, 


J/MOVM 




;MOVM 


2563 




I-PF, 


AC, 


J/STAC 




;MOVMI 


2564 




w, 


M , 


J/MOVM 




; MO VMM 


2565 




RW, 


s, 


J/MOVM 




; MOVNS 


2566 




.UCODE 










2567 














2568 


1402: 












2569 


MOVS : 


EAR] [AR] SWAP, EXIT 






2570 














2571 


1403 : 












2572 


MOVM : 


READ [AR], SKIP 


DPO, J/MOVE 




2573 














2574 


1404: 












2575 


MOVE: 


EXIT 










2576 


1405: 












2577 


MOVN: 


EAR] - 


EAR], 




; NEGATE 


NUMBER 


2578 




AD FLAGS, 3T, 




; UPDATE 


FLAGS 


2579 




J/MOVE 






; STORE 


ANSWER 


2580 















T10KL.WR[ 10, 1 141] 
SIMPLE. MICE 10, 1141] 



15:34 27-0ULY-1984 
15:31 27-JULY-1984 



MICRO 31(254) 



D 0250, 0015,1406,1500 



U 1406, 0506,3771,0005,0276,6007,0700,0200,0003,0002 



U 0506 , 1515, 3333 , 0005 ,4175, 5007 , 0701 , 0200 , 0000 , 0002 



2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
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.TOC 



"EXCH" 



250: 



. DCODE 
R,W TEST, 
.UCODE 



AC, 



J/EXCH 



1406: 
EXCH: 



[BR]_AC , 
START WRITE 
MEM WRITE , 
MEM__[ BR ] , 
J/STAC 



COPY AC TO THE BR 

START A WRITE CYCLE 

COMPLETE WRITE CYCLE 

STORE BR (AC) IN MEMORY 

STORE THE AR IN AC. NOTE: AR 
WAS LOADED WITH MEMORY OPERAND 
AS PART OF INSTRUCTION DISPATCH 



T10KL.MCR[ 10, 1 141] 15:34 27-JULY-1984 MICRO 31(254) 

SIMPLE. MIC[10, 1141] 15:31 27- JULY- 1984 
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2596 


.TOC 


"HALFWORD GROUP" 












2597 




DESTINATION 


LEFT HALF 












2598 




















2599 




. DCODE 






D 


0500, 


1015, 


1410 


1100 


2600 


500: 


R-PF, 


AC, 


J/HLL 


D 


0501 , 


0015, 


1410 


3000 


2601 




I-PF, 


AC, 


J/HLL 


D 


0502, 


0016, 


1407 


1700 


2602 




RW, 


M, 


J/HRR 


D 


0503, 


0004 , 


1404 


1 700 


2603 
2604 




RW, 


s, 


J/MOVE 


D 


0504, 


1015, 


141 1 


1100 


2605 




R-PF , 


AC, 


J/HRL 


D 


0505 , 


0015 , 


141 1 


3000 


2606 




I-PF, 


AC , 


J/HRL 


D 


0506, 


0016, 


1413 


1 700 


2607 




RW, 


M, 


J/HRLM 


D 


0507, 


0004, 


1414 


1700 


2608 
2609 




RW, 


s, 


J/HRLS 


D 


0510, 


1015, 


1432 


1100 


2610 


510: 


R-PF , 


AC , 


J/HLLZ 


D 


051 1 , 


0015, 


1432 


3000 


261 1 




IVPF, 


AC, 


J/HLLZ 


D 


0512, 


01 16, 


1432 


0700 


2612 




WA 


M, 


J/HLLZ 


D 


0513, 


0004, 


1432 


1700 


2613 
2614 




RW ? 


s, 


J/HLLZ 


D 


0514, 


1015, 


1424 


1100 


2615 




R-PF, 


AC, 


J/HRLZ 


D 


0515, 


0015 , 


1424 


3000 


2616 




i-pN , 


AC, 


J/HRLZ 


D 


0516, 


01 16, 


1424 


0700 


2617 




w, 


M, 


J/HRLZ 


D 


0517 , 


0004 , 


1424 


1700 


2618 
2619 




RW, 


s, 


J/HRLZ 


D 


0520, 


1015, 


1433 


1 100 


2620 


520: 


R-PF, 


AC, 


J/HLLO 


D 


0521 , 


0015, 


1433 


3000 


2621 




I-PF, 


AC, 


J/HLLO 


D 


0522, 


01 16, 


1433 


0700 


2622 




w, 


M, 


J/HLLO 


D 


0523, 


0004, 


1433 


1700 


2623 
2624 




RW, 


s, 


J/HLLO 


D 


0524, 


1015, 


1425 


1100 


2625 




R-PF , 


AC, 


J/HRLO 


D 


0525, 


0015 , 


1425 


3000 


2626 




I-PF , 


AC, 


J/HRLO 


D 


0526, 


01 16, 


1425 


0700 


2627 




w, 


M , 


J/HRLO 


D 


0527, 


0004, 


1425 


1700 


2628 
2629 




RW, 


s, 


J/HRLO 


D 


0530, 


1015, 


1430 


1 100 


2630 


530*: 


R-PF, 


AC, 


J/HLLE 


D 


0531 , 


0015, 


1430 


3000 


2631 




I-PF , 


AC, 


J/HLLE 


D 


0532, 


01 16, 


1430 


0700 


2632 




w, 


M, 


J/HLLE 


D 


0533, 


0004, 


1430 


1700 


2633 
2634 




RW, 


s, 


J/HLLE 


D 


0534, 


1015, 


1422 


1100 


2635 




R-PF , 


AC, 


J/HRLE 


D 


0535, 


0015, 


1422 


3000 


2636 




I-PF, 


AC, 


J/HRLE 


D 


0536, 


01 16, 


1422 


0700 


2637 




w, 


M, 


J/HRLE 


D 


0537, 


0004, 


1422 


1700 


2638 
2639 




RW, 


s, 


J/HRLE 



; HLLM 
; HLLS 



HRR EXCEPT FOR STORE 
MOVES 
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O ft /I r\ 
Z04v 




DESTINATION 


d t out i_i a I rr 
K I van 1 HALr 












O ft >4 4 
Zb4 1 










n 
u 


A^ZtA 
Uu*fv , 


1 A 1 R 
IU 13 , 




1 4AA 


ZO 4 Z 


04U . 


R-PF , 


AC, 


. 1 /HDD 
U/ nKK 


D 


0541 , 


0015, 


1407 


3000 


2643 




T - D C 


AU , 


J/HRR 


n 




\J\J 1 O , 


4 A A A 
IH IU 


4 7AA 

1 / \J\J 


OP. A A 
✓Z0 4 4 




K W , 


M 


, I /Ul 1 


n 




AAA/1 


1 £ +v i t 


A 7AA 
i / UU 


Oftidft. 

Z040 

Oft/tft 
Z040 




nu 
K W , 


c 


, i /Mn\/P 

U/ ML) V t 


n 




4 A 4 R 

1 \_/ 1 O , 


A A AO 
1 4 1 Z 


A 4AA 


AC/17 

ZOm- / 




R-PF , 


AC, 


. 1 /hi d 
U/ itLK 


D 


0545, 


0015, 


1412 


3000 


2648 




T — D IT 

1 r r , 


AL. , 


J/HLR 


u 




AA 1 ft 
UU 1 b , 


1413 


4 7AA 
1 / UU 


O ft /I Q 

zt>4y 




KW , 


M 


1 /l_ll DM 

U/ nLKm 


u 


AC47 
UD4 / , 


AAA/ 

UUUh , 


A A A R 


4 7AA 
1 / UU 


Oft ft^ 

zbou 

Oftft 4 
ZOO 1 




KW , 


c 

b , 


1 /l_ll DC 

u/ riLKb 


n 
u 


UOOU , 




i 4 OA 
1 4ZU 


4 4 AA 

1 1 UU 


Oftft O 
ZbOZ 


ftftr\ • 
OOU - 


R-PF , 


AC, 


. 1 /LIDD7 


D 


0551 , 


0015, 


1420 


3000 


2653 




T.nr 


A I" 

AL. , 


U/HRRZ 


V 


UO0Z , 


Ul lO j 


4 >l OA 

i 4 ZU 


A7AA 
U / UU 


o ft ft a 
Zbo4 




w , 


M 

M , 


u/hrrz 


u 


ACCO 

UDDo , 


UUU4 , 


4 A O A 
i 4ZU 


4 "7 A A 
1 / UU 


O ft ft c 

Zboo 

O ft ft ft 

ZbOb 




RW , 


c 

o » 


J/HRRZ 


n 
U 


r\ftft /t 
UDD4 , 




I 4Zb 


4 4 AA 

1 1UU 


O ft ft "7 

Zoo / 




R-PF , 


AC, 


J/HLRZ 


D 


0555 , 


0015, 


1426 


3000 


2658 




I - PF , ' 


AC , 


J/HLRZ 


r> 

U 


UOOb , 


A4 4C 

U i lb, 


4 A OC 

1 4ZO 


A7AA 

U / UU 


2659 






M 

m , 


j/HLRZ 


n 
u 


AftE=*7 


AAA/t 

UUU4 , 


4 A Oft 
I 4Zb 


4 7AA 

1 /UU 


O ft ft A 

ZbbU 
266 1 




RW , 


s , 


U/ HLKZ 


U 


ACCA 

UDoU , 


1U ID , 


4 A O 4 
1 4Z 1 


4 4 AA 
1 lUU 


2662 


560 : 


R-PF , 


AC, 


U/ rlKKU 


D 


0561 , 


0015, 


1421 


3000 


2663 




I - PF , 


AC , 


J/HRRO 


u 


UObZ , 


A4 

U 1 lO, 


4 A O 4 


A7AA 

U / UU 


O ft ft A 

Zbb4 




w , 


Ml 


U / HKKU 


U 


AKft o 


AAA/1 

UUU4 , 


4 /I O 4 
1 4Z 1 


4 7AA 

1 /UU 


O ft ft ft 
O ftft ft 

Zboo 




RW , 


s , 


i / unnA 
u/ HKKU 


U 


0564 , 


1015, 


4 >l O "7 


1 100 


2667 




R-PF, 


AC, 


J/HLRO 


D 


0565, 


0015, 


1427 


3000 


2668 




T — DC 


A 

At , 


J/HLRO 


n 
u 


UOOO , 


A 4 4 ft 
u t ID, 


4 A O 7 
1 4 Z / 


A7AA 
U / UU 


Oft ftQ 

Zbb y 




w , 


M 


. 1 / t_l 1 DPI 

u/ MLKU 


n 
u 


rvftft 7 
UOb / , 


AAA/1 


4 /l O 7 
I 44 / 


4 7AA 
1 / UU 


O ft 1 A 

Zb / U 

Oft7 4 

Zb / 1 




nil/ 


C 

o , 


1 / l_l 1 DA 

U/ nLKU 


n 
u 


UO / U , 


4 rv 4 ft 


4 A 4 *7 
14 1/ 


4 4 AA 

1 1UU 


O ft "7 O 

Zb / Z 


C7A • 

o /u . 


R-PF, 


AC, 


1 /UDDC 

0/ nKKfc 


D 


0571 , 


0015, 


1417 


3000 


2673 




I-PF, 


AC, 


J/HRRE 


D 


0572, 


0116, 


1417 


0700 


2674 




w, 


M, 


J/HRRE 


D 


0573, 


0004, 


1417 


1700 


2675 
2676 




RW , 


s , 


d/HRRE 


D 


0574, 


1015, 


1423 


1100 


2677 




R-PF, 


AC, 


J/HLRE 





0575, 


0015, 


1423 


3000 


2678 




I-PF, 


AC, 


J/HLRE 


D 


0576, 


01 16, 


1423 


0700 


2679 




W, 


M, 


J/HLRE 


D 


0577, 


0004, 


1423 


1700 


2680 
2681 
2682 
2683 




RW, 

.UCODE 


s, 


J/HLRE 



■ HRRM = HLL EXCEPT FOR STORE 
; HRRS = MOVES 
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KS10 MICROCODE V124, 
HALFWORD GROUP 



27-JUL-84 Page 75 



U 1 407 , 1 500 ,3771, 0003 , 0276 , 0003 , 7700 , 0200 , 0003 , 000 1 
U 1410, 1 500 ,3771, 0003 , 0270 , 6003 , 7700 , 0200 ,0003 , 000 1 



U 1411, 14 10, 3770, 0303, 4344, 4007, 0700, 0000,0000, 0000 
U 1412, 1 407 , 3770 , 0303 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 



U 1413, 0511,3770,0303,4344,4007,0700,0000,0000,0000 
U 051 1 , 1402,3771 ,0003,0270,6007,0700,0000,0000,0000 

U 1414, 1500,3770,0303,4344,0003,7700,0200,0003,0001 



U 1415, 0512,3770,0303,4344,4007,0700,0000,0000,0000 
U 05 1 2 , 1 402 ,3771, 0003 , 0276 , 0007 , 0700 , 0000 , 0000 , 0000 

U 1416, 1 500 , 37 70 , 0303 , 4340 , 4003 ,7700 , 0200 , 0003 , 000 1 



2684 
2685 
2686 
2687 
2688 
2689 
"2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
271.1 
2712 
27.13 
2714 
2715 
2716 
2717 
2718 
27-19 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2730 
2731 



; FIRST THE GUYS THAT LEAVE THE OTHER HALF ALONE 

; THE AR CONTAINS THE MEMORY OPERAND. SO WE WANT TO PUT THE LH OF 

; AC INTO AR TO DO A.HRR. OBVIOUS THING FOR HLL . 

1407: 

HRR: [ AR ]_AC , HOLD RIGHT, EXIT 

1410: > 

HLL: [ AR ]_AC , HOLD LEFT, EXIT 

HRL FLOW: 

AT HRL AR CONTAINS: 





LH OF 


(E) i 


RH 


OF 


(E) 


;AR_AR SWAP 


GIVES: 












RH OF 


(E) ! 


LH 


OF 


(E) 


•AT HLL, AR_ 


_AC,HOLD 


LEFT GIVES: 










RH OF 


(E) ! 


RH 


OF 


AC 



THE EXIT MACRO CAUSES THE AR TO BE STORED IN AC (AT STAC). 
THE REST OF THE HALF WORD IN THIS GROUP ARE VERY SIMILAR. 



1411: 




HRL: 


[AR] 


1412: 




HLR: 


[AR] 


1413: 




HRLM: 


[AR] 




[AR] 


1414: 




HRLS: 


[AR] 


1415: 




HLRM: 


[AR] 




[AR] 


1416: 




HLRS: 


[AR] 



[ AR ]_[ AR ] SWAP, HOLD RIGHT, EXIT 



[ AR ]_[ AR ] SWAP, HOLD LEFT, EXIT 



rs 

T10KL>iv«c£[ 10, 1 141 ] 
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MICRO 



U 1417, 1 420 , 3333 , 0003 ,4174, 4007 ,. 0530 , 0000 , 0000 , 0000 

U 1 420 , 1 500 ,5731, 0003 ,4174 ,4003 , 7700 , 0200 , 0003 , 000 1 

U 1421, 1 500 ,5431,1 203 ,4174, 4003 , 7 700 , 0200 , 0003 , 000 1 

U 1422, 1424,3333, 0003 ,4174, 4007 , 0530 , 0000 , 0000 , 0000 

U 1424, 1 402 ,3771, 0003 , 4374 , 0007 , 0700 , 0000 , 0000 , 0000 

U 1425, 1 402 , 377 1 , 0003 , 4374 , 0007 , 0700 , 0000 , 0077 ,7777 

U 1423, 1426 , 3333 , 0003 , 4 1 74 , 4007 ,0520 , 0000 , 0000 , 0000 

U 1426, 1 402 ,3771, 0003 , 4370 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1 427 , 1 402 , 377 1 , 0003 , 4370 , 4007 , 0700 , 0000 , 0077 ,7777 

U 1430, 1432,3333, 0003 ,4174, 4007 , 0520 , 0000 , 0000 ,0000 

U 1432, 1 500 ,5371, 0003 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 

U 1433, 1500,5341 , 1203,4174,4003,7700,0200,0003,0001 



254) KS.o MICROCODE V124, 27-JUL-84 Page 76 
HALFWORD GROUP 



2732 


;NOW 


THE HALFWORD OPS WHICH CONTROL THE "OTHER" 


2733 


; ENTER WITH 


0, , E (E) OR (AC) IN AR 


2734 








2735 


1417 






2736 


HRRE 


READ 


[AR] ,SKIP DP18 


2737 


1420 






2738 


HRRZ 


[AR] 


LEFT_0, EXIT 


2739 


1421 






2740 


HRRO 


[AR] 


LEFT_- 1 , EXIT 


2741 








2742 


1422 






2743 


HRLE 


READ 


[AR] ,SKIP DP18 


2744 


1424 






2745 


HRLZ 


[AR]_ 


_#,#/0,HOLD RIGHT, J/MOVS 


2746 


1425 






2747 


HRLO 


[AR]_ 


_#,#/777777,H0LD RIGHT, J/MOVS 


2748 








2749 


1423 






2750 


HLRE 


READ 


[AR] ,SKIP DPO 


2751 


1426 






2752 


HLRZ 


[AR]_ 


_#,#/0,HOLD LEFT, J/MOVS 


2753 


1427 






2754 


HLRO 


CAR]. 


_#,#/777777,H0LD LEFT, J/MOVS 


2755 








2756 


1430 






2757 


HLLE 


READ 


[AR] ,SKIP DPO 


2758 


1432 






2759 


HLLZ 


[AR] 


RIGHT_0 , EXIT 


2760 


1433 






2761 


HLLO 


[AR] 


RIGHT__-1, EXIT 


2762 
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15:31 27-UULY-1984 



MICRO 



D 0120, 0205,1505,1100 
D 0121 , 0215, 1434, 1 100 



U 1434, 3063,4551,0404,4374,0007,0700,0010,0037,7777 
U 1436, 1515,3440,0404, 1 1 74 , 4007 , 0700 , 0400 ,0000, 1441 



D 0124, 0300,1567,0100 
D 0125, 0100,1565,0500 



U 1565, 3062,3771,0004,1276,6007,0701,0010,0000,1441 



U 1567, 0531,0113,0207,4174,4007,0700,0200,0003,0312 
U 0531, 0532,3333,0004,4175,5007,0701,0200,0000,0002 



U 0532, 0455,3443,0200,4174,4007,0700,0200,0003,0312 



254) KS10 MICROCODE V124, 27-JUL-84 Page 77 
DMOVE, DMOVN, DMOVEM, DMOVNM 

2763 .TOC "DMOVE , DMOVN, DMOVEM, DMOVNM" 
2764 

2765 . DCODE 

2766 120: DBL R, DAC, J/DAC 

2767 DBL R, AC, J/DMOVN 

2768 .UCODE 
2769 

2770 1434: 

2771 DMOVN: CLEAR ARXO, CALL [DBLNGA] 

2772 1436: AC[ i ]_[ ARX] f U/STAC 

2773 % 

2774 .DCODE 

2775 124: DBL AC, J/DM0VN1 

2776 W, J/DMOVNM 

2777 .UCODE 
2778 

2779' 

2780 1565: 

2781 DMOVNM: [ ARX ]_AC [ 1 ], CALL [DBLNEG] 

2782 1567: 

2783 DMOVN 1 : [ HR ] + [ ONE ] , ; GET E+1 

2784 LOAD VMA , ; PUT THAT IN VMA 

2785 START WRITE, ; STORE IN E+1 

2786 PXCT DATA ; DATA CYCLE 

2787 MEM WRITE, MEM__[ ARX ] ; STORE LOW WORD 

2788 VMA_[HR], ; GET E 

2789 LOAD VMA, ; SAVE IN VMA 

2790 * PXCT DATA, ; OPERAND STORE 

2791 START WRITE, ; START MEM CYCLE 

2792 J/STORE ; GO STORE AR 
2793 
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MICRO 



D 0400, 0015,1441,3000 

D 0401, 0015,1441,3000 

D 0402, 0016,1441,2700 

D 0403, 0017,1441,2700 



U 1441 , 1500,4221 ,0003,4174,4003,7700,0200,0003,0001 



D 0404, 1015, 1442, 1 100 

D 0405, 0015,1442,3000 

D 0406, 0016,1442,1700 

D 0407, 0017,1442,1700 



U 1442, 1 500 , 455 1 , 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 



D 0410, 1015, 1443, 1 100 

D 0411, 0015,1443,3000 

D 0412, 0016,1443,1700 

D 0413, 0017, 1443, 1700 



U 1 443 , 1 500 , 555 1 , 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 



D 0414, 1015, 1404, 1 100 

D 0415, 0015,1404,3000 

D 0416, 0016,1404,1700 

D 0417, 0017,1404,1700 

D 0420, 1015, 1444, 1 100 

D 0421, 0015,1444,3000 

D 0422, 0016,1444,1700 

D 0423, 0017,1444,1700 



U 1 444 , 1 442 , 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



D 0424, 0000,1400,1100 

D 0425, 0000,1400,2100 

D 0426, 0116,1404,0700 

D 0427, 0116,1404,0700 



.54) 


KS10 MICROCODE 


V124, 


27- JUL-84 




BOOLEAN 


GROUP 






2794 


. TOC 


"BOOLEAN GROUP" 


2795 










2796 




. DCODE 






2797 


400: 


I -PF , 


AC , 


J/SETZ 


2798 




I -PF , 


AC , 


J /SETZ 


2799 




I W , 


M , 


J/SETZ 


2800 




I W , 


B , 


J/SETZ 


2801 




. UCODE 






2802 










2803 


144 1 : 








2804 


SETZ : 


[AR] 0, 


EXIT 




2805 










2806 




.DCODE 






2807 


404 : 


R-PF, 


AC, 


J/AND 


2808 




I-PF, 


AC, 


J/AND 


2809 




RW, 


M , 


J/AND 


2810 




RW, 


B, 


J/AND 


281 1 




.UCODE 






2812 










2813 


1 442 : 








2814 


AND : 


[AR] [ARj.AND 


.AC EXIT 


2815 










2816 




.DCODE 






2817 


410: 


R-PF, 


AC, 


J/ANDCA 


28 18 




I-PF, 


AC, 


J /ANDCA 


2819 




RW, 


M, 


J/ANDCA 


2820 




RW, 


B , 


J /ANDCA 


2821 




.UCODE 






2822 










2823 


1 443 : 








2824 


ANDCA : 


[AR] [ARJ.AND 


. NOT . AC , EX 


2825 










2826 




.DCODE 






2827 


414: 


R-PF, 


AC, 


J/MOVE 

KJ / 1*1 w V L- 


2828 




I-PF, 


AC, 


iJ/MOVF 


2829 




RW, 


M, 


J /MOVE 


2830 




RW, 


B, 


1 1 /MDVF 


2831 










2832 


420 : 


R-PF, 


AC, 


J/ ANDCM 


2833 




I-PF, 


AC, 


J/ANDCM 


2834 




RW, 


M, 


J/ ANDCM 


2835 




RW, 


B, 


J/ANDCM 


2836 




.UCODE 






2837 










2838 


1444 : 








2839 


ANDCM : 


[AR] .NOT. [AR] , J/AND 


2840 










284 1 




.DCODE 






2842 


424 : 


R , 




J/DONE 


2843 




I , 




J/DONE 


2844 




w, 


M, 


J/MOVE 


2845 




w, 


M, 


J/MOVE 


2846 




.UCODE 






2847 











; SETM = MOVE 

; SETMM = NOP THAT WRITES MEMORY 
; SETMB = MOVE THAT WRITES MEMORY 



; SETAM 
; SETAB , 



= MOVEM 
TOO 
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MICRO 



D 0430, 1015, 1445, 1 100 

D 0431, 0015,1445,3000 

D 0432, 0016, 1445, 1700 

D 0433, 0017, 1445, 1700 



U 1445, 1 500 , 655 1 , 0303 , 0274 , 4003 , 7700 # 0200 , 0003 , 000 1 



D 0434, 1015, 1446, 1 100 

D 0435, 0015,1446,3000 

D 0436, 0016,1446,1700 

D 0437, 0017, 1446, 1700 



U 1 446 , 1 500 , 355 1 , 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 



D 0440, 1015, 1447, 1 100 

D 0441, 0015,1447,3000 

D 0442, 0016,1447,1700 

D 0443, 0017,1447,1700 



U 1447, 1443, 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



D 0444, 1015, 1450, 1 100 

D 0445, 0015,1450,3000 

D 0446, 0016,1450,1700 

D 0447, 0017, 1450, 1700 



U 1 450 , 1 500 , 755 1 , 0303 , 0274 , 4003 , 7700 , 0200 , 0003 , 000 1 



D 0450, 0015,1451,3000 

D 0451, 0015,1451,3000 

D 0452, 0016, 1451 ,2700 

D 0453, 0017, 1451 ,2700 



U 1451, 1 500 ,7771, 0003 , 02 74 , 4003 , 7 700 , 0200 , 0003 , 000 1 




V 



1(254) KS10 MICROCODE V124, 27-JUL-84 Page 79 
BOOLEAN GROUP 

- ; 2848 . DCODE 

; 2849 430: R-PF, AC, J/XOR 

; 2850 I-PF, AC, J/XOR 

; 2851 RW, M, J/XOR 

; 2852 RW, B, J/XOR 

; 2853 .UCODE 

; 2854 

; 2855 1445: 

; 2856 XOR: [ AR ]_[ AR ] . XOR . AC , EXI T 

; 2857 

; 2858 .DCODE 

; 2859 434: R-PF, AC, J/IOR 

; 2860 I-PF, AC, J/IOR 

; 2861 RW, M , J/IOR 

; 2862 RW, B, J/IOR 

; 2863 . UCODE 

; 2864 

; 2865 1446: 

; 2866 IOR: [ AR ]__[ AR ] . OR . AC , EXIT 

; 2867 

; 2868 .DCODE 

; 2869 440: R-PF, AC, J/ANDCB 

; 2870 I-PF, AC, J/ANDCB 

; 2871 RW, M, J/ANDCB 

; 2872 RW, B, J/ANDCB 

; 2873 . UCODE 

; 2874 

; 2875 1447: 

; 2876 ANDCB: [ AR ]_ . NOT . [ AR ] , J/ANDCA 

; 2877 

; 2878 .DCODE 

; 2879 444: R-PF, AC, J/EQV 

; 2880- I-PF, AC, J/EQV 

; 2881 RW, M, J/EQV 

; 2882 RW, B, J/EQV 

; 2883 .UCODE 

; 2884 

; 2885 1450: 

; 2886 EQV: [ AR ]_[ AR } . EQV . AC , EXI T 

; 2887 

; 2888 .DCODE 

; 2889 450: I-PF, AC, J/SETCA 

; 2890 I-PF, AC, J/SETCA 

; 2891 IW, M, J/SETCA 

; 2892 IW, B, J/SETCA 

; 2893 .UCODE 

; 2894 

; 2895 1451: 

; 2896 SETCA: [ AR ]_. NOT . AC , EXIT 

; 2897 
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MICRO 



D 0454, 1015, 1452, 1 100 

D 0455, 0015,1452,3000 

D 0456, 0016,1452,1700 

D 0457, 0017,1452,1700 



U 1452, 
U 0552, 



0552 , 777 1 , 0005 , 0274 , 4007 , 0700 , 0000 , 0000 , 0000 
1 500 ,3111, 0503 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 



D 0460, 
D 046 1 , 
D 0462, 
D 0463, 



1015, 1453. 1 100 
0015, 1453,3000 
0016, 1453, 1700 
0017, 1453, 1700 



U 1 453 , 1 500 ,7441, 0303 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 



D 0464, 1015, 1454, 1 100 

D 0465, 0015,1454,3000 

D 0466, 0016,1454,1700 

D 0467, 0017,1454,1700 



U 1454, 1446 , 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , OOOO 



D 0470, 1015, 1455, 1 100 

D 0471, 0015,1455,3000 

D 0472, 0016,1455,1700 

D 0473, 0017,1455,1700 



U 1455, 1453, 455 1 , 0303 , 0274 , 4007 , 0700 , 0000 , 0000 , 0000 



D 0474, 
D 0475, 
D 0476, 
D 0477, 



0015, 1456,3000 
0015, 1456,3000 
0016, 1456, 2700 
0017, 1456,2700 



U 1456, 



1 500 , 244 1 , 0703 ,4174, 4003 » 7700 , 4200 , 0003 , 000 1 
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2898 




. DCODE 






2899 


454 : 


R -PF , 


AC , 


J /ORCA 


2900 




i-pf! 


Ac! 


J/ORCA 


2901 




RW, 


M, 


J /ORCA 


2902 




RW, 


B, 


J /ORCA 


2903 




.UCODE 






2904 










2905 


1452 : 








2906 


ORCA : 


[BR] . 


NOT. AC 




2907 




[AR] [AR].OR. 


rppi FXTT 


2908 










2909 




DCODE 






29 10 


460 : 


R - PF 


AC, 


J/SETCM 


29 1 1 




I - PF 


AC, 


J/SETCM 


29 1 2 




RW 


M, 


J/SETCM 


29 1 3 




RW 


B, 


J/SETCM 


29 14 




UCODE 






29 15 










2916 


M453 : 








29 17 


SETCM : 


L J . 


NOT. [AR] .EXIT 


29 1 8 










29 19 




. DCODE 






2920 


464 : 


R-PF , 


AC, 


J/ORCM 


292 1 




I-PF, 


AC, 


J/ORCM 


2922 




RW, 


M, 


J/ORCM 


2923 




RW, 


B, 


J/ORCM 


2924 




.UCODE 






2925 










2926 


1 454 : 








2927 


ORCM : 


[AR]_. 


NOT. [AR] , J/IOR 


2928 










2929 




.DCODE 






2930 


470 : 


R-PF, 


AC, 


J/ORCB 


293 1 




I-PF, 


AC, 


J/ORCB 


2932 




RW, 


M , 


J/ORCB 


2933 




RW, 


B, 


J/ORCB 


2934 




.UCODE 






2935 










2936 


1 455 : 








2937 


ORCB : 


[AR] [ AR ] . AND 


.AC, J/SETCM 


2938 










2939 




.DCODE 






2940 


474 : 


I-PF, 


AC, 


J/SETO 


294 1 




I-PF, 


AC, 


J/SETO 


2942 




iw, 


M, 


J/SETO 


2943 




IW, 


B, 


J/SETO 


2944 




.UCODE 






2945 










2946 


1456: 








2947 


SETO: 


[AR]_- 


[ONE] , 


EXIT 


,2948 











T10KL.MCR[10, 1141] 15:34 27-JULY-1984 MICRO 31 

SIMPLE. MIC[ 10, 1 141] 15:31 27- JULY- 19.84 



D 0240, 0400,1622,1000 

D 0241, 0400,1632,1000 

D 0242, 0400,1612,1000 

D 0243, 0000,1462,2100 

D 0244, 0000,1466,3000 

D 0245, 0500,1470,1000 

D 0246, 0500,1464,1000 



U 1612,. 0564,3771,0003,0276,6007,0700,1000,0031,1777 
U 1613, 0572,4551,1203,0276,6007,0700,1000,0041,0001 
U 0564, 1515,3445,0303,4174,4007,0700, 1020 , 004 1 , 0001 



V J 
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2949 


.TOC 


"ROTATES AND 


LOGICAL SHIFTS -- ROT, LSH, JFFO" 


2950 








2951 




. DCODE 




2952 


240: 


SH, 


J/ASH 


2953 




SH, 


J/ROT 


2954 




SH, 


U/LSH 


2955 




I , 


J/JFFO 


2956 




I -PF , 


J/ASHC 


2957 


245: 


SHC, 


J/ROTC 


2958 




SHC , 


J/LSHC 


2959 




.UCODE 




2960 








296 1 








2962 


; HERE 


IS THE CODE FOR 


LOGICAL SHIFT. THE EFFECTIVE ADDRESS 


2963 


; IN 


AR. 




2964 


1612: 






2965 


LSH: 


[AR] AC, 


;PICK UP AC 


2966 




FE -FE-1, 


; NEGATIVE SHIFT 


2967 




J/LSHL 


;SHIFT LEFT 


2968 


1613: 


[ AR ] AC. AND. MASK, ; MAKE IT LOOK POSITIVE 


2969 




FE FE+1, 


;UNDO -1 AT SHIFT 


2970 




J/ASHR 


;G0 SHIFT RIGHT 


2971 








2972 


LSHL: 


[AR] [AR]*2, 


;SHIFT LEFT 


2973 




SHIFT, J/STAC 


; FAST SHIFT & GO STORE AC 



2974 



T10KL.MCR[ 10, 1 141 ] 
SIMPLE . MIC [ 10, 1141] 



15:34 27-JULY-1984 
15:31 27-JULY-1984 



MICRO 31(254) 
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2975 


; HERE 


IS THE CODE FOR ARITHMETIC SHIFT. THE EFFECTIVE ADDRESS 








2976 


; IN 


AR . 










2977 














2978 


ASH36 


LEFT " [AR]_[AR]*2 


LONG, ASHC, STEP SC , ASH AROV" 








2979 














2980 


1 622 : 






u 


1622 , 


UbU4 , 4222 , OOOO ,4174, 4UU / , 0700 , OOOO , OOOO , OOOO 


298 1 


ASH : 


0_0, J/ASHLO 


; HARDWARE ONLY DOES ASHC 








2982 


1623: 


[ AR ] AC , 


;GET THE ARGUMENT 


u 


1 623 , 


Ub / 2 , J / / 1 , UUUo , U2 / b , bUU / , U / UO , 1 OUO , U04 1 , UUU 1 


2983 




FE FE+1 


; FE HAS NEGATIVE SHIFT COUNT 








2984 


ASHR: 


[ AR 3 [AR]*.5, 


; SHIFT RIGHT 








2985 




ASH, SHIFT, 


; FAST SHIFT 


u 


0572, 


1515,3447, 0303 ,4174, 4007 , 0700 , 1 020 , 004 1 , 000 1 


2986 
2987 




J/ STAC 


; STORE AC WHEN DONE 








2988 


ASHLO 


f An 1 AT* R 




1 1 
u 


UDU4 , 


akao 0777 AAAO 007/1 /1AA7 acoi oaaa aaca aaaa 
UDU/ , o / / / , UUUo , U-i / , *fUU / , Uoo I , zUUU , UUbU , UUUU 


OQQQ 

ay 
2990 


=0 


STEP SC 


;SEE IF NULL SHIFT 


u 


0502, 


0502 , 3444 , 0303 , 4 1 74 , 4447 , 0630 , 2000 , 0060 , 0000 


2991 
2992 
2993 
2994 


ASHL: 


ASH36 LEFT, J/ASHL 


;SHIFT LEFT 

;SLOW BECAUSE WE HAVE TO 
; TEST FOR OVERFLOW 


u 


0503, 


1515, 3445 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 


2995 
2996 


ASHX: 


[AR3_[AR]*2, J/STAC 


;SHIFT BACK INTO 10 CHIPS 



T10KL.MCR[10,1141] 15:34 27-JULY-1984 

SIMPLE. MIC[ 10, 1141] 15:31 27-UULY- 1984 



MICRO 31 



U 1632, 0652,3777,0003,0274,4007,0701,1000,0031,1777 

U 1633, 0612,3777,0003,0274,4007,0701,1000,0041,0001 

U 0612, 0631,3447,0303,4174,4007,0700,0000,0000,0000 

U 0631, 0646,3447,0303,4174,4037,0700,1020,0041,0001 

U 0646, 0503,3445,0303,4174,4007,0700,0000,0000,0000 

U 0652, 0701,3447,0303,4174,4007,0700,0000,0000,0000 

U 0701, 0646,3445,0303,4174,4037,0700,1020,0041,0001 
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2997 


; HERE 


IS THE CODE FOR ROTATE. THE EFFECTIVE ADDRESS IS 


2998 


; IN 


AR. 




2999 


1632: 






3000 


ROT: 


CAR] AC*. 5, 


PICK UP THE AC (& SHIFT) 


3001 




FE -FE-1, 


NEGATIVE SHIFT COUNT 


3002 




U/ROTL 


ROTATE LEFT 


3003 


1633: 


[AR] AC*. 5, 


PICK UP THE AC (& SHIFT) 


3004 




FE FE+1 


NEGATIVE SHIFT COUNT 


3005 




CAR] CAR]*. 5 


PUT IN 9 DIPS 


3006 




CAR] CAR]*. 5, 


SHIFT RIGHT 


3007 




ROT, SHIFT 


FAST SHIFT 


3008 


ASHXX 


: [AR]_CAR]*2, J/ASHX 


SHIFT TO STD PLACE 


3009 








3010 


ROTL: 


[AR] CAR]*. 5 


PUT IN RIGHT 36-BITS 


301 1 




CAR] CAR]*2, 


ROTATE LEFT 


3012 




ROT, SHIFT, 


FAST SHIFT 


3013 




d/ASHXX 


ALL DONE- -SHIFT BACK 


3014 









T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 1462, 0514,4551,1205,0276,6007,0622,0000,0000,0000 



U 0514, 0706,3441,0301,4174,4007,0700,0200,0014,0012 
U 0515, 1400,4223,0000, 1 1 74 , 4007 , 0700 , 0400 , 0000 , 1441 

U 0706, 0534,4443,0000,4174,4007,0700,1000,0071,1764 



U 0534, 0534,3445,0505,4174,4007,0520,1000,0041,0004 

U 0535, 0747,3777,0003,4334,4057,0700,0000,0041,0000 

U 0747, 0767,4251,0303,4374,4007,0700,0000,0000,0077 

U 0767, 0100,3440,0303,1174,4156,4700,0400,0000,1441 



254) 



KS10 MICROCODE V124, 27-JUL-84 Page 84 
ROTATES AND LOGICAL SHIFTS ROT, LSH, JFFO 



3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 



1462 : 
JFFO: 



=0 



JFFO 1 : 



[BR]_AC. AND. MASK, 4T , 
SKIP AD.EO.O 

[PC]_[AR] , 

LOAD VMA, FETCH, 

J/ JFFO 1 

AC[1]_0, J/DONE 
FE -12. 



=0 

JFFOL: 



GET AC WITH NO SIGN 

EXTENSION . SKIP IF 

ZERO. 
NOT ZERO- -JUMP 
GET NEXT INST 
ENTER LOOP 
ZERO- -DONE 

WHY -12.? WELL THE 
HARDWARE LOOKS AT 
BIT -2 SO THE FIRST 
2 STEPS MOVE THE BR 
OVER. WE ALSO LOOK AT 
THE DATA BEFORE THE SHIFT 
SO WE END UP GOING 1 PLACE 
TOO MANY. THAT MEANS THE 
FE SHOULD START AT -3. 
HOWEVER, WE COUNT THE FE BY 
4 (BECAUSE THE 2 LOW ORDER 
BITS DO NOT COME BACK) SO 
FE -12. 



[BR]_[BR]*2, 
FE_FE+4, 

SKIP DPO, J/JFFOL 
[AR]_FE 

[AR]_[ARJ . AND. # CLR LH,#/77 ; MASK TO 1 COPY 
AC[1]_[AR], NEXT INST ;STORE AND EXIT 



SHIFT LEFT 
COUNT UP BIT NUMBER 
LOOP TILL WE FIND THE BIT 
GET ANSWER BACK 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 

SIMPLE . MIC [ 10, 1141] 15:31 27- JULY- 1984 



MICRO 



U 1464, 0554,4443,0000,4174,4007,0630,2000,0060,0000 

U 1465 , 1006 , 3333 , 0003 ,4174, 4007 , 0700 , 2000 , 003 1,5777 

U 1006, 0544,4443,0000,4174,4007,0630,2000,0060,0000 

U 0544, 0544,3446,0505,4174,4057,0630,2000,0060,0000 

U 0545 , 1014, 3444 , 0505 ,4174, 4007 , 0700 , 0000 ,0000 , 0000 



U 0554, 0554,3444,0505,4174,4057,0630,2000,0060,0000 

U 0555 , 1014, 3444 , 0505 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1014, 1 033 , 3444 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1 033 , 1 053 , 3440 , 0505 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 
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; 3045 .TOC "ROTATES AND LOGICAL SHIFTS - - LSHC" 

; 3046 

; 3047 ; SHIFT CONNECTIONS WHEN THE SPECIAL FUNCTION "LSHC" IS DONE: 

; 3048 ; 

; 3049 ; !~! ! ! ! 

; 3050 ; !0!-->!0000! HIGH ORDER 36 BITS ! RAM FILE 

. 3 5 1 . ,-j f-.---! ! 

; 3052 ; 

; 3053 ; : 

; 3054 ; 

; 3055 ; : 

. 3056 . f } I 

; 3057 ; !0000! LOW ORDER 36 BITS ! Q-REGI STER 

. 3058 ; ! ! ! 

; 3059 ; 

; 3060 ; : 

; 306 1 ; ! - t 

; 3062 ; !0! 

; 3063 ; ! - ! 

; 3064 ; 

; 3065 

; 3066 1464: 

; 3067 LSHC: STEP SC, J/LSHCL 

; 3068 1465: READ [ AR 3 , SC_-SHIFT-1 

; 3069 STEP SC 

; 3070 =0 

; 3071 LSHCR: [BR]_JBR]*.5 LONG, STEP SC , LSHC , J/LSHCR 

; 3072 [BR]_[BR]*2 L0NG,J/LSHCX 

; 3073 

; 3074 =0 

; 3075 LSHCL: [ BR ]__[ BR ] *2 LONG , LSHC , STEP SC,U/LSHCL 

; 3076 [BR]__[BR]*2 LONG 

; 3077 LSHCX: [BR]_[BR]*2 LONG 

; 3078 ACJBR], U/ASHCQ1 

; 3079 



o 

; T10KL.Wfc[ 10, 1 141 ] 15:34 27- JULY- 1984 MICRO 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 1466, 0602,3333,0003,4174,4007,0330,3000,0041,4000 

U 0602, 1036,3772,0000, 1275,5007,0701 ,0000,0000, 1441 
U 0603, 0100,4443,0000,4174,4156,4700,0000,0000,0000 



U 1036, 0614,3776,0005,0274,4007,0631,0000,0000,0000 

U 0614, 0634,3447,0505,4174,4007,0700,2000,0041,1776 

U 0615, 0624,3447,0505,4174,4007,0700,2000,0031,1776 

U 0624, 0624,3446,0505,4174,4047,0630,2000,0060,0000 

U 0625 , 1046 , 3444 , 0505 ,4174, 4047 , 0700 , 0000 , 0000 , 0000 



U 0634, 0634,3444,0505,4174,4447,0630,2000,0060,0000 

U 0635 , 1046 , 3444 , 0505 ,4174, 4447 , 0700 , 0000 , 0000 , 0000 

U 1046, 0642,0113,0505,0174,4007,0521,0400,0000,0000 

U 0642 , 1053 , 4662 , 0000 , 4374 , 0007 , 0700 , 0000 , 0037 , 7777 

U 0643 , 1053 , 3662 , 0000 , 4374 , 0007 , 0700 , 0000 , 0040 , 0000 

U 1053, 0100,3223,0000,1174,4156,4700,0400,0000,1441 
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3080 .TOC "ROTATES AND LOGICAL SHIFTS -- ASHC" 

3081 

3082 

3083 1466: 

3084 ASHC: READ [AR], ; PUT AR ON DP 

3085 SC_SHIFT, LOAD FE, ; PUT SHIFT IN BOTH SC AND FE 

3086 SKIP ADR.EQ.O ;SEE IF NULL SHIFT 

3087 =0 AC[1], ;NOT NULL- -GET LOW WORD 

3088 J/ASHCI ; CONTINUE BELOW 

3089 NIDISP: NEXT INST ; NULL- -ALL DONE 

3090 ASHC 1 : [BR]_AC*.5 LONG, ; GET HIGH WORD 

3091 ; AND SHIFT 

3092 SKIP/SC ;SEE WHICH DIRECTION 

3093 =0 [BR]_[BR]*.5, ;ADJUST POSITION 

3094 SC_FE+S#, S#/1776, ; SUBRTACT 2 FROM FE 

3095 J/ASHCL ; GO LEFT 

3096 [BR]_[BR]*.5 f ; ADJUST POSITION 

3097 SC_S#-FE, S#/1776 ;SC_-2-FE, SC_+# OF STEPS 

3098 =0 ; HERE TO GO RIGHT 

3099 ASHCR: [ BR ]_[ BR ] * . 5 LONG, ; GO RIGHT 

3100 ASHC, ;SET DATA PATHS FOR ASHC (SEE DPE1) 

3101 STEP SC, J/ASHCR ; COUNT THE STEP AND KEEP LOOPING 

3102 [BR]_[BR]*2 LONG, ; PUT BACK WHERE IT GOES 

3103 ASHC, J/ASHCX ; COMPLETE INSTRUCTION 
3104 

3105 =0 

3106 ASHCL: [BR]_[BR]*2 LONG, ; GO LEFT 

3107 ASHC, ASH AROV, ;SEE IF OVERFLOW 

3108 STEP SC, J/ASHCL ; LOOP OVER ALL PLACES 

3109 [BR]_[BR]*2 LONG, ;SHIFT BACK WHERE IT GOES 

3110 ASHC, ASH AROV ;CAN STILL OVERFLOW 

3111 ASHCX: AC_[ BR ]+ [BR ] , 3T , ; PUT BACK HIGH WORD 

3112 SKIP DPO ;SEE HOW TO FIX LOW SIGN 

3113 =0 0_O.AND.#, #/377777, ;POSITIVE, CLEAR LOW SIGN 

3114 HOLD RIGHT, J/ASHCQ 1 ; GO STORE ANSWER 

3115 Q_Q.OR.#, #/400000, ; NEGATIVE , SET LOW SIGN 

3116 HOLD RIGHT ; IN LEFT HALF 

3117 ASHCQ1: AC[1]_Q, NEXT INST ; PUT BACK Q AND EXIT 
3118 



T10KL.MCR[ 10, 1141] 15:34 27-JULY-1984 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 



U 1470, 0742,4443,0000,4174,4007,0630,2000,0060,0000 

U 1471 , 1062,3333,0003,4174,4007,0700,2000,0031 ,5777 

U 1062, 0644,4443,0000,4174,4007,0630,2000,0060,0000 

U 0644., 0644,3446,0505,4174,4077,0630,2000,0060,0000 

U0645, 1014,3444, 0505 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 0742, 0742,3444,0505,4174,4077,0630,2000,0060,0000 



U 0743 , 1014, 3444 , 0505 ,4174, 4007 , 0700 , OOOO , 0000 , 0000 
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31 19 
3 1 20 
3121 
3122 
3123 
3124 
3125 
3126 
3127 
3128 
3129 
3130 
3131 
3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 



TOC "ROTATES AND LOGICAL SHIFTS ROTC " 

SHIFT CONNECTIONS WHEN THE SPECIAL FUNCTION "ROTC" IS DONE: 



. > ! 0000 
? 



HIGH ORDER 36 BITS 



RAM FILE 



. . ! 00.00 



LOW ORDER 36 BITS 



Q-REGISTER 



1470: 




ROTC: 


STEP 


1471 : 


READ 




STEP 


=0 




ROTCR: 


[BR] 




[BR ] 



[BR]_[BR3*-5 LONG, STEP SC , ROTC , J/ROTCR 
[BR3_[BR]*2 L0NG,J/LSHCX 

=0 

ROTCL: [BR]_JBR]*2 LONG , ROTC , STEP SC,J/R0TCL 
[BR3_[BR3*2 LONG, 
J/LSHCX 



T10KL.MCR[ 10, 1141] 
SIMPLE. MIC[ 10, 1 141 3 



D 


0600, 


0000, 


1400,2100 


D 


0601 , 


0000, 


1400,2100 


D 


0602 , 


0000, 


1475, 2100 


D 


0603, 


0000, 


1474,2100 


D 


0604, 


0000, 


1473,2100 


D 


0605, 


0000, 


1472,2100 


D 


0606, 


0004, 


1475,2100 


D 


0607, 


0004, 


1474,2100 


D 


0610, 


0000, 


1400,2100 


D 


061 1 , 


OOOO, 


1400,2100 


D 


0612, 


0000, 


1475, 1 100 


D 


0613, 


0000, 


1474, 1 100 


D 


0614, 


0000, 


1473, 1 100 


D 


0615, 


0000, 


1472, 1 100 


D 


0616, 


0004, 


1475, 1 100 


D 


0617, 


0004, 


1474, 1 100 


D 


0620, 


0005, 


1473,2100 


D 


0621 , 


0005, 


1472,2100 


D 


0622, 


0001 , 


1475,2100 


D 


0623, 


0001 , 


1474,2100 


D 


0624, 


0001 , 


1473,2100 


D 


0625, 


0001 , 


1472,2100 


D 


0626, 


0005, 


1475,2100 


D 


0627, 


0005, 


1474,2100 



15:34 27-JULY-1984 
15:31 27-JULY-1984 



MICRO 31(254) 



.54 ) 


KS 10 


MICROCODE 


V124, 27 


- JUL-84 




TEST 


GROUP 






3151 


.T0C 


"TEST GROUP" 




3152 










3153 




. DCODE 






3 1 54 










3 1 55 


; SPECIAL MACROS 


USED ONLY IN B 


3 1 56 


TN- 




"B/4" 




3 1 57 


TNE 




"B/O" 




3 1 58 


WORD- 


-TNE 


"B/10" 


;USED 


3 1 59 


TNA 




"B/O" 




3 1 60 


TNN 




"B/4" 




3161 


WORD- 


TNN 


"B/14" 


;USED 


3162 


TZ- 




"B/5" 




3163 


TZE 




"B/ 1 " 




3 1 64 


TZA 




"B/1 " 




3165 


TZN 




"B/5" 




3 1 66 


TC- 




"B/6" 




3 1 67 


TCE 




"B/2" 




3 1 68 


TCA 




"B/2" 




3 1 69 


TCN 




"B/6" 




3 1 70 


TO- 




"B/7" 




3171 


TOE 




"B/3" 




3172 


TOA 




"B/3" 




3173 


TON 




"B/7" 




3174 










3175 


600: 


1 * 




J/DONE 


3 176 




I » 




J/DONE 


3177 




I > 


TNE , 


J/TDXX 


3178 




1 > 


TNE , 


J/TSXX 


3 1 79 




I , 


TNA , 


d/TDX 


3 1 80 




I , 


TNA, 


J/TSX 


3181 




I > 


TNN, 


J/TDXX 


3 182 




I , 


TNN, 


J/TSXX 


3 183 










3 1 84 


610: 


I , 




J/DONE 


3 185 




1 > 




J/DONE 


040C 




R , 


TNE , 


J/TDXX 


O 1 o / 




R , 


TNE , 


J/TSXX 


3 188 




R , 


TNA, 


J/TDX 


3 189 




R , 


TNA, 


J/TSX 


3 190 




R, 


TNN, 


J/TDXX 


3191 




R, 


TNN, 


J/TSXX 


3192 










3 1 93 


620: 




TZ- , 


J/TDX 


3 1 94 






TZ- , 


J/TSX 


3195 






TZE , 


J/TDXX 


o i yo 






TZE, 


J/TSXX 


3197 






TZA, 


J/TDX 


3198 






TZA, 


J/TSX 


3199 






TZN, 


J/TDXX 


3200 






TZN, 


J/TSXX 


3201 
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IN TIOE 



; TRN- IS NOP 
;S0 IS TLN- 



; TDN- 
;TSN- 



IS A NOP 
ALSO 



; T10KL.MCRC 10, 1 141 ] 15:34 27-JULY-1984 

; SIMPLE. MIC[ 10, 1141] 15:31 27-JULY-1984 



D 


0630, 


0005 , 


1473 


1 100 


D 


0631 , 


0005, 


1472 


1 100 


D 


0632, 


0001 , 


1475 


1 100 


D 


0633, 


0001 , 


1474 


1 100 


D 


0634, 


0001 , 


1473 


1 100 


D 


0635, 


0001 , 


1472 


1 100 


D 


0636, 


0005, 


1475 


1 100 


D 


0637, 


0005, 


1474 


1 100 


D 


0640, 


0006 , 


1473 


2 100 


D 


0641 , 


0006, 


1472 


2100 


D 


0642, 


0002, 


1475 


2100 


D 


0643, 


0002, 


1474 


2100 


D 


0644, 


0002, 


1473 


2100 


D 


0645, 


0002, 


1472 


2100 


D 


0646, 


0006, 


1475 


2100 


D 


0647, 


0006, 


1474 


2100 


D 


0650, 


0006, 


1473 


1 100 


D 


0651 , 


0006, 


1472, 


1 100 


D 


0652, 


0002, 


1475, 


1100 


D 


0653, 


0002, 


1474 


1 100 


D 


0654, 


0002, 


1473 


1 100 


D 


0655, 


0002, 


1472 


1 100 


D 


0656, 


0006, 


1475 


1 100 


D 


0657, 


0006, 


1474 


1 100 


D 


0660, 


0007 , 


1473 


2 100 


D 


0661 , 


0007, 


1472 


2100 


D 


0662, 


0003, 


1475 


2100 


D 


0663, 


0003, 


1474 


2100 


D 


0664, 


0003, 


1473 


2100 


D 


0665, 


0003, 


1472 


2100 


D 


0666, 


0007, 


1475 


2100 


D 


0667, 


0007, 


1474 


2100 





0670, 


0007 , 


1473 


1 100 


D 


0671 , 


0007, 


1472 


1100 


D 


0672, 


0003, 


1475 


1100 


D 


0673, 


0003, 


1474 


1 100 


D 


0674, 


0003, 


1473, 


1 100 


D 


0675, 


0003, 


1472, 


1 100 


D 


0676, 


0007, 


1475 


1 100 


D 


0677, 


0007, 


1474, 


1 100 



254 ) 


KS 10 


MICROCODE 


V124 , 


27- JUL-84 




TEST 


GROUP 






3202 


630 : 


R * 


TZ - , 


J/TDX 


3203 




R , 


TZ- , 


J/TSX 


3204 




R , 


TZE , 


J/TDXX 


3205 




R , 


TZE , 


J/TSXX 


3206 




R , 


TZA , 


J/TDX 


3207 




R i . 


TZA , 


J/TSX 


3208 




R , 


TZN , 


J/TDXX 


3209 




R , 


TZN, 


J/TSXX 


32 10 










32 1 1 


640 : 


I , 


TC- , 


J/TDX 


3212 




I , 


TC- , 


J/TSX 


32 13 




I , 


TCE , 


J/TDXX 


3214 




I , 


TCE , 


J/TSXX 


32 1 5 




I , 


TCA , 


J/TDX 


32 16 




I , 


TCA , 


J/TSX 


32 1 7 




I , 


TCN , 


J/TDXX 


3218 




I , 


TCN , 


J/TSXX 


32 19 










3220 


650 : 


R , 


TC- , 


J/TDX 


322 1 




R , 


TC- , 


J/TSX 


3222 




R , 


TCE , 


J/TDXX 


3223 




R , 


TCE , 


J/TSXX 


3224 




R , 


TCA , 


J/TDX 


3225 




R , 


TCA , 


J/TSX 


3226 




R , 


TCN , 


J/TDXX 


3227 




R , 


TCN , 


J/TSXX 


3228 * 


660 : 


I , 


TO- , 


J/TDX 


3229 




I , 


TO- , 


J/TSX 


3230 




I , 


TOE , 


J/TDXX 


323 1 




I » 


TOE , 


J/TSXX 


3232 




I , 


TOA , 


J/TDX 


3233 




I , 


TOA , 


J/TSX 


3234 




I , 


TON , 


J/TDXX 


3235 




I » 


TON , 


J/TSXX 


3236 










3237 


670 : 


R , 


TO- , 


J/TDX 


3238 




R , 


TO- , 


J/TSX 


3239 




R , 


TOE , 


J/TDXX 


3240 




R , 


TOE , 


J/TSXX 


324 1 




R , 


TOA , 


J/TDX 


3242 




R , 


TOA, 


J/TSX 


3243 




R, 


TON, 


J/TDXX 


3244 




R , 


TON, 


J/TSXX 


3245 











/ 



V ; 



T10KL/W^[ 10, 1 141 ] 
SIMPLE. MICE 10, 1 141 ] 



15:34 27-JULY-1984 
15:31 27-UULY- 1984 



MICRO 31(254) 



; 3246 

; 3247 

; 3248 

; 3249 

; 3250 

; 3251 

; 3252 

; 3253 
;.3254 

; 3255 

; 3256 

; 3257 

; 3258 

; 3259 

; 3260 

; 3261 

; 3262 

; 3263 

; 3264 

; 3265 

; 3266 

; 3267 

; 3268 

U 1472, 1473,3770,0303,4344,4007,0700,0000,0000,0000 ; 3269 

; 3270 

U 1473, 0014,4221,0005,4174,4003,7700,0000,0000,0000 ; 3271 

; 3272 

; 3273 

U 1474, 1475,3770,0303,4344,4007,0700,0000,0000,0000 ; 3274 

; 3275 

; 3276 

U 1475, 0014,4551 ,0305,0274,4003,7700,0000,0000,0000 ; 3277 

; 3278 



KS iu MICROCODE V124, 27-JUL-84 Page 90 
TEST GROUP 



.UCODE 



; THESE 64 INSTRUCTIONS ARE DECODED BY MASK MODE ( IMMEDIATE OR MEMORY) 
; IN THE A FIELD, DISPATCH TO HERE ON THE U FIELD, AND RE-DISPATCH 
; FOR THE MODIFICATION ON THE B FIELD. 

; ENTER WITH 0,E OR (E) IN AR, B FIELD BITS 2 AND 3 AS FOLLOWS: 

; O NO MODIFICATION 

; O 1 OS 

; 1 COMPLEMENT 

; 1 1 ONES 

; THIS ORDER HAS NO SIGNIFICANCE EXCEPT THAT IT CORRESPONDS TO THE 
; ORDER OF INSTRUCTIONS AT TGROUP . 

; THE BIT 1 OF THE B FIELD IS USED TO DETERMINE THE SENSE 
; OF THE SKIP 

; 1 SKIP IF AC. AND. MASK . NE . O (TXX- AND TXXN) 

; O SKIP IF AC. AND. MASK . EQ . (TXXA AND TXXE) 

;BIT O IS UNUSED AND MUST BE ZERO 



1472: 

TSX: [ AR ]_[ AR ] SWAP ;TSXX AND TLXX 

1473: 

TDX: [BR]_0,TEST DISP ; ALWAYS AND NEVER SKIP CASES 

1474: 

TSXX: [ AR ]__[ AR ] SWAP ;TSXE, TSXN, TLXE , TLXN 

1475: ' 

TDXX: [BR]_[AR] . AND. AC, ; TDXE , TDXN, TRXE , TRXN 

TEST DISP 



; T10KL.MCR[ 10, 1 141 ] 15 : 34 .27- JULY-- 1984 
; SIMPLE . MIC [ 10, 1141] 15:31 27-JULY-1984 



MICRO 



U 0014, 1 400 , 3333 ,0005 ,4174, 4007 , 057 1 > 0000 , 0000 , 0000 

U 00 1 5 , 1 077 , 744 1 , 0303 ,4174 , 4007 , 0700 , 0000 , 0000 , 0000 

U 0016, 1 1 17,6551 ,0303,0274,4007,0700,0000,0000,0000 

U 00 1 7 , 1117, 355 1 , 0303 , 0274 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1.077 , 1117, 455 1 , 0303 , 0274 , 4007 , 0700 , 0000 , OOOO , 0000 

U 1117, 0014,3440,0303,O174,40O7,070O,O40O,O000,0O00 



(254) 
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3279 ; TEST DISP DOES AN 8 WAY BRANCH BASED ON THE B-FIELD OF DROM 
3280 

3281 =1100 

3282 TEST-TABLE: 
3283 

3284 ;CASE & 4 TXNX 

3285 TXXX: READ [BR], TXXX TEST, 3T , U/DONE 
3286 

3287 ;CASE 1 & 5 TXZ AND TXZX 

3288 [ AR 3_- NOT . [ AR ] , U/TXZX 
3289 

3290 ;CASE 2 & 6 -- TXC AND TXCX 

3291 [AR]_[AR] .XOR. AC, J/TDONE 
3292 

3293 ;CASE 3 & 7 -- TXO AND TXOX 

3294 [AR]_[AR] . OR . AC , U/TDONE 

3295 

3296 ; THE SPECIAL FUNCTION TXXX TEST CAUSES A MICROCODE SKIP IF 

3297 ; AD.EQ.O AND DROM B IS 0-3 OR AD.NE.O AND DROM B IS 4-7. 
3298 

3299 TXZX : [ AR ]_[ AR ] . AND . AC 

3300 TDONE: AC_[ AR ] , U/TXXX 

3301 ; READ BR , TXXX TEST , J/DONE 
3302 



o 

; T10KL-MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; SIMPLE. MIC[10 f 1141] 15:31 27-JULY- 1984 



U 0250, 0110,3443,0100,4174,4156,4700,0200,0014,0012 

U 025 1 , 1 400 , 3333 , 0003 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 0252 , 1 400 , 3333 , 0003 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 

U 0253 , 1 400 , 3333 , 0003 ,4174, 4007 , 042 1 , 0000 , 0000 , 0000 

U 0254, 0110,0111,0701,4170,4156,4700,0200,0014,0012 

U 0255, 0260,3333,0003,4174,4007,0520,0000,0000,0000 

U 0256, 0260,3333,0003,4174,4007,0621,0000,0000,0000 

U 0257, 0260,3333,0003,4174,4007,0421,0000,0000,0000 



1(254) KS10 MICROCODE V124, 27-JUL-84 Page 92 





COMPARE 


- - CA I 


CAM 


3303 


.TOC 


"COMPARE 


PAT PAM" 


3304 








3305 




. DCODE 




3306 








3307 


;SPECIAL 


B-FIELD 


ENCODING USED BY SKIP 


3308 


; INSTRUCTIONS: 




3309 








33 10 


SJC- 


"B/O" 


■ NEVER 


33 1 1 


SJCL 


"B/1 " 


* LESS 


33 1 2 


SJCE 


"B/2" 


• EQUAL 


3313 


SJCLE 


"B/3" 


• LESS EQUAL 


33 1 4 


SJCA 


"B/4" 


• A! WAYS 


33 1 5 


SJCGE 


"B/5" 


•RRFATFR THAN DP FOIIAI 


3316 


SJCN 


"B/6" 


;N0T EQUAL 


3317 


SJCG 


"B/7" 


■GREATER 


3318 








3319 




.UCODE 




3320 








3321 


; COMPARE 


TABLE 





3322 
3323 
3324 
3325 
3326 
3327 
3328 
3329 
3330 
3331 
3332 
3333 
3334 
3335 
3336 
3337 
3338 
3339 
3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 



= 1000 

SKIP-COMP-TABLE : 

;CASE NEVER 
DONE 

;CASE 1 -- LESS 

READ [AR], 

;CASE 2 -- EQUAL 
SKIPE: READ [AR]. 



SKIP DP0,J/D0NE 



SKIP AD. EQ.O, J/DONE 



;CASE 3 -- LESS OR EQUAL 

READ [AR], SKIP AD . LE . O , J/DONE 

;CASE 4 -- ALWAYS 

VMA_[PC]+1, NEXT INST FETCH, FETCH 

;CASE 5 -- GREATER THAN OR EQUAL 

READ [AR], SKIP DPO,J/SKIP 

;CASE 6 -- NOT EQUAL 

READ [AR], SKIP AD . EQ . 0, J/ SKIP 

;CASE 7 GREATER 

READ [AR], SKIP AD . LE . O , J/SKI P 



T10KL.MCR[ 10, 1141] 15 : 34 : 27- JULY- 1984.. MICRO 31(254) 

SIMPLE .MIC[ 10, 1141] 15:31 . 27- JULY- 1984 • 



KS10 MICROCODE V124, 27-JUL-84 
COMPARE --- CAI , CAM 
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; 3349 

D 0300, 0000,1400,2100 ; 3350 

D 0301, 0001,1476,2100 ; 3351 

D 0302, 0002,1476,2100 ; 3352 

D 0303, 0003,1476,2100 ; 3353 

D 0304, 0004,1476,2100 ; 3354 

D 0305, 0005,1476,2100 ; 3355 

D 0306, 0006,1476,2100 ; 3356 

D 0307, 0007,1476,2100 ; 3357 

; 3358 

D 0310, 0000,1476,1100 ; 3359 

D0311, 0001,1476,1100 ; 3360 

D 0312, 0002,1476,1100 ; 3361 

D 0313, 0003,1476,1100 ; 3362 

D 0314, 0004,1476,1100 ; 3363 

D 0315, 0005,1476,1100 ; 3364 

D 0316, 0006,1476,1100 ; 3365 

D 0317, 0007,1476,1100 ; 3366 

; 3367 

; 3368 

; 3369 

U 1476, 0250,2551,0303,0274,4003,7701,4000,0000,0000 ; 3370 

; 3371 



. DCODE 



I, 


SJC- , 


J/DONE 


I , 


SJCL, 


J/CAIM 


I , 


SJCE, 


J/CAIM 


I , 


SJCLE, 


J/CAIM 


I , 


SJCA, 


J/CAIM 


I , 


SJCGE , 


J/CAIM 


I , 


SJCN, 


J/CAIM 


I , 


SJCG, 


J/CAIM 


R, 


SJC- , 


J/CAIM 


R , 


SJCL, 


J/CAIM 


R , 


SJCE, 


J/CAIM 


R, 


SJCLE, 


J/CAIM 


R , 


SJCA, 


J/CAIM 


R , 


SJCGE, 


J/CAIM 


R , 


SJCN, 


J/CAIM 


R, 


SJCG, 


J/CAIM 



.UCODE 

1476: 

CAIM: [AR]_AC-[AR] , 31, SKIP-COMP DISP 



T10KL.i*rcfU 10, 1 141 ] 
SIMPLE . MIC[ 10, 1141] 



15:34 27-JULY-1984 
15:31 27-JULY-1984 



MICRO 



D 0330, 0000,1477,1100 

D 0331 , 0001 , 1477, 1 100 

D 0332, 0002,1477,1100 

D 0333, 0003,1477,1100 

D 0334, 0004,1477,1100 

D 0335, 0005,1477,1100 

D 0336, 0006, 1477, 1100 

D 0337, 0007,1477,1100 



U 1477, 0744,3770,0303,4174,0007,0360,0000,0000,0000 
U 0744, 0250,3440,0303,0174,4003,7700,0400,0000,0000 
U 0745, 0250,4443,0000,4174,4003,7700,0000,0000,0000 



D 


0350, 


0000, 1431 


1500 


D 


0351 , 


0001 , 1431 


1500 


D 


0352, 


0002, 1431 


1500 


D 


0353, 


0003, 1431 


1500 


D 


0354, 


0004, 1431 


1500 


D 


0355, 


00O5, 1431 


1500 


D 


0356, 


0006, 1431 


1500 


D 


0357, 


0007, 1431 


1500 



U 1431 , 1 122,01 1 1 ,0703,4174,4467,0701 ,0000,0001 ,0001 
U 1 122, 1 127,4443,0000,4174,4007,0700,0200,0003,0002 
U 1 127, 1477,3333,0003,4175,5007,0701 ,0200,0000,0002 



D 0370, 0000,1437,1500 

D 0371, 0001,1437,1500 

D 0372, 0002,1437,1500 

D 0373, 0003,1437,1500 

D 0374, 0004,1437,1500 

D 0375, 0005,1437,1500 

D 0376, 0006,1437,1500 

D 0377, 0007,1437,1500 



U 1437, 1 122, 1 1 1 1 ,0703,4174,4467,0701 ,4000,0001 ,0001 



254) 
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ARITHMETIC SKIPS AOS, SOS, SKIP 



3372 


. TOC 


"ARITHMETIC SKIPS -- AOS, SOS, SKIP " 


3373 


; ENTER 


WI TH ( E ) 


IN AR 




3374 










3375 




. DCODE 






3376 


330: 


R , 


sue- , 


J/SKIPS -NOT A NOP IF AC NF O 


3377 




R t 


S JCL , 


J/SKIPS 


3378 




R , 


S JCE , 


J/SKIPS 


3379 




R , 


SJCLE , 


J/SKIPS 


3380 




R , 


S JCA , 


J/SKIPS 


3381 




R , 


SJCGE , 


J/SKIPS 


3382 




R , 


SJCN, 


J/SKIPS 


3383 




R , 


SJCG, 


J/SKIPS 


3384 




.UCODE 






3385 










3386 


1477: 








3387 


SKIPS : 


FIX [AR] 


SIGN, 




3388 




SKIP IF 


ACO 




3389 


=0 


AC [AR], 


SKIP-COMP DISP 


3390 




SKIP-COMP DISP 




339 1 










3392 




.DCODE 






3393 


350: 


RW, 


sue- , 


J/AOS 


3394 




RW, 


SJCL, 


J/AOS 


3395 




RW, 


SJCE, 


J/AOS 


3396 




RW, 


SJCLE, 


J/AOS 


3397 




RW, 


SJCA, 


J/AOS 


3398 




RW, 


SJCGE , 


J/AOS 


3399 




RW, 


SJCN, 


J/AOS 


3400 




RW, 


SJCG, 


J/AOS 


3401 




.UCODE 






3402 










3403 


1431 : 








3404 


AOS : 


[AR] [AR]+1, 3T, 


AD FLAGS 


3405 


XOS : 


START WRITE 




3406 




MEM WRITE, MEM [AR],J/SKIPS 


3407 










3408 




.DCODE 






3409 


370: 


RW, 


SJC- , 


J/SOS 


3410 




RW, . 


SJCL, 


J/SOS 


341 1 




RW, 


SJCE, 


J/SOS 


3412 




RW, 


SJCLE, 


J/SOS 


3413 




RW, 


SJCA, 


J/SOS 


3414 




RW, 


SJCGE, 


J/SOS 


3415 




RW, 


SJCN, 


J/SOS 


3416 




RW, 


SJCG, 


J/SOS 


3417 




.UCODE 






3418 










3419 


1437: 








3420 


SOS: 


[AR] [AR]-1, 3T, 


AD FLAGS, J/XOS 


3421 











T10KL.MCR[ 10, 1 141] 15:34 27-JULY-1984 

SIMPLE. MIC[ 10, .1141] 15:31 27-JULY-1984 



MICRO 



U 0270, 0100,3440,0505,0174,4156,4700,0400,0000,0000 

U 0271, 0762,3770,0505,0174,4007,0520,0400,0000,0000 

U 0272, 0762,3770,0505,0174,4007,0621,0400,0000,0000 

U 0273, 0762,3770,0505,0174,4007,0421,0400,0000,0000 

U 0274, 0764,3440,0505,0174,4007,0700,0400,0000,0000 

U 0275, 0764,3770,0505,0174,4007,0520,0400,0000,0000 

U 0276, 0764,3770,0505,0174,4007,0621,0400,0000,0000 

U 0277, 0764,3770,0505,0174,4007,0421,0400,0000,0000 



U 0762, 0110,3443,0100,4174,4156,4700,0200,0014,0012 
U 0763, 0110,3441,0301,4170,4156,4700,0200,0014,0012 



U 0764, 0110,3441,0301,4170,4156,4700,0200,0014,0012 
U 0765, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



254) 



3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 



KS10 MICROCODE V124, 
CONDITIONAL JUMPS 



27-JUL-84 Page 95 
JUMP, AQJ, SOU, AOBU 



.TOC "CONDITIONAL JUMPS 

; ENTER WITH E IN AR 

= 1000 

JUMP-TABLE : 

;CASE -- NEVER 

AC [ BR 3 , NEXT INST 



JUMP, AO J, SO J, AOBJ" 



;CASE 1 

;CASE 2 

;CASE 3 

;CASE 4 
JMPA: 

;CASE 5 

;CASE 6 



LESS 

AC__[BR] TEST, SKIP DPO, J/JUMP- 
-- EQUAL 

AC_[BR] TEST, SKIP AD.EQ.O, J/JUMP- 

LESS THAN OR EQUAL 
AC_[BR] TEST, SKIP AD.LE.O, J/JUMP- 

-- ALWAYS 
AC_[BR], J/JUMPA 

GREATER THAN OR EQUAL TO 
AC_J6R] TEST, SKIP DPO, J/JUMPA 



NOT EQUAL 
AC__[BR] TEST, 



SKIP AD.EQ.O, J/JUMPA 



;CASE 7 GREATER 

AC__[BR] TEST, SKIP AD.LE.O, J/JUMPA 



=0 

JUMP- 



=0 

JUMPA: 



DONE 
JUMPA 



JUMPA 
DONE 



T10KL.MCR[ 10, 1141] 
SIMPLE . MIC[ 10, 1 141 ] 



15:34 27-JULY-1984 
15:31 27-UULY-1984 



MICRO 



0320, 
0321 , 
0322, 
0323, 
0324, 
0325, 
0326, 



D 0327, 



OOOO, 
0001 , 
0002, 
0003, 
0004, 
0005, 
O006, 
0007, 



1400, 
1440, 
1440, 
1440, 
1520, 
1440, 
1440, 
1440, 



2100 
2100 
2100 
2100 
2100 
2100 
2100 
2100 



U 1440, 0270,3771,0005,0276,6003,7700,0000,0000,0000 



D 0340, 
D 0341, 
D 0342, 
D 0343, 
D 0344, 
D 0345, 
D 0346, 
D 0347, 



0000, 1611 
0001 , 161 1 



0002, 
0003, 
0004, 
0O05, 
0006, 
0007, 



1611 
1611 
1611 
1611 
161 1 
1611 



3000 
2100 
2100 
2100 
2100 
2100 
2100 
2100 



U 1611, 0270,0551,0705,0274,4463,7702,0000,0001,0001 



0360, 
0361 , 
0362, 
0363, 
0364, 
0365, 
0366, 
0367, 



0000, 
0001 , 
0002, 
0003, 
0004, 
0005, 
0006, 
0007, 



1542, 
1542, 
1542, 
1542, 
1542, 
1542, 
1542, 
1542, 



3000 
2100 
2100 
2100 
2100 
2100 
2100 
2100 



U 1542, 0270,2551,0705,0274,4463,7702,4000,0001,0001 



D 0252, 0005,1547,2100 
D 0253, 0001,1547,2100 



U 



1547, 



0270,0551 , 1505,0274,4403,7701 ,0000,0000,0000 



254) 
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CONDITIONAL JUMPS -- JUMP, AOJ, SOJ, AOBJ 



040 1 




nrnnc 








J^U . 


T 

1 , 


C IP _ 

b JC - , 


U/ DUNt 






T 

I , 


b JCL , 


t / II IMP) 

u/ JUMP 


3464 




I , 


SJCE , 


J/ JUMP 


3465 




I , 


SJCLE , 


J/ JUMP 


3466 




I , 


SJCA, 


J/JRST 


o4b / 




I , 


SJCGE, 


J/JUMP 


3468 




I , 


SJCN, 


J/ JUMP 


3469 




I , 


SJCG, 


J/JUMP 


O H 1 \J 










Q/t7 -4 
0*+ / 1 












1 4/in • 








3473 


JUMP : 


f R R 1 AT 


,JUMP DISP 


3474 










3475 




nrnnp 






3476 


340 : 


I -PF , 


SJC- , 


J/AO J 


3477 




I 


SJCL, 


J/AOJ 


0/170 

/ O 




T 

■»• , 


SJCE, 


J /AOJ 






T 

I , 


SJCLE, 


J /AOJ 


O jl OA 




I , 


SJCA, 


■ 1 / AD 1 


348 1 




I , 


SJCGE , 


J /AOJ 


3482 




I , 


SJCN, 




O A 




I , 


SJCG, 


U/ AUU 


Q A Q A 




.UC0DE 






o4c5D 












ID M . 








3487 


a n. 1 • 


[BR] AC+1, AD 


FLAGS, 4T 


3488 










3489 




. DC0DE 






3490 


360 : 


I-PF, 


SJC- , 


J/SOJ 


349 1 




I , 


SJCL, 


J/SOJ 






I , 


SJCE, 


J/SOJ 


Q/1QO 




I , 


SJCLE, 


J/SOJ 






I , 


SJCA, 


J/SOJ 


o43U 




I , 


SJCGE, 


J/SOJ 


o4a 




I , 


SJCN, 


J/SOJ 


O A Q "7 

o4y / 




I , 


SJCG, 


J/SOJ 


Q/IQO 
v3430 




.UCODE 






O A QQ 










ooUU 


■i A O • 








OCA 4 

ODU t 


en 1 . 


[BR]_AC 


- 1 , AD 


FLAGS, 4T 












Duo 




. DCODE 






OCA/1 




I , 


SJCGE, 


J/AOBJ 


O OVJO 




I , 


SJCL, 


J/AOBJ 


3506 




.UCODE 






3507 










3508 


1547: 








3509 


AOBJ : 


[BR] AC+1 000001, 


3510 




INH CRY 1 8 , 3T, 




351 1 




JUMP DISP 




3512 











ADD 1 TO BOTH HALF WORDS 
NO CARRY INTO LEFT HALF 
HANDLE EITHER AOBJP OR AOBJN 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 31(254) 

SIMPLE. MICC 10, 1 141 ] 15:31 27-UULY- 1984 
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AC DECODE JUMPS JRST, JFCL 



D 0254, 0000,1520,6000 
D 0255, 0000,1540,2100 



U 1520, 

U 1521, 

U 1522, 

U 1523, 

U 1524, 



U 1525, 

U 1526, 

U 1527, 

U 1530, 

U 1531, 

U 1532, 

U 1533, 

U 1534, 

U 1535, 

U 1536, 

U 1537, 



01 10,3441 ,0301 ,4170,4156,4700,0200,0014,0012 
01 10,3441 ,0301 ,4170,4156,4700,0200,0014,0012 

0150, 1 1 13,0701 ,4170,4007,0700,4200,0004,0012 
2732 , 455 1 , 0202 , 4374 , 0007 ,0700 , 0000 , 0077 , 7740 
1 004 , 444 3 , 0000 ,4174, 4007 , 0340 , 0000 , 0000 , 0000 



2 1 02 , 3443 , 0300 ,4174, 4007 , 0700 , 0200 , 0004 , 00 1 2 
0320 , 4443 , 0000 ,4174, 4007 , 0340 , 0000 , 0000 ,0000 
1034 , 4443 , 0000 , 4 1 74 , 4007 , 0340 , 0000 , 0000 , 0000 

1024 ,1113, 070 1 , 4 1 70 , 4007 ,0040 , 4200 , 0004 , 00 1 2 
2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 



0300 ,1113, 
2732,4551 . 
1044,4443, 
2732,4551 , 
2732,4551 , 
2732,4551 , 



0701 ,4170,4007. 
0202,4374,0007, 
0000,4174,4007, 
0202,4374,0007, 
0202,4374,0007, 
0202,4374,0007. 



0040,4200, 
0700,0000, 
0340,0000, 
0700,0000, 
0700,0000, 
0700, 0000, 



0004,0012 
0077,7740 
0000 , 0000 
0077,7740 
0077,7740 
0077,7740 



3513 
3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
'3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 



.TOC "AC DECODE JUMPS JRST, JFCL" 
. DCODE 

254: I,VMA/0, AC DISP, J/JRST 

I, J/JFCL 
.UCO.DE 



;DISPATCHES TO 1 OF 16 
; PLACES ON AC BITS 



;JRST DISPATCHES TO ONE OF 16 LOC'NS ON AC BITS 



=0000 

1520 

JRST 

1521 

1522 



1523 
1524 
1525 
XJRSTFO: 



1526 
1527 
1530 

1531 : 
1532: 

1533 
1534 
1535 
1536 
1537 



JUMPA 




;(0) 


JUMPA 




;(D 


VMA [PC]-1, 


START READ, 


;(2) 


J/JRSTF 






UUO 




;(3) 


SKIP KERNEL 


J/HALT 


;(4) 



JRST O, 

PORTAL 

JRSTF 



HALT 



IS SAME AS JRST 



VMA_[AR], START READ, ;(5) XJRSTF 
J/XJRSTF 

SKIP KERNEL, J/XJEN ;(6) XJEN 

SKIP KERNEL, J/XPCW ;(7) XPCW 

VMA_[PC]-1, START READ, ; ( 10) 
SKIP 10 LEGAL, J/JRST 10 



UUO 

VMA_[PC] 
SKIP 10 
UUO 

SKIP KERNEL 

UUO 

UUO 

UUO 



1 , START READ, 
LEGAL, J/ JEN 



J/SFM 



;(1D 
:(12) 

(13) 
(14) 
(15) 
(16) 
(17) 



JEN 



SFM 



T 1 OKL . WCR [ 1 O , 1 1 4 1 ] 15:34 27-JULY-1984 MICRO 

SIMPLE .MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 0150, 1 142,3771 ,0002,4365,5217,0700,0210,0000,0002 
U 0152, 0110,3441,0301,4170,4156,4700,0200,0014,0012 

U 1142, 0030,4443,0000,2174,4006,6700,0000,0000,0000 



U 0030, 0002,3773,0000,2274,4464,1700,0000,0001,0004 



U 0032, 0002,3333,0002,4174,4464,1700,0000,0001,0004 



U 0034 , 1 1 47 , 055 1 , 0202 , 2270 , 4007 , 0700 , 0200 , 0004 , 00 1 2 



U 0036, 1 147,3443,0200,4174,4007,0700,0200,0004,01 12 



U 1 147, 1 142,3771 ,0002,4365,5217,0700,0200,0000,0002 
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AC DECODE JUMPS JRST , JFCL 



3547 


= 0* 






3548 


JRSTF : 


MEM READ, 


WAIT FOR DATA 


3549 




[HR] MEM, 


STICK IN HR 


3550 




LOAD INST EA, 


LOAD <S» AND XR 


3551 




CALL [JRSTO] 


COMPUTE EA AGAIN 


3552 




JUMPA 


JUMP 


3553 








3554 


JRSTO: 


EA MODE DISP ; WHAT TYPE OF EA? 


3555 


= 100* 






3556 




READ XR, 


INDEXED 


3557 




LOAD FLAGS, 


GET FLAGS FROM XR 


3558 




UPDATE USER, 


ALLOW USER TO SET 


3559 




RETURN [2] 


ALL DONE 


3560 




READ [HR ] , 


PLAIN 


356 1 




LOAD FLAGS, 


LOAD FLAGS FROM INST 


3562 




UPDATE USER, 


ALLOW USER TO SET 


3563 




RETURN [2] 


RETURN 


3564 




[HR] [HR]+XR, 


BOTH 


3565 




LOAD VMA, 


FETCH IND WORD 


3566 




START READ, 


START MEM CYCLE 


3567 




J/ JRST 1 


CONTINUE BELOW 


3568 




VMA [HR], 


INDIRECT 


3569 




START READ, 


FETCH IND WORD 


3570 




PXCT EA, 


SETUP PXCT STUFF 


3571 




J/ JRST 1 


CONTINUE BELOW 


3572 


JRST 1 : 


MEM READ, 


WAIT FOR DATA 


3573 




[HR] MEM, 


LOAD THE HR 


3574 




LOAD INST EA, 


LOAD @ AND XR 


3575 




J/JRSTO 


LOOP BACK 


3576 









; T10KL . MCR[ 10, 1141] 15:34 27- JULY- 1984' MICRO 31(254) KS10 MICROCODE V124, 27-JUL-84 Page 99 

; SIMPLE. MIC[ 10, 1 141 ] 15:'31 27-JULY-1984 AC DECODE JUMPS -- JRST , JFCL 









3577. 


=0 






u 


1004, 


2732 ,4551, 0202 , 4374 , 0007 , 0700 , 0000 , 00.77 , 7740 


3578 


HALT: 


uuo 


USER MODE 


u 


1005, 


1 155,3441 ,0301 ,4174,4007,0700,0000,0000,0000 


3579 




[PC] [AR] 


, EXEC MODE- -CHANGE PC 


u 


1 155, 


0104 , 475 1,1217, 4374 , 4007 ,0700 , 0000 , 0000 , 000 1 


3580 




HALT [HALT] 


; HALT INSTRUCTION 








3581 














3582 


=0 






u 


1024, 


2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 


3583 


JRST 10 : 


UUO 




u 


1025, 


0303 , 4443 , 0000 ,4174, 4007 ,0700 ,0000 ,0000 , 0000 


3584 




J/JEN2 


jDISMISS INTERRUPT 








3585 


=0000 






u 


0300, 


2732 , 455 1 , 0202 , 4374 , 0007 ,0700 , 0000 , 0077 , 7740 


3586 


JEN: 


UUO 


FLAGS 








3587 




MEM READ, 










3588 




[HR] MEM, 


GET INST 








35&9 




LOAD INST EA, 


LOAD XR & @ 


u 


0301 , 


1142,3771, 0002 , 4365 , 52 1 7 , 0700 , 02 10 , 0000 , 0002 


3590 




CALL [JRSTO] 


COMPUTE FLAGS 








3591 


=001 1 






u 


0303, 


2452 , 4553 , 1 400 , 4374 , 4007 , 033 1 , OO 10 , 0007 , 7400 


3592 


JEN2 : 


DISMISS 


DISMISS INTERRUPT 


u 


0307, 


3623, 3770, 1416,4344,4007,0700,0010,0000,0000 


3593 


=01 1 1 


CALL LOAD PI 


RELOAD PI HARDWARE 


u 


0317, 


01 10,3441 ,0301 ,4170,4156,4700,0200,0014,0012 


3594 


= 1111 


JUMPA 


GO JUMP 








3595 














3596 














3597 


1540: 












3598 


JFCL: 


JFCL FLAGS, 


ALL DONE IN HARDWARE 








3599 




SKIP JFCL, 


SEE IF SKIPS 








3600 




3T, 


ALLOW TIME 


u 


1540, 


0762 , 4443 , 0000 , 4174, 4467 , 055 1 , 0000 , 000 1 , 00 1 


3601 




J/JUMP- 


JUMP IF WE SHOULD 








3602 









\ 

\ 




o 

; T10KL.>icR[ 10, 1 141 ] 15:34 27- JULY--1984 MICRO 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 0320 , 2732 , 455. 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 

U 0321 , 2452,4553, 1400,4374,4007,0331 , 0010 , 0007 , 7400 

U 0325, 0335,3333,0012,4174,4437,0700,0000,0000,0000 

U0335, 1525,4223, 0000 , 4364 , 4277 , 0700 , 0200 , 0000 , OO 1 O 

U 2102, 2105,3771,0005,4365,5007,0700,0200,0000,0002 

U 2105, 2611,0111,0703,4174,4007,0700,0200,0004,0012 

U 261 1 , 2616,3771 ,0001 ,4361 ,5007,0700,0200,0000,0002 

U 2616, 2677 , 3333 , 0005 ,4174, 4467 , 0700 , 0000 , 000 1 , 0004 

U 2677, 0405,5551,1313,4374,4007,0700,0000,0001,0000 



U 1034 , 2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
U 1035, 0060,4521,1205,4074,4007,0700,0000,0000,0000 



U 0060, 3702,3443,0300,4174,4007,0700,0210,0003,0012 

U 0064, 3703,0111,0703,4170,4007,0700,0210,0003,0012 
U 0065, 2102,0111,0703,4174,4007,0700,0200,0004,0002 



U 
U 
U 



1044, 
1045, 
2710, 



2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2710, 3443 , 0300 ,4174, 4007 , 0700 , 0200 , 0003 , 00 1 2 
0455 , 452 1 , 1 203 , 4074 , 4007 , 0700 , 0000 , 0000 , 0000 
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3603 .TOC "EXTENDED ADDRESSING INSTRUCTIONS" 
3604 

3605 =OOQ0 

3606 XUEN: UUO ; HERE IF USER MODE 

3607 DISMISS ; CLEAR HIGHEST INTERRUPT 

3608 =0101 READ [MASK], LOAD PI ; NO MORE INTERRUPTS 

3609 =1101 ABORT MEM CYCLE. ;AVOID INTERRUPT PAGE FAIL 

3610 J/XURSTFO ; START READING FLAG WORD 
361 1 = 

3612 

3613 XJRSTF: MEM READ, [BR ]_MEM ; PUT FLAGS IN BR 

3614 [AR]_[AR]+1, ; INCREMENT ADDRESS 

3615 LOAD VMA, ; PUT RESULT IN VMA 

3616 START READ ; START MEMORY 

3617 MEM READ, [PC]_MEM, ; PUT DATA IN PC 

3618 HOLD LEFT ; IGNORE SECTION NUMBER 

3619 READ [BR], LOAD FLAGS, ; LOAD NEW FLAGS 

3620 UPDATE USER ; BUT HOLD USER FLAG 

3621 PISET: [FLG]_[FLG] . AND . NOT . # , ; CLEAR PI CYCLE 
-3622 FLG.PI/1, J/PIEXIT ; RELOAD PI HARDWARE 

3623 ; INCASE THIS IS AN 

3624 ; INTERRUPT INSTRUCTION 
3625 

3626 =0 

3627 XPCW: UUO ;USER MODE 

3628 [BR]_FLAGS ; PUT FLAGS IN BR 

3629 =0*0 

3630 PlXPCty: VMA_[AR], START WRITE, ; STORE FLAGS 

3631 CALL [STOBR] ; PUT BR IN MEMORY 

3632 =1*0 VMA_[AR]+1, LOAD VMA, 

3633 START WRITE, ; PREPEARE TO STORE PC 

3634 CALL [STOPC] ; PUT PC IN MEMORY 

3635 =1*1 [AR]_[AR]+1 , ;D0 NEW PC PART 

3636 START READ, J/XJRSTF 

3637 = 
3638 

3639 =0 

3640 SFM: UUO 

3641 VMA_[AR], START WRITE ;STORE FLAGS 

3642 [AR]_FLAGS, J/STORE ; STORE AND EXIT 

3643 



; T10KL.MCR[ 10, 1 141 ] 1 5 : 34 27- JULY- 1984 MICRO 31 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27- JULY- 1984 

D 0256, 0000,1541,1100 

U 1541 , 1 152,4443,0000,4174,4007,0340,0000,0000,0000 

U 1152, 2711,3441,0302,4174,4617,0700,0000,0000,0100 

U 1153, 1152,3333, 0002 ,4174,4167, 0700 , 0000., 0000 , OOOO 
U 2711, 0363,4713,1202,7174,4007,0700,0400,0000,0422 



\ 
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XCT 



3644 
3645 
3646 
3647 
3648 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3658 
3659 
3660 
3661 
3662 
3663 
3664 
3665 



.TOC 



256: 



1541 : 

XCT: 

=0 

XCT 1 A : 



XCT 1 : 



"XCT" 
. DCODE 

R , J/XCT 
.UCODE 



SKIP KERNEL 

[HR]_[AR], 
DBUS/DP, 
LOAD INST, 
PXCT/E1 , 
J/XCT 1 

READ [HR], 
LOAD PXCT, 
J/XCT 1 A 

W0RK[YSAVE]_[HR3 CLR LH, 
J/XCT2 



; OPERAND FETCHED AS DATA 



SEE IF MAY BE PXCT 

STUFF INTO HR 
PLACE ON DBUS FOR IR 
LOAD IR, AC, XR, ETC. 
ALLOW XR TO BE PREVIOUS 
CONTINUE BELOW 

LOAD PXCT FLAGS 

CONTINUE WITH NORMAL FLOW 

SAVE FOR 10 INSTRUCTIONS 
GO EXECUTE IT 



T10KL.MCR[ 10, 1 141 3 15:34 27-JULY-1984 MICRO 

SIMPLE. MIC[ 10, 1 141 3 15:31 27-JULY- 1984 



D 0260, 0000,1544,2100 

D 0261, 0002,1543,3100 

D 0262, 0002,1545,2100 

D 0263, 0000,1546,2100 



U 1543, 2712,3771,0005,4365,5007,0700,0200,0000,0002 



U 2712, 1 1 56 , 055 1 , 1 504 , 0274 , 4407 , 03 1 1 , 0200 , 0003 , 07 1 2 
U 1 544 , 2712, 374 1 , O 1 05 , 4074 , 4467 , 0700 , 0000 , 0005 , 0000 

U 1156, 0220,3333,0005,4175,5003,7701,0200,0000,0002 

U 1157, 2713,3333,0005,4175,5007,0701,0200,0000,0002 
U 2713, 0220,4443,0000,4174,4463,7700,0000,0001,2000 

0221 ,3441 ,0301 ,4174,4007,0700,0200,0014,0012 
1 00 , 3440 , 0404 ,0174,4156, 4700 , 0400 ,0000 , 0000 
1 400 , 3440 , 0404 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 



U 0220, 
U 0221 , 
U 0222, 



254) 
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STACK INSTRUCTIONS PUSHJ, PUSH, POP, POPJ 



3666 
3667 
3668 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 
3688 
3689 
3690 
3691 
3692 
3693 
3694 
3695 
3696 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
371 1 
3712 
3713 
3714 
3715 



. TOC 



260: 



"STACK INSTRUCTIONS PUSHJ, PUSH, POP, POPJ " 



. DCODE 
I , 
IR, 
I , 
I , 

.UCODE 



B/O, 

B/2, 
B/2, 



J/PUSHJ 
J/PUSH 
J/POP 
J/POPJ 



; ALL START WITH E IN AR 
1543: 

PUSH: MEM READ, 
[BR j_MEM 

PUSH1 : [ARX ] _AC+ 1000001 , 
INH CRY 1 8 , 
LOAD VMA, 
START WRITE, 
PXCT STACK WORD, 
3T, 

SKIP CRYO, 
J/STMAC 



1544: 
PUSHJ: 



=0 

STMAC 



[BR]_PC WITH FLAGS, 

CLR FPD, 

J/PUSH1 



PUT MEMOP IN BR 

BUMP BOTH HALVES OF AC 
NO CARRY 

START TO STORE ITEM 

START MEM CYCLE 

THIS IS THE STACK DATA WORD 

ALLOW TIME 

GO TO STMAC, SKIP IF PDL OV 



COMPUTE UPDATED FLAGS 
CLEAR FIRST-PART-DONE 
AND JOIN PUSH CODE 



MEM WRITE, 
MEM_[BR 3 , 
B DISP, 
J/JSTAC 
;WE MUST STORE THE STACK 
; PAGE FAIL- 
MEM WRITE, 
MEM_[ BR ] 
SETPDL: SET PDL OV , 
B'DISP, 
J/JSTAC 



=00 
JSTAC: 



JSTAC1 : 



[PCJ_[AR3 , 
LOAb VMA, 
FETCH 
AC_[ARX3 , 
NEXT INST 
AC_[ARX3 , 
J/DONE 



WAIT FOR MEMORY 
STORE BR ON STACK 
SEE IF PUSH OR PUSHJ 
BELOW 

WORD PRIOR TO SETTING PDL OV IN CASE OF 



WAIT FOR MEMORY 
STORE BR 
OVERFLOW 

SEE IF PUSH OR PUSHJ 
BELOW 



PUSHJ- -LOAD PC 

LOAD ADDRESS 

GET NEXT INST 

STORE BACK STACK PTR 

DO NEXT INST 

UPDATE STACK POINTER 

DO NEXT INST 



; T 10KL . MCR [10,1141] 1 5 : 34 27- JULY- 1984 MICRO 
; SIMPLE . MIC [ 10 , 1 141 ] 15:31 27-JULY-1984 

U 1545, 2714,3771 ,0004,0276,6007,0701 ,0200,0004,0712 

U 2714, 2715,3771, 0005 , 4365 , 5007 ,0700 , 0200 , 0000 , 0002 

U 2715, 1 160,0551 , 0404 , 4374 , 4407 , 03 1 1 , 0000 , 0077 , 7777 

U 1 1 60 , 2717, 3443 , 0300 ,4174, 4007 , 0700 , 0200 , 0003 , 03 1 2 

U 1 161 , 2716,3443,0300,4174,4007,0700,0200,0003,0312 

U 2716, 0220,3333,0005,4175,5003,7701,0200,0000,0002 

U 2717, 2713,3333,0005,4175,5007,0701,0200,0000,0002 

U 1546, 2720,3771,0004,0276,6007,0701,0200,0004,0712 

U 2720, 1 162,0551 , 0404 , 4374 , 4407 , 03 1 1 ,0000 , 0077 , 7777 

U 1162, 1163,4443,0000,4174,4467,0700,0000,0001,2000 

U 1163, 0221,3771,0001,4361,5007,0700,0200,0000,0002 
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STACK INSTRUCTIONS PUSHJ, PUSH, POP, POPJ 



3716 


1545: 






3717 


POP: 


[ARX] AC, 


GET POINTER 


3718 




LOAD VMA, 


ADDRESS OF STACK WORD 


3719 




START READ, 3T , 


START CYCLE 


3720 




PXCT STACK WORD 


FOR PXCT 


3721 








3722 




MEM READ, ; LOAD BR (QUIT IF PAGE 


3723 




[BR];_MEM 


STACK WORD TO BR 


3724 








3725 




[ARX] [ARX]+#, 


UPDATE POINTER 


3726 




#/777777, 


-1 IN EACH HALF 


3727 




INH CRY 1 8 , 3T , 


BUT NO CARRY 


3728 




SKIP CRYO 


SEE IF OVERFLOW 


3729 








3730 


=0 


VMA [AR], 


EFFECTIVE ADDRESS 


3731 




PXCT DATA, 


FOR PXCT 


3732 




START WRITE, 


WHERE TO STORE RESULT 


3733 




J/POPX 1 


OVERFLOW 


3734 








3735 




VMA [AR], 


EFFECTIVE ADDRESS 


3736 




PXCT DATA, 


FOR PXCT 


3737 




START WRITE 


WHERE TO STORE RESULT 


3738 








3739 




MEM WRITE, 


WAIT FOR MEM 


3740 




MEM [BR] , 


STORE BR 


3741 




B DISP, 


POP OR POPJ? 


3742 




J/JSTAC 


STORE POINTER 


3743 








3744 








3745 


P0PX1 : 


MEM WRITE, 


WAIT FOR MEMORY 


3746 




MEM [BR], 


STORE BR 


3747 * 




J/SETPDL 


GO SET PDL OV 


3748 








3749 


1546 : 






3750 


POPJ: 


[ARX] AC, 


GET POINTER 


3751 




LOAD VMA, 


POINT TO STACK WORD 


3752 




PXCT STACK WORD, 3T, 


FOR PXCT 


3753 




START READ 


START READ 


3754 




[ARX] [ARX]+#, 


UPDATE POINTER 


3755 




#/777777, 


-1 IN BOTH HALFS 


3756 




INH CRY 18 , 3T, 


INHIBIT CARRY 18 


3757 




SKIP CRYO 


SEE IF OVERFLOW 


3758 


=0 


SET PDL OV 


SET OVERFLOW 


3759 




MEM READ, [PC] MEM, 


STICK DATA IN PC 


3760 




HOLD LEFT, 


NO FLAGS 


3761 




J/JSTAC1 


STORE POINTER 


3762 









; T10KL.i»»c4[ 10, 1 141 3 15:34 27-JULY-1984 MICRO 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 

D 0105, 0000,1551,3000 

U 1551 , 2721 ,3770,0303,4344,0007,0700,0000,0000,0000 
U 2721 , 1 164,3771 ,0005,0276,6007,0521 ,0000,0000,0000 

1 166,01 13,0503,0174,4407,0521 ,0400,0000,0000 

1 170,01 13,0503,0174,4407,0521 ,0400,0000,0000 

O 1 00 , 4443 , 0000 ,4174,4156, 470O , 0000 , 0000 , 0000 
0603 , 4443 , 0000 ,4174, 4467 , 0700 , 0000 \ 000 1 , 2000 

0603 , 4443 , 0000 ,4174,4467, 0700 , 0000 ,000 1 , 2000 
0100 , 4443 , 0000 ,4174,4156, 4700 , 0000 , 0000 , 0000 



U 1164, 

U 1165, 

U 1*166, 

U 1167, 



U 1170, 
U 1171, 
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3763 


.TOC 


"STACK INSTRUCTIONS ADJSP" 


3764 








3765 




. DCODE 




3766 


105 : 


I-PF, B/0, J/ADJSP 


3767 




.UCODE 




3768 








3769 


1551 : 






3770 


ADJSP : 


[AR] [ AR ] SWAP, ; MAKE 2 COPIES OF RH 


377 1 




HOLD RIGHT 




3772 




[BR 3 AC, 


READ AC, SEE IF MIN 


3773 




3T , 




3774 




SKIP DPO 




3775 


=0 


AC [BR 3 + [ AR ] , 


UPDATE AC 


3776 




INH CRY 1 8 , 


NO CARRY 


3777 




SKIP DPO, 


SEE IF STILL OK 


3778 




3T, 


ALLOW TIME 


3779 




J/ADJSP 1 


TEST FOR OFLO 


3780 




AC [BR3+[AR], 


UPDATE AC 


3781 




INH CRY 1 8 , 


NO CARRY 


3782 




SKIP DPO, 


SEE IF STILL MINUS 


3783 




3T, 


ALLOW TIME FOR SKIP 


3784 




J/ADJSP2 


CONTINUE BELOW 


3785 








3786 


=0 






3787 


ADJSP 1 : 


NEXT INST 


NO OVERFLOW 


3788 




SET PDL OV, 


SET PDL OV 


3789 




J/NIDISP 


GO DO NICOND DISP 


3790 








3791 


=0 




> 


3792 


ADJSP2: 


SET PDL OV, 


SET PDL OV 


3793 




J/NIDISP 


GO DO NICOND DISP 


3794 




NEXT INST 


NO OVERFLOW 


3795 









T10KL.MCR[ 10, 1141] 
SIMPLE . MIC [ 10, 1141] 



15:34 27-JULY-1984 
15:31 27-JULY-1984 



MICRO 



D 0264, 0000,1552,2100 

D 0265, 0000,1550,2100 

D 0266, 0000,1554,2100 

D 0267, 0000,1555,2100 



U 1550, 2722,3741,0105,4074,4007,0700,0000,0000,0000 

U 2722, 0764,3440,0505,0174,4467,0700,0400,0005,0000 

U 1552, 2723,3741,0105,4074,4467,0700,0000,0005,0000 

U 2723, 2724,3443,0300,4174,4007,0700,0200,0003,0012 

U 2724, 2725,3333,0005,4175,5007,0701,0200,0000,0002 

U 2725, 0107,0551,0301,4370,4007,0701,0000,0000,0001 



U 1554, 2726,3441,0305,4174,4007,0700,0200,0003,0002 
U 2726, 0130,3770,0304,4344,4007,0700,0000,0000,0000 

U 0130, 3070,3771,0003,0276,6007,0700,0010,0000,0000 



U 0134, 3704,3441,0104,4170,4007,0700,0010,0000,0000 



U 0135, 0107,0551,0501,4370,4007,0701,0000,0000,0001 



U 1555, 2727,3771 ,0005, 0276', 6007, 0700, 0000, 0000, 0000 
U 2727, 2730,3770,0505,4344,4007,0700,0000,0000,0000 

U 2730, 2731,3443,0500,4174,4007,0700,0200,0004,0012 



U 2731, 0274,3771,0005,4365,5007,0700,0200,0000,0002 
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3796 


.TOC 


" SUBROUTINE CALL/RETURN 


-- JSR, JSP, JSA, JRA" 


3797 








3798 




. DCODE 




3799 


264: 


I, J/ JSR 




3800 




I, J/JSP 




3801 




I , J/ JSA 




3802 




I , J/ JRA 




3803 




.UCODE 




3804 








3805 


1550: 






3806 


JSP: 


[BR] PC WITH FLAGS 


; GET PC WITH FLAGS 


3807 




CLR FPD, 


; CLEAR FIRST-PART-DONE 


3808 




AC [BR], 


STORE FLAGS 


3809 




J/JUMPA 


,G0 JUMP 


3810 








381 1 


1552 : 






3812 


JSR: 


[BR] PC WITH FLAGS, 


GET PC WITH FLAGS 


3813 




CLR FPD 


; CLEAR FIRST-PART-DONE 


3814 




VMA [AR] , 


EFFECTIVE ADDRESS 


3815 




START WRITE 


, STORE OLD PC WORD 


3816 




MEM WRITE, 


,WAIT FOR MEMORY 


3817 




MEM [BR] 


'STORE 


3818 




[PC] [AR]+1000001 , 


PC E+1 


3819 




HOLD LEFT, 


NO JUNK IN LEFT 


3820 




3T, 


ALLOW TIME FOR DBM 


3821 




J/START 


START AT E+1 


3822 








3823 








3824 


1554: 






3825 


JSA: 


[BR] [AR], 


SAVE E 


3826 




START WRITE 


START TO STORE 


3827 




[ARX] [AR] SWAP 


ARX LEFT E 


3828 


-0*0 


[AR] AC, 


GET OLD AC 


3829 




CALL [IBPX] 


SAVE AR IN MEMORY 


3830 


= 1*0 


[ARX] [PC], 


ARX NOW HAS E , , PC 


3831 




HOLD LEFT, 




3832 




CALL [AC ARX] 


GO PUT ARX IN AC 


3833 


= 1*1 


[PC] [ BR ] + 1000001 , 


NEW PC 


3834 




3T, 


ALLOW TIME 


3835 




HOLD LEFT, 


NO JUNK IN PC LEFT 


3836 




J/START 


START AT E+1 


3837 


. = 






3838 








3839 


1555: 






3840 


JRA : 


[BR] AC 


GET AC 


3841 




[BR] [BR] SWAP 


OLD E IN BR RIGHT 


3842. 




VMA [BR], 


LOAD VMA 


3843 




START READ 


FETCH SAVED AC 


3844 




MEM READ, 


WAIT FOR MEMORY 


3845 




[BR] MEM, 


LOAD BR WITH SAVE AC 


3846 




J/JMPA 


GO JUMP 


3847 









; T10KL.MCR[ 10, 1 141 3 15:34 27-JULY-1984 

; SIMPLE. MICE 10, 1 141 ] 15:31 27-JULY-1984 



\ 



p 


0030, 


0000, 1557,2100 


D 


003 1 , 


0001 , 


1557,2100 


D 


0032 


0002, 1557,2100 


D 


0033 


0003, 1557,2100 


Q 


0034 


0004, 1557,2100 


p 


0035 


0005, 1557,2100 


D 


0036 


0006, 1557,2100 


p 




0007, 1557,2100 


p 


0040 


0000, 


1556,2100 


p 


nod 1 


0000, 


1556,2100 


D 


0042 


0000, 


1556,2100 


D 


0043 


0000, 


1556,2100 


D 


0044 


0000, 


1556,2100 


D 




0000, 


1556,2100 


D 




0000, 


1556,2100 


D 


0047 


oooo, 


1556,2100 


n 


UU3u , 


0000, 


1556,2100 


Q 


DDR 1 


0000, 


1556,2100 


Q 




0000, 


1556,2100 


p 


0053 


0000, 


1556,2100 


p 




noon 


1 J JU , / 1 \J\J 


n 

U 




0000, 


1556,2100 






0000, 


1556,2100 


p 


AOR7 


0000, 


1556,2100 


p 


uuou , 


0000, 


1556,2100 


p 


006 1 


0000, 


1556,2100 


P 


0062 


0000, 


1556,2100 


D 


0063 , 


oooo, 


1556,2100 


D 


0064 \ 


0000, 


1556,2100 


D 


0065, 


oooo, 


1556,2100 


D 


0066, 


oooo, 


1556,2100 


D 


0067, 


oooo , 


1556,2100 


p 


0070 , 


oooo, 


1556,2100 


D 


007 1 , 


oooo, 


1556,2100 


p 


0072 


oooo, 


1556,2100 


p 


0073 , 


oooo, 


1556,2100 


D 


0074, 


oooo, 


1556,2100 


D 


0075, 


oooo, 


1556,2100 


D 


0076, 


oooo, 


1556,2100 


D 


0077, 


oooo, 


1556,2100 


D 


0100, 


0000, 1556,2100 


D 


0101 , 


0000, 1661 ,2100 


D 


0102, 


0000, 1662,2100 


D 


0103, 


0000, 1663,2100 
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; 3848 .TOC "ILLEGAL INSTRUCTIONS AND UUO ' S " 

; 3849 ;LUU0'S TRAP TO CURRENT CONTEXT 

; 3850 

.; 3851 . DCODE 

; 3852 030: I, B/0, J/LUUO 

; 3853 I, B/1, J/LUUO 

; 3854 I, B/2, J/LUUO 

; 3855 I, B/3, J/LUUO 

; 3856 I, B/4, J/LUUO 

; 3857 I, B/5, J/LUUO 

; 3858 I, B/6, J/LUUO 

; 3859 I, B/7, J/LUUO 

; 3860 

; 3861 ;M0NIT0R UUO ' S TRAP TO EXEC 

; 3862 

; 3863 040: I, J/MUUO ; CALL 

; 3864 I, J/MUUO ; INIT 

; 3865 I , J/MUUO 

; 3866 I , J/MUUO 

; 3867 I , J/MUUO 

; 3868 I , J/MUUO 

; 3869 I , J/MUUO 

; 3870 I, J/MUUO ;CALLI 

; 3871 I, J/MUUO ;OPEN 

; 3872 1 / J/MUUO ; TTCALL 

: 3873 I , J/MUUO 

; 3874 I , J/MUUO 

; 3875 I , J/MUUO 

; 3876 I, J/MUUO ; RENAME 

; 3877 I, J/MUUO ; IN 

; 3878 I, J/MUUO ; OUT 

; 3879 I, J/MUUO ;SETSTS 

; 3880 > I, J/MUUO ; STATO 

; 3881 I, J/MUUO ; GETSTS 

; 3882 I, J/MUUO ; STATZ 

; 3883 I, J/MUUO ; INBUF 

; 3884 I, J/MUUO ;OUTBUF 

; 3885 I, J/MUUO ; INPUT 

; 3886* I, J/MUUO ; OUTPUT 

; 3887 I, J/MUUO ; CLOSE 

; 3888 I, J/MUUO ; R E L E A S 

; 3889 I, J/MUUO ; MTAPE 

; 3890 I, J/MUUO ; UGETF 

; 3891 I, J/MUUO ;USETI 

; 3892 I, J/MUUO ;USETO 

; 3893 I, J/MUUO ; LOOKUP 

; 3894 I, J/MUUO ; ENTER 

; 3895 

; 3896 ; EXPANSION OPCODES 

; 3897 

; 3898 100: I, J/UUO ;UJEN 

' ; 3899 I, J/UUO 101 

; 3900 I, J/UU0102 ; GFAD 

; 3901 I, J/UUO 103 ; GFSB 

; 3902 
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; SIMPLE. MIC[10, 1141] 15:31 27- JULY- 1984 • ILLEGAL INSTRUCTIONS AND UUO'S 









3903 


; RESERVED OPCODES 












3904 












D 


0000, 


0000,1556,2100 


3905 


000 




I * 


J/UUO 




D 


0104, 


0000, 1664,2100 


3906 


104 




I , 


J/JSYS 


JSYS 


D 


O106, 


0000,1666,2100 


3907 


106 




I » 


J/UUO 106 


GFMP 


D 


0107, 


0000,1667,2100 


3908 






I , 


J/UUO 107 


GFDV 


D 


0130, 


0000,1660,2100 


3909 


130 




I, B/0, 


J/FP-LONG 


UFA 


D 


0131 , 


0001,1660,2100 


3910 






I, B/1, 


J/FP-LONG 


DFN 


D 


0141 , 


0002, 1660,2100 


391 1 


141 




I, B/2, 


J/FP-LONG 


FADL 


D 


0151 , 


0003, 1660,2100 


3912 


151 




I , B/3, 


J/FP-LONG 


FSBL 


D 


0161 , 


0004, 1660,2100 


3913 


161 




I, B/4, 


J/FP-LONG 


FMPL 


D 


0171 , 


0005, 1660,2100 


3914 


171 




I , B/5, 


J/FP-LONG 


FDVL 


D 


0247, 


0000, 1665,2100 


3915 


247 




I , 


J/UU0247 


RESERVED 








3916 






.UCODE 












3917 


















3918 


1661 : 








U 


1661 , 


2732 ,4551, 0202 , 4374 , 0O07 , 0700 , OOOO , 0077 , 7740 


3919 


UU0101 : 


UUO 












3920 


1662: 








U 


1662, 


2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , OOOO , 0077 , 7740 


3921 


UU0102: 


UUO 












3922 


1663: 








U 


1663, 


2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , OOOO , 0077 , 7740 


3923 


UU0103: 


UUO 












3924 


1664: 








U 


1664, 


2732,4551, 0202 , 4374 , 0007 , 0700 , OOOO , 0077 , 7740 


3925 


JSYS: 


UUO 












3926 


1666: 








U 


1666, 


2732 ,4551, 0202 , 4374 , 0007 , 0700 , OOOO , 0077 , 7740 


3927 


UU0106: 


UUO 












3928 


1667 : 








U 


1667, 


2732 ,4551, 0202 , 4374 , 0007 , 0700 , OOOO ,0077 , 7740 


3929 


UUO 107: 


UUO 












3930 


1660: 








U 


1660, 


2732,4551, 0202 , 4374 , 0007 , 0700 , OOOO , 0077 , 7740 


3931 


FP-LONG 


.UUO 












3932 


1665: 








U 


1665, 


2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , OOOO , 0077 , 7740 


3933 


UU0247: 


UUO 










3934 













T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 



U 1 556 , 2732 ,4551, 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 

U 2732, 1 172,4751 , 1204,4374,4007,0700,0000,0000,0424 

U 1 172, 1575,01 11,1 104,4174,4007,0700,0010,0000,0000 
ED 



U 1 173, 1 174,3770,0203,4344,4007,0700,0000,0000,0000 

U 1 174, 2740,4521 , 1203,4074,0007,0700,0010,0000,0000 

U 1175, 0334,3333,0004,4174,4007,0700,0200,0021,1016 

U 0334, 2741,3333,0003,4175,5007,0701,0210,0000,0002 

U 0336, 0020,3333,0001,4175,5007,0701,0200,0000,0002 

U 0020, 2741,4221,0002,4174,0007,0700,0010,0000,0000 

U 0022 , 3554 , 3333 , 0002 ,4175, 5007 , 070 1 , 02 10 , 0000 , 0002 

U 0023, 3702,0111,0704,4170,4007,0700,0210,0023,1016 
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3935 


; HERE FOR UUO'S WHICH TRAP TO EXEC 


3936 


1556: 




3937 


UUO: ;THIS TAG IS USED FOR ILLEGAL THINGS WHICH DO UUO TRAPS 


3938 


MUUO: ;THIS TAG IS USED FOR MONITOR CALL INSTRUCTIONS 


3939 


[HR] [ HR ] . AND . # , 


MASK OUT @ AND XR 


3940 


#/777740, 


MASK 


394 1 


HOLD RIGHT 


KEEP RIGHT 


3942 


; THE UUO MACRO DOES THE ABOVE INSTRUCTION AND GOES TO UUOGO 


3943 


UUOGO: [ARX]_0 XWD [424] 


HERE FROM UUO MACRO 


3944 




GET OFFSET TO UPT 


3945 


=0 [ARX] [ARX]+[UBR], 


•ADDRESS OF MUUO WORD 


3946 


CALL [ABORT] 


STOP MEMORY 


3947 


. I F/KI PAGE 




3948 


. I F/KLPAGE 




3949 


READ [EBR], 


IF BOTH POSSIBLE, SEE WHICH IS 


3950 


SKIP DPO 


KL PAGING ?? 


3951 


=0 




3952 


. ENDI F/KLPAGE 




3953 


READ [ARX]. 


GET THE ADDRESS 


3954 


LOAD VMA, 


START WRITE 


3955 


VMA PHYSICAL WRITE, 


ABSOLUTE ADDRESS 


3956 


J/KIMUUO 


GO STORE KI STYLE 


3957 


. ENDI F /KI PAGE 




3958 


. I F/KLPAGE 




3959 


[AR] [HR] SWAP 


PUT IN RIGHT HALF 


3960 


=0 [AR] FLAGS, 


FLAGS IN LEFT HALF 


396 1 


HOLD~RIGHT , 


JUST WANT FLAGS 


3962 


CALL [UUOFLG] 


CLEAR TRAP FLAGS 


3963 


READ [ARX] , 


LOOK AT ADDRESS 


3964 


LOAD VMA, 


LOAD THE VMA 


3965 


VMA PHYSICAL WRITE 


STORE FLAG WORD 


3966 


=0* MEM WRITE, 


WAIT FOR MEMORY 


3967 


MEM [AR], CALL [NEXT] 


STORE 


3968 


MEM WRITE, 


WAIT FOR MEMORY 


3969 


MEM [PC] 


STORE FULL WORD PC 


3970 


=000 [HR] 0, 


SAVE E 


397 1 


HOLD RIGHT, CALL [NEXT] 


BUT CLEAR OPCODE 


3972 


. ENDI F/KLPAGE 




3973 


=010 




3974 


UUOPCW: MEM WRITE, 


WAIT FOR MEMORY 


3975 


MEM_[ HR ] , 


STORE INSTRUCTION IN KI 


3976 




, OR FULL WORD E IN KL 


3977 


CALL [GETPCW] 


, GET PROCESS-CONTEXT-WORD 


3978 






3979 


=011 NEXT [ARX] PHYSICAL WRITE, ;POINT TO NEXT WORD 


3980 


CALL [STOBR] 


.STORE PROCESS CONTEXT WORD 


3981 







; T10KL.MCR[10, 1141] 15:34 27-JULY-1984 MICRO 

; SIMPLE . MIC [ 10, 1 141 ] 15:31 27-UULY-1984 

U 0027, 2733,4751,1205,4374 r 40O7,07O0,OO0O,0000,O43O 

U 2733 , 2734 , 1 1 1 , 1 1 05 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 
U 2734, 2735,4521,1203,4074,4007,0700,0000,0000,0000 

U 2735, 1 176,4553,0300,4374,4007,0321 ,0000,0000,0600 

U 1176, 1177,3551, 0505 , 4370 , 4007 , 0700 , 0000 , 0000 , 000 1 
U 1 177, 1200,4553,0300,4374,4007,0321 ,0000,0001 ,0000 

U 1200, 1201 ,3551 ,0505,4370,4007,0700,0000,0000,0004 

U 1201 , 2736,3333,0005,4174,4007,0700,0200,0024, 1016 
U 2736, 2737,3771,0003,4365,5007,0700,0200,0000,0002 

U 2737, 0764,3333,0003,4174,4467,0700,0000,0000,0404 



\ 

U 2740, 0001,5551,0303,4374,0004,1700,0000,0000,0600 
U 2741, 0002,0111,0704,4170,4004,1700,0200,0023,1016 
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3982 ;NOW WE MUST PICK ONE OF 8 NEW PC WORDS BASED ON PC FLAGS 

3983 =111 [BR]_0 XWD [430] ; OFFSET INTO UPT 

3984 = 

3985 [BR]_[BR]+[UBR] ; ADDRESS OF WORD 

3986 [AR]_FLAGS ; GET FLAGS 

3987 TL [AR], ; LOOK AT FLAGS 

3988 #/600 ; TRAP SET? 

3989 =0 [BR ]_[BR ] . OR . # , ;YES"-POINT TO TRAP CASE 

3990 #/l, ; 

3991 HOLD LEFT ; LEAVE LEFT ALONE 

3992 TL [AR], ;USER OR EXEC 

3993 H/ 10000 ; . . 

3994 =0 [BR ]_[BR ] . OR . # , ;USER 

3995 #/4, ; POINT TO USER WORDS 

3996 HOLD LEFT 

3997 READ [BR], ; LOOK AT ADDRESS 

3998 LOAD VMA , ; PLACE IN VMA 

3999 VMA PHYSICAL, ;PHYSICAL ADDRESS 

4000 START READ ; GET NEW PC WORD 

4001 GOEXEC: MEM READ, ;WAIT FOR DATA 

4002 [AR]_MEM ; STICK IN AR 

4003 READ [AR], ; LOOK AT DATA 

4004 LOAD FLAGS, ; LOAD NEW FLAGS 

4005 LEAVE USER, ;ALLOW USER TO LOAD 

4006 LOAD PCU, ; SET PCU FROM USER 

4007 U/UUMPA ;JUMP 
4008 

;4009 . I F/KIPAGE 

;4010 ; HERE FOR TOPS- 10 STYLE PAGING 
;4011 

;4012 =00 

;4013 KIMUUO: MEM WRITE, ; STORE INSTRUCTION 
;4014 MEM_[HR], CALL [NEXT] ; IN MEMORY 

;4015 =10 [AR]_PC WITH FLAGS, ; GET PC WORD 

;4016 CALL [UUOFLG] ; CLEAR TRAP FLAGS 

;4017 =11 MEM WRITE, ; STORE PC WORD 

;4018 MEM_[ AR ] , ; 

;4019 U/UUOPCW ; GO STORE PROCESS CONTEXT 

4020 . ENDI F/KIPAGE 
4021 

4022 UUOFLG: [AR]__[AR] . AND . NOT . # , ; CLEAR TRAP FLAGS 

4023 #/600, HOLD RIGHT, ; IN WORD TO SAVE 

4024 RETURN [1] ; BACK TO CALLER 
4025 

4026 NEXT: NEXT [ARX] PHYSICAL WRITE, ;POINT TO NEXT WORD 

4027 RETURN [2] 
4028 



T10KL.MCR[ 10, 1141] 
SIMPLE . MIC [ 10, 1 141 ] 



15:34 27-JULY-1984 
15:31 27-JULY-1984 



MICRO 



U 1557, 0400,4751,1203,4374,4007,0700,0000,0000,0040 

U 0400 . 2742,3333, 0003 ,4174, 4007 , 0700 , 0200 , 0003 , 00 1 2 

U 2742, 2743,4551 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 

U 2743 , 2744 , 3333 , 0002 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 



U 2744, 2521,0111,0703,4170,4007,0700,0200,0004,0012 
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, fit K t 


FOR LUUO'S 




4030 


1557: 






A r\o ^ 


1 1 II to • 
LUUU . 


[AR] XWD [40] 


AR GET CONSTANT 40 


a r\ o i 


, 1 nt 


LUUO MACRO DOES THE ABOVE INSTRUCTION AND GOES TO LUUO 1 


a r\i o 
4Uoo 


A r\rs ■ 
4UU . 




rUK b±I*lULAiUK 




\ i ii in i 

LUUU I 


ncAn r ad 1 
KtAU [ AK J , 


LUAU 4vJ IN 1 U 






1 HAn \/MA 
LUAU V 1*1 A , 


tuc \/MA AMn 
1 nt VI*IA AINU 


A aqk 




START WRITE 


PREPARE TO STORE 


A m7 




[HR] [ HR ] . AND . ft , 


CLEAR OUT INDEX AND @ 


ACS'*}** 




#/777740, 








HOLD RIGHT 




4040 




MEM WRITE, 


STORE LUUO IN 40 


4041 




MEM [HR] 




4042 




VMA [AR]+1, 


POINT TO 41 


4043 




LOAD VMA, 


PUT 41 IN VMA 


4044 




START READ, 


START FETCH 


4045 




J/C0NT1 


GO EXECUTE THE INSTRUCTION 


4046 
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4049 


. DCODE 






D 


0270, 


1015,1560,1100 


4050 270: 


R-PF, 


AC, 


J/ ADD 


D 


0271 , 


0015, 1560,3000 


4051 


I-PF, 


AC, 


J/ADD 


D 


0272, 


0016,1560,1700 


4052 


RW, 


M, 


J/ADD 


D 


0273, 


0017,1560,1700 


4053 


RW, 


B, 


J/ADD 








4054 


.UCODE 







U 1560, 1500,0551 ,0303,0274,4463,7701 , '0200 , 000 1 , 000 1 



D 0274, 
D 0275, 
D 0276, 
D 0277, 



1015, 1561 , 1100 
0015, 1561 ,3000 
0016, 1561 , 1700 
0017, 1561 , 1700 



U 1561: 1500,2551,0303,0274,4463,7701,4200,0001,0001 



4047 
4048 



.TOC 



"ARITHMETIC ADD, SUB" 



4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 



1560: 
ADD: 



274: 



1561 : 
SUB: 



[AR]_JAR]+AC, 
AD FLAGS EXIT, 



3T 



.DCODE 






R-PF, 


AC, 


J/SUB 


I-PF, 


AC, 


J/SUB 


RW, 


M, 


J/SUB 


RW, 


B, 


J/SUB 


.UCODE 







[AR3_AC-[AR] , 
AD FLAGS EXIT, 



3T 



DO THE ADD 

UPDATE CARRY FLAGS 

STORE ANSWER 

MISSES 3-TICKS BY 3 NS 



DO THE SUBTRACT 
UPDATE PC CARRY FLAGS 
ALL DONE 

MISSES 3-TICKS BY 3 NS 
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D 01 14, 0205, 1457, 1 100 
D 0115, 0205, 1615,1 100 



U 1457, 1202,0551 ,0404, 1274,4007,0562,0000,0000, 1441 



U 1202, 2746,0551,0303,0274,4467,0702,4000,0001,0001 
U 1203, 2745,7441,1205,4174,4007,0700,0000,0000,0000 

U 2745 , 1 202 ,3111, 0503 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 



U 1615, 1 204 , 255 1 , 0404 , 1 274 , 4007 , 0562 , 4000 , 0000 ,1441 

U 1204, 2746,2551 ,0303,0274,4467,0702,0000,0001 ,0001 

U 1205, 2746,2551,0303,0274,4467,0702,4000,0001,0001 

U 2746 , 1 206 , 3770 , 0303 ,4174, 0007 , 0520 , 0000 , 0000 , 0000 

U 1 206 , 1 404 , 455 1 , 0404 , 4374 , 0007 , 0700 , 0000 , 0037 , 7777 

U 1 207 , 1 404 , 355 1 , 0404 , 4374 , 0007 , 0700 , 0000 , 0040 , 0000 
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4076 .TOC "ARITHMETIC DADD, DSUB" 

4077, 

4078 . DCODE 

4079 114: DBL R, DAC , J/DADD 

4080 DBL R, DAC, J/DSUB 

4081 .UCODE 
4082 

4083 1457: 

4084 DADD: [ ARX ]_[ ARX ] +AC [ 1 ] , 4T , ; ADD LOW WORDS 

4085 SKIP CRY 1 ;SEE IF CARRY TO HIGH WORD 

4086 =0 

4087 DADD 1 : [ AR ]_[ AR ] +AC , ; ADD HIGH WORDS 

4088 ADD .25, ; ADD IN ANY CARRY FROM LOW WORD 

4089 AD FLAGS, 4T , ; UPDATE PC FLAGS 

4090 J/CPYSGN ;COPY SIGN TO LOW WORD 

4091 [BR]_. NOT. [MASK] ; SET BITS 35 AND 36 IN 

4092 [AR]_[AR] .OR. [BR] , ; AR SO THAT ADD .25 WILL 

4093 HOLD LEFT, J/DADD 1 ; ADD 1. 
4094 

4095 1615: 

4096 DSUB: [ ARX ]_AC [ 1 ] - [ ARX ] , 4T , ; SUBTRACT LOW WORD 

4097 SKIP CRY 1 ;SEE IF CARRY 

4098 =0 [AR]_AC-[AR]- .25, ; NO CARRY 

4099 AD FLAGS, 4T , ; UPDATE PC FLAGS 

4100 J/CPYSGN ;G0 COPY SIGN 

4101 [AR]_AC- [AR] , 4T, ; THERE WAS A CARRY 

4102 AD FLAGS ; UPDATE CARRY FLAGS 
4103 

4104 CPYSGN: FIX [AR] SIGN, SKIP DPO 

4105 =0 [ARX]_[ARX] . AND . # , #/377777, HOLD RIGHT, J/MOVE 

4106 [ARX]__[ARX] .0R.#, #/400000, HOLD RIGHT, J/MOVE 
4107 

4108 



T10KL.MCR[ 10, 1141] 15:34 27- JULY- 1984 MICRO 

SIMPLE. MICC 10, 1 141 ] 15:31 27- JULY- 1984 ■ 



D 0220, 1015, 1641 , 1 100 

D 0221, 0015,1641,3000 

D 0222, 0016, 1641 , 1700 

D 0223, 0017, 1641 , 1700 



U 1641 , 2747,3441 ,0306,0174,4007,0700,0000,0000,0000 

U 2747, 0021,3772,0000,0275,5007,0700,2000,0071,0043 

U 0021, 2773,3446,0606,4174,4007,0700,0010,0000,0000 

U 0025 , 1210,3333, 0004 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 

U 1210, 2750,3445,0404,4174,4007,0700,0000,0000,0000 

U 1211, 1 500 ,3221, 0003 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 



U 2750, 1212,51 13,0412,4174,4007,0621 ,0000,0000,0000 

U 1212, 1214, 3770 , 0404 ,4174, 0007 ,0520 , 0000 , 0000 , 0000 

U 1213, 1 500 , 700 1 , 0003 ,4174, 4003 , 7700 ,0200 , 0003 , 000 1 

U 1214, 1404,3221 ,0003,4174,4467,0700,0000,0041 , 1000 

U 1215, 1404,7001 ,0003 , 4 1 74 , 4467 , 0700, 0000 , 004 1 , 1000 



D 0224, 1005, 1571 , 1 100 

D 0225, 0005,1571,3000 

D 0226, 0016, 1571 , 1700 

D 0227, 0006,1571,1700 



U 1571 , 2751 ,3442,0300,0174,4007,0700,0000,0000,0000 

U 2751, 2752,3441,0316,4174,4007,0700,0000,0000,0000 

U 2752, 0031 ,3771 ,0006,0276,6007,0700,2000,0071 ,0043 

U 0031, 2773,3446,0606,4174,4007,0700,0010,0000,0000 

U 0035, 2753,3445,0403,4174,4007,0700,0000,0000,0000 

U 2753 , 1 2 1 6 , 3770 , 0303 ,4174, 0007 , 0520 , 0000 , 0000 , 0000 

U 1 2 1 6 , 1 500 , 400 1 , 0004 ,4174, 4003 , 7700 , 0300 , 0003 , 000 1 

U 1217, 1220,41 13,0616,4174,4007,0520,0000,0000,0000 

U 1220, 1 500 , 700 1 , 0004 ,4174, 4003 , 7700 , 0200 , 0003 , OOO 1 



U 



1221 , 



1404,7001 ,0004,4174,4467,0700,0000,0041 , 1000 
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4 109 
41 10 
4111 
4112 
41*13 
41 14 
4115 
4116 
4117 
4118 
41 19 
4120 
4121 
4122 
4123 
.4124 
4125 
4 1 26 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
4140 
4141 
4142 
4143 
4144 
4145 
4146 
4147 
4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4158 
4159 



.TOC 



"ARITHMETIC 



MUL, IMUL" 



220: 



1641 : 
IMUL: 

=0** 



=0 

IMUL 1 : 
IMUL2 : 
=0 



=0 

IMUL3: 



. DCODE 

R-PF, 

I-PF, 

RW, 

RW, 

.UCODE 



AC, 
AC, 
M, 
B, 



J/IMUL 
J/ I MUL 
J/IMUL 
J/IMUL 



[BRX ]_[ AR ] , AC 

Q_AC, 5C_35. 

[BRX]_[BRX]*.5 LONG, 

CALL [MULSUB3 

READ [ARX 3 , SKIP AD.EQ.O 

[ARX3_[ARX]*2, J/IMUL2 

[AR]__Q, EXIT 

[MASK] .AND. NOT. [ARX 3 , 

SKIP AD.EQ.O 

FIX [ ARX 3 SIGN, 

SKIP DPO, J/IMUL3 

[AR] [ MAG 3 - EQV . Q , EXIT 



COPY C(E) 

GET THE AC 

SHIFT RIGHT 

MULTIPLY 

;SEE IF FITS 

NOT ZERO- -SHIFT LEFT 

POSITIVE 

SEE IF ALL SIGN BITS 

NOT ALL SIGN BITS 
GIVE + OR - OVERFLOW 
NEGATIVE 



[AR]_Q, SET AROV , J/MOVE 

[ AR 3_[MAG3 - EQV . , SET AROV, J/MOVE 



.DCODE 
224: R-PF, 
I-PF, 
RW, 
RW, 

.UCODE 



DAC, 
DAC, 
M, 

DBL B, 



J/MUL 
J/MUL 
J/MUL 
J/MUL 



1571 : 
MUL: 



=0** 



=0 



Q__[AR3, AC 

[T03_[AR3 

[BRX]_AC, SC_35. 

[BRX]_[BRX]*.5 LONG, 

CALL [MULSUB] 

[AR3_[ARX]*2 

FIX [AR] SIGN, SKIP DPO 

[ARX]__[MAG] . AND.Q, 

EXIT 

[TO] .AND. [BRX] , SKIP DPO 
[ARX]__[MAG] .EOV.O, EXIT 
[ ARX ]_[ MAG] . EOV . , 
SET AROV, J/MOVE 



COPY C(E) 

SAVE FOR OVERFLOW TEST 

GET THE AC 

SHIFT OVER 

MULTIPLY 

SHIFT OVER 

SEE IF NEGATIVE 

POSITIVE 



; TRI ED TO SQUARE 

NO 

YES 



1B0? 
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D 0116, 0205, 1566, 1 100 



U 1566, 2754,3447,0303,4174,4007,0700,0000,0000,0000 
U 2754 , 2755,4117, 0004 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2755, 0120,3441,0405,4174,4007,0350,0000,0000,0000 



U 0120, 2767,4557,0006, 1274,4007,0701 ,0010,0000, 1441 

U 0121 , 2757,4557,0004, 1274,4007,0701 ,0000,0000, 1442 
U 0124, 0171,3223,0000,1174,4007,0700,0400,0000,1443 



U 0171, 0563,3442,0300,4174,4007,0700,2010,0071,0043 

U 0175, 2756,3441,0416,4174,4007,0700,0000,0000,0000 

U 2756, 0310,3227,0004,1174,4007,0700,0400,0000,1442 

U 2757, 0310,3777,0016,1276,6007,0701,0000,0000,1441 



U 0310, 2770,3777,0006,0274,4007,0701,0010,0000,0000 

U 0311, 2772,0113,1616,1174,4007,0701,0400,0000,1441 

U 0314, 2760,3223,0000, 11 74 , 4007 , 0700, 0400 ,0000 , 1442 

U 2760, 0543,0111,1604,4174,4007,0700,0000,0000,0000 



U 0543, 0563,3442,0300,4174,4007,0700,2010,0071,0043 
U 0547, 2761,3445,0404,4174,4467,0700,0000,0005,0000 
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4160 
4161 
4162 
4163 
4164 
4165 
4166 
4167 
4168 
4169 
4170 
4171 
4172 
4173 
4174 
4175 
4176 
4177 
4178 
4179 
4180 
4181 
4182 
4183 
4184 
4185 
4186 
4187 
4188 
4189 
4190 
4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
4205 
4206 
4207 
4208 
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.TOC 



1 16: 



"ARITHMETIC 



DMUL" 



. DCODE 
DBL R , 
.UCODE 



DAC, 



J/DMUL 



. I r/ FULL 
1566: 

DMUL: [AR3_[AR3*-5 



; SHIFT MEM OPERAND RIGHT 



[ARX3_([ARX3 -AND. [MAG])*. 5 



[BR]_[ARX3 . 
SKIP FPD 

BRX * BR ==> C(E+1) * C(AC+1) 



;COPY LOW WORD 

;SEE IF FIRST PART DONE 



=000 [BRX]_(AC[ 1 ] .AND. [MAG] )*.5, 3T, ; GET LOW AC 
CALL [DMULG03 ; START MULTIPLY 

[ ARX 3 (AC[23 -AND. [MAG3)*.5, 3T , ;FIRST PART DONE 



= 100 



J/DMUL 1 
AC[3 3_0 



BRX * = = > C(E) * C(AC+1 ) 

=0** 0_[AR3, SC_35., 
CALL [QMULT3 
[T03_[ARX3 

AC[23_0, [ARX3_Q*.5, 

U/DMUL2 
DMUL 1 : [T03_AC[ 1 ] * . 5 
= 0*0 

BRX * BR ==> C(AC) * C(E+1) 

DMUL2: [BRX]_AC*.5, 
CALL [DBLMUL3 
AC[ 1 3_[T03*2, 3T, 
J/DMLINT 
AC[2 3_0 

[ARX3_[ARX3+[T03 
BRX * Q ==> C(AC) * C(E) 

=0** 0_[AR3, SC_35., 
CALL [QMULT3 
[ARX3_[ARX3*2, 
CLR FPD 



;G0 DO SECOND PART 

; SALT AWAY 1 WORD OF PRODUCT 



GO MULT NEXT HUNK 



SAVE PRODUCT 
SAVE PRODUCT 
GO DO HIGH HALF 
RESTORE TO 



PREPARE TO DO HIGH HALF 

GO DO IT 
INTERRUPT, SAVE TO 
SET FPD AND INTERRUPT 
SAVE PRODUCT 

; PREPARE FOR LAST MUL 



DO THE LAST MULTIPLY 

GO DO IT 
SHIFT BACK 
CLEAR FPD 



T10KL . MCR [ 10, 1141] 
SIMPLE. MIC[ 10, 1141] 



15:34 27-JULY-1984 
15:31 27- JULY- 1984 



MICRO 31(254) 
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U 2761 , 
U 1222, 
U 1223, 
U 2762, 
U 2763, 
U 2764, 
U 2765, 

U 2766, 
U 1224, 
U 1225, 



U 2767, 
U 2770, 
U 2771, 



U 0563, 
U 0567, 
U 2772, 



1222, 
2766, 
2762, 
2763, 
2764, 
2765, 
2766, 



3770, 
3223, 
7003, 
3772, 
7003, 
3772, 
7003, 



0404, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 



0174, 
1 174. 
1 174. 
1275, 
1 174. 
1275. 
1 174. 



1224,3741 ,0103,4074, 
01 10,3443,0100,4174, 
1400,4443,0000,4174, 



4007 , 0520 , 0400 , 0000 , 0000 
4007,0700,0400,0000, 1441 
4007,0700,0400,0000, 1441 
5007 , 070 1 , 0000 , 0000 ,1442 
4007 , 0700 , 0400 , 0000 ,1442 
5007,0701 ,0000,0000, 1443 
4007 , 0700 , 0400 , 0000 ,1443 

4007 , 0520 , 0000 ,0000 , 0000 
4156,4700,0200, 0014,0012 
4467 , 0700 , 0000 , 004 1 , 1000 



2770 , 422 1 , 0004 , 4 1 74 , 4007 , 0700 ,0000 , 0000 , 0000 
2771 ,3442,0500,4174,4007,0700,2000,0071 ,0043 
0563 , 3447 , 0606 , 4 1 74 ,4007 , 0700 , 0000 , 0000 , 0000 



2775 , 3446 , 1 200 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 
0004,01 13,0404,4174,4464, 1701 ,0000,0001 ,0001 
2675 , 4443 , 0000 ,4174, 4467 , 0700 , 0000 ,0003 , 0000 



4209 
4210 
421 1 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
;4234 
;4235 
; 4236 
4237 
4238 



ACjARX] TEST, SKIP 
=0 AC[1]__Q, J/DMTRAP 

AC[1]_[ MAG]. EQV.Q 

0_AC[2] 

AC[2]_[MAG] .EQV.Q 
0_AC[3] 

AC[3]_[MAG] .EQV.Q 
DMTRAP: [AR]_PC WITH FLAGS, 

SKIP DPO 
=0 DONE 

SET AROV, J/DONE 



;WAYS TO CALL MULTIPLY 
DMULGO: [ARX]_0 
DBLMUL: Q__[ BR ] , SC_35. 

[BRX]__[BRX]*.5 



DPO 



=0* * 
QMULT : 



Q_Q*.5, 

CALL [MULTIPLY] 
[ARX]+[ARX], AD FLAGS, 
3T, RETURN [4] 



DMLINT: SET FPD, J/FIXPC 



. I FNOT/FULL 
1566: 

DMUL : UUO 
. ENDI F/FULL 



PUT BACK INTO AC 

POSITIVE 

NEGATIVE 



LOOK AT FLAGS 

SEE IF AROV SET? 

NO- -ALL DONE 

YES- -FORCE TRAP 1 ALSO 



: CLEAR ARX 



; TEST FOR OVERFLOW 
; AND RETURN 

;SET FPD, BACKUP PC 
: INTERRUPT 



o 

; T10KL.McR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 31 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 2773 , 2774 , 3446 , 0606 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
U 2774, 0122,4226,0004,4174,4007,0630,2000,0060,0000 



U 2775, 0122,3446,1200,4174,4007,0630,2000,0060,0000 
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4239 ; MULT I PLY SUBROUTINE 

4240 ; ENTERED WITH: 

4241 ; MULTIPLIER IN 

4242 ; MULTIPLICAND IN BRX 

4243 ; RETURNS 4 WITH PRODUCT IN ARX!Q 
4244 

4245 MUL STEP " A/BRX , B/ARX , DEST/ Q_Q* . 5 , ASHC , STEP SC.MUL DISP" 

4246 MUL FINAL " A/BRX , B/ARX , DEST/Q_Q*2 " 
4247 

4248 MULSUB: [ BRX ]_[ BRX ] * . 5 LONG 

4249 MULSB1: [ARX]_0*.5 LONG, ; C L E A R ARX AND SHIFT 

4250 STEP SC, ; COUNT FIRST STEP 

4251 J/MUL+ ; ENTER LOOP 
4252 

4253 ; MULT I PLY SUBROUTINE 

4254 ; ENTERED WITH: 

4255 ; MULTIPLIER IN 

4256 ; MULTIPLICAND IN BRX 

4257 ; PARTIAL PRODUCT IN ARX 

4258 ; RETURNS 4 WITH Q*BRX+ARX IN ARX ! Q 
4259 

4260 MULTIPLY: 

4261 Q_Q*.5, ; SHI FT 

* 4262 STEP SC, ;COUNT FIRST STEP 

4263 J/MUL^ ; ENTER LOOP 

4264 



; T10KL-.MCR[ 10, 1 141 ] 15:34 27- JULY- 1984 MICRO 

; SIMPLE . MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 0122, 0122,3336,0604,4174,4046,2630,2000,0060,0000 



U 0123, 0004,3334,0604,4174,4004,1700,0000,0000,0000 



U 0126, 0142,1116,0604,4174,4046,2630,6000,0060,0000 



U 0127, 0004,1114,0604,4174,4004,1700,4000,0000,0000 



U 0142, 0122,0116,0604,4174,4046,2630,2000,0060,0000 



U 0143, 0004,0114,0604,4174,4004,1700,0000,0000,0000 



U 0146, 0142,3336,0604,4174,4046,2630,2000,0060,0000 



U 0147, 0004,3334,0604,4174,4004,1700,0000,0000,0000 
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4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4284 
4285 
4286 
4287 
4288 
4289 
4290 
4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 



; HERE FOR POSITIVE STEPS 
=010 

MUL+: AD/B, 

MUL STEP, 
U/MUL+ 



=01 1 



= 1 10 



= 111 



AD/B, 

MUL FINAL, 
RETURN [4] 

AD/B-A-.25, 
MUL STEP, 
J/MUL- 

AD/B-A-.25, 
MUL FINAL, 
RETURN [4] 



ADD .25, 



ADD .25, 



; HERE FOR NEGATIVE STEPS 
=010 

MUL- : AD/A+B, 

MUL STEP, 
U/MUL+ 



=01 1 



= 1 10 



= 111 



AD/A+B, 

MUL FINAL, 
RETURN [4] 

AD/B, 
MUL STEP, 
d/MUL- 

AD/B, 

MUL FINAL, 
RETURN [4] 



IN A POSITIVE STEP 
DON'T ADD 

SHIFT 

KEEP POSITIVE 
DONE 

DON'T ADD 
SHIFT 

SHIFT AND RETURN 

1 IN A POSITIVE STEP 
SUBTRACT 

SHIFT AND COUNT 
NEGATIVE NOW 
DONE 

SUBTRACT 
SHIFT 
AND RETURN 



IN NEGATIVE STEP 
ADD 

SHIFT AND COUNT 

POSITIVE NOW 

DONE 

ADD 

SHIFT 

;FIX Q AND RETURN 

1 IN NEGATIVE STEP 
DON'T ADD 

SHIFT AND COUNT 
STILL NEGATIVE 
DONE 

DON'T ADD 
SHIFT 

;FIX AND RETURN 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



D 0230, 1005,1600,1100 

D 0231, 0005,1600,3000 

D 0232, 0016,1600,1700 

D 0233, 0006,1600,1700 

D 0234, 1005,1601,1100 

D 0235, 0005,1601,3000 

D 0236, 0016,1601,1700 

D 0237, 0006,1601,1700 



U 1600, 2776,3441,0305,0174,4007,0700,0000,0000,0000 

U 2776, 1226 , 3772 , 0000 , 0275 , 5007 , 0520 , 0000 , 0000 , 0000 

U 1226, 0161,4221,0003,4174,4007,0700,0000,0000,0000 

U 1227, 0161,2441,0703,4174,4007,0700,4000,0000,0000 

U 1601, 2777,3441,0305,4174,4007,0700,0000,0000,0000 

U 2777 , 3000 ,3771, 0003 , 0276 , 6007 , 0700 , 0000 , 0000 , 0000 

U 3000, 3001,3772,0000,1275,5007,0701,0000,0000,1441 

U 3001, 0160,3333,0003,4174,4007,0621,0000,0000,0000 

U 0160, 1230, 7443, 0300, 4174, 4007 , 06 2 1 , 0000 , 0000 , 0000 

U 0161, 0164,3333,0005,4174,4007,0621,0000,0000,0000 



U 0164, 0370,4443,0000,4174,4007,0700,2010,0071,0042 
U 0165, 0603,4443,0000,4174,4467,0700,0000,0051,1000 

U 0166, 1211 ,3441 ,0304,4174,4007,0700,0000,0000,0000 



U 1230, 3002,3441,0306,4174,4007,0700,0000,0000,0000 
U 1231, 0164,3333,0005,4174,4007,0621,0000,0000,0000 
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4301 


. TOC 


"ARITHMETIC 


DIV, IDIV" 


4302 










4303 




. DCODE 






4304 


230: 


R-PF, DAC, 


J/IDIV 




4305 




I-PF, DAC, 


J/IDIV 




4306 




RW, M, 


J/IDIV 




4307 




RW, DBL B, 


J/IDIV 




4308 










4309 


234 : 


R-PF, DAC, 


J/DI V 




4310 




I-PF, DAC, 


J/DI V 




43 1 1 




RW , M , 


J/DI V 




431 2 




RW, DBL B, 


J/DI V 




43 1 3 




. UCODE 






43 1 4 










43 15 


1600 : 








4316 


IDIV: 


[BR ]_[ AR ] , AC 




COPY MEMORY OPERAND 


4317 




0_AC , 




LOAD Q 


4318 




SKIP DPO 




SEE IF MINUS 


43 19 


=0 


[AR] 0, 




EXTEND + SIGN 


4320 




J/DIV1 




NOW SAME AS DIV 


4321 




[AR] -1, 




EXTEND - SIGN 


4322 




J/DIV1 




SAME AS DIV 


4323 










4324 


1601 : 








4325 


DIV : 


[BR] [AR] 




COPY MEM OPERAND 


4326 




[AR] AC 




GET AC 


4327 




Q_AC[ 1 ] 




AND AC+1 


4328 




READ [AR], 




TEST FOR NO DIVIDE 


4329 




SKIP AD.EQ.O 






4330 


=000 


.NOT. [AR] , 




SEE IF ALL SIGN BITS IN AR 


4331 




SKIP AD.EQ.O, 






4332 




J/DIVA 




CONTINUE BELOW 


4333 


=001 








4334 


DI V1 : 


READ [BR], 


;SEE IF DIVIDE BY 


4335 




SKIP AD.EQ.O 




ZERO 


4336 


= 100 








4337 


DIV2 : 


SC_34 . , 




NOT ZERO- -LOAD STEP COUNT 


4338 




CALL [DIVSUB] 




DIVIDE 


4339 


= 101 


NO DIVIDE 




DIVIDE BY ZERO 


4340 


= 1 10 


[ ARX]_[ AR] , 




COPY REMAINDER 


434 1 




J/IMUL1 




STORE ANSWER 


4342 


= 








4343 










4344 










4345 


=0 








4346 


DIVA : 


[BRX] [AR], 




.HIGH WORD IS NOT SIGNS 


4347 




J/DIVB 




GO TEST FOR NO DIVIDE 


4348 




READ [BR], 




ALL SIGN BITS 


4349 




SKIP AD.EQ.O, 




SEE IF ZERO DIVIDE 


4350 




J/DIV2 




BACK TO MAIN FLOW 


4351 











/ 



; T10KL.MCRC 10, 1 141] 15:34 27-JULY-1984 MICRO 

; SIMPLE. MIC[10, 1141] 15:31 27- JULY- 1984 ' 

U 3002, 3003,3221,0004,4174,4007,0700,0000,0000,0000 

U 3003, 0330,3333,0003,4174,4007,0520,0000,0000,0000 

U 0330 , 1232,3333, 0005 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 
U 0331, 3064,4551,0404,4374,0007,0700,0010,0037,7777 

U 0333 , 1232, 3333 , 0005 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 



U 1232, 1234,21 1 3 , 0305 , 4 1 74 , 4007', 052 1 ,4000,0000,0000 

U 1233, 1234,01 13,0305,4174,4007,0521 ,0000,0000,0000 

U 1234, 0603,4443,0000,4174,4467,0700,0000,0051,1000 

U 1235, 0161,3441,0603,4174,4007,0700,0000,0000,0000 
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4352 
4353 
4354 
4355 
4356 
4357 
4358 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 
4368 
4369 
4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 



DIVB: 



=00 



= 11 



=0 

DIVC: 



=0 

NODIV: 



[ARX]_Q 
READ [AR], 
SKIP DPO 
REAb [BR], 
SKIP DPO, 
J/DIVC 

CLEAR [ARX]0, 
CALL [DBLNG1] 
READ [BR], 
SKIP DPO, 
J/DIVC 



[ AR ] - [BR ] , 
SKIP DPO, 
3T, 

J/NODIV 
[AR]+[BR] , 
SKIP DPO, 
3T, 

J/NODIV 

NO DIVIDE 
[AR]_[BRX] , 
J/DIV1 



; MAKE ABS VALUES 
;SEE IF + 

;SEE IF + 

; CONTINUE BELOW 

; FLUSH DUPLICATE SIGN 

; NEGATE AR ! ARX 

;SEE IF TOO BIG 



;COMPUTE DIFFERENCE 
;SEE IF IT GOES 
;ALLQW TIME 
; TEST 

; SAME TEST FOR -VE BR 



TOO BIG 
FITS 

GO BACK AND DIVIDE 



T10KL 
SIMPLE 



O 

.mcr[ 10, 1 141 ; 



![ 10, 1 141] 
.MIC[ 10, 1141] 



15:34 27-JULY-1984 
15:31 27-JULY-1984 



MICRO 



D 01 17, 0205, 1627, 1 100 



U 1627, 

U 3004, 

U 1236, 

U 1237, 

U 1240, 
U 1241, 

U 3005, 
U 3006, 



3004, 

1236, 

1242, 

1240, 

1242, 
3005, 

3006, 
3007, 



4112, 

3447 , 

3446 , 

3446, 

4003. 
4751 , 

3662, 
2222. 



0400, 

0305, 

0505, 

0505, 

0000, 
1217, 

0000, 
0000, 



4174, 

4174, 

4174, 

4174, 

4174. 
4374, 

4374, 
4174, 



4007, 

4007, 

4007, 

4007, 

4007, 
4007, 

0007, 
4007, 



0700, 

0421 , 

O70O, 

0520, 

0621 , 
0700, 

0700. 
0700, 



0000, 
0000, 
0000, 
0000, 
0000, 

oooo, 

0000, 
4000, 



0000, 

0000, 

0000, 

0000, 

0000, 
0000, 

0060, 
0000, 



0000 

oooo 

0000 

oooo 
oooo 

0005 

oooo 
oooo 



U 3007, 3011,2446,0505,4174,4047,0700,0040,0000,0000 



U 1242, 3010,3446,0505,4174,4047,0700,0000,0000,0000 

U 1243, 0603,4443,0000,4174,4467,0700,0000,0051,1000 

U 3010, 3011 ,4751 ,.1217,4374,4007,0700,0000,0000,0004 

U 301 1 , 3012,3221 ,00O6,O174,4OO7,0700,OOO0,0000,0000 

U 3012, 0054,3777,0003,0274,4007,0520,0000,0000,0000 



U 0054, 1244,4552,0000, 1275,5007,0701 ,0000,0000, 1441 
U 0055, 3053,6551 , 1717,4374,4007,0700,0010,0000,0007 
U 0075, 0054,3447,0303,4174,4007,0700,0000,0000,0000 



U 1244, 3035,3446,0303,4174,4007,0700,0010,0000,0000 

U 1 245 , 1 246 ,2113, 0305 ,4174, 4007 ,052 1 , 4000 , OOOO , OOOO 

U 1 246 , 1 250 ,2113, 0305 ,4174, 4007 , 0620 , 4000 , OOOO , OOOO 

U 1247, 3013,3221,0004,4174,4007,0700,0000,0000,0000 



U 1250, 0033,3333,0017,4174,4003,5701,0000,0000,0000 

U 1 25 1 , 1 252 , 1003 , 0600 ,4174, 4007 , 052 1 , 4000 , OOOO , OOOO 

U 1252, 0033,3333,0017,4174,4003,5701,0000,0000,0000 

U 1 253 , 301 3 , 322 1 , 0004 ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 
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4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
441 1 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
4428 
4429 
4430 
4431 



. TOC 



117: 



'ARITHMETIC 



. DCODE 
DBL R, 
.UCODE 



DAC, 



DDIV 



J/DDIV 



. IF/FULL 
1627: 
DDIV: 



=0 



=0 

DDI V 1 : 



DDI V2 : 
DDI V3 : 



=0* 1 *0 
DDI V3A : 



=1*1*1 



=0 

DDI V4 : 



=0 

DDI V5 : 



Q_[ARX] . AND. [MAG] 
[BR]_[AR]*.5, 
SKIP AD.LE.O 
[BR]_[BR]*.5 LONG, 
J/DDIV 1 

[BR]_[BR]*.5 LONG, 

SKIP DPO 

[MAG] . AND.Q, 

SKIP AD.EQ.O, J/DDIV1 

[T1 ]_0 XWD [5] 

Q_Q.OR.#, #/600000, 

HOLD RIGHT 

Q_-Q 

[BR]_(-[BR]-.25)*.5 LONG 
ASHC, MULTI PREC/1, 
J/DDIV3 

[BR]_[BR]*.5 LONG, 
ASHC, J/DDIV2 
NO DIVIDE 
[T1]_0 XWD [4] 
[BRX]_Q, AC 



COPY LOW WORD 

COPY MEMORY OPERAND 

SEE IF POSITIVE 

POSITIVE 

CONTINUE BELOW 

NEGATIVE OR ZERO 

SEE WHICH? 

SEE IF ALL ZERO 

CONTINUE BELOW 

NEGATE MEM OP 

SIGN EXTEND THE LOW 

WORD 
MAKE POSITIVE 

; NEGATE HIGH WORD 
USE CARRY FROM LOW WORD 
CONTINUE BELOW 

SHIFT OVER 1 PLACE 

CONTINUE BELOW 

DIVIDE BY ZERO 

MEM OPERAND IS POSITIVE 

COPY 



[AR]_AC*.5, 2T, SKIP DPO ; GET AC- -SEE IF NEGATIVE 



Q_AC[ 1 ] . AND. [ MAG j , 
J/DDIV4 

[T1 ]_[T1 ] .XOR.#, 
#/7, CALL [ QDNEG ] 
[AR]_[AR]*.5, 
J/DDIV3A 



[AR]_[AR]*.5 LONG, 

CALL [DDIVS] 

[ AR ] - [BR ] , 3T, SKIP DPO 

[ AR ] - [ BR ] , 2T, 

SKIP AD.EQ.O, J/DDIV5 

[ARX] 0, J/DDIV5A 



POSITIVE (OR ZERO) 
CONTINUE BELOW 
NEGATIVE 

UPDATE SAVED FLAGS 

SHIFT AR OVER 

GO BACK AND LOAD 



SHIFT AR OVER 
SHIFT 1 MORE PLACE 
TEST MAGNITUDE 



; ANSWER FITS 



READ [T1], 3T, DISP/DP, J/NODDIV 

Q-[BRX] , 3T, SKIP DPO 

READ [T1], 3T, DISP/DP, J/NODDIV 

[ARX] ;COPY LOW WORD 



TIOKL.MCR't 10, 1141] 15:34 27-UULY-1984 MICRO 

SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 



U 3013, 0354,4552,0000, 1 275 , 5007 , 070 1, OOOO , OOOO , 1442 

U 0354 , 1276, 3446 , 1 200 ,4174, 4007 , 0700 , 20 1 , 007 1 , 0O4 2 

U 0356 , 30 1 4 , 3224 , 00 1 6 , 4 1 74 , 4007 , 0700 , 0000 , OOOO , OOOO 

U 3014, 3015,0002,1600,4174,4007,0700,0000,0000,0000 

U 3015, 1254,4003,0000, 1 1 74 , 4007 , 0700 , 0400 , OOOO , 1440 

U 1254, 3035 , 3442 , 0400 ,4174, 4007 , 0700 , 00 1 , OOOO , OOOO 

U 1255, 3016,3221,0004,4174,4007,0700,0000,0000,0000 

U 3016, 0411,4552,0000,1275,5007,0701,0000,0000,1443 



1 276 , 3446 , 03 1 6 , 4 1 74 , 4007 , 0520 , 20 10 , 007 1 , 0042 
30 1 7 , 3224 , 00 1 6 , 4 1 74 , 4007 ,0700 , OOOO , OOOO , OOOO 
0056 , 3333 , 00 1 7 , 4 1 74 , 4003 , 570 1 , OOOO , OOOO , OOOO 

3022 , 000 1,1616,4174, 4007 , 0700 , OOOO , OOOO , OOOO 
3020 , 2225 , 00 1 6 , 4 1 74 , 4007 , 0700 , 4000 , OOOO , OOOO 



3021 , 1772,0000,0274,4007,0701 ,0040,0000,0000 
1 256 , 3223 , OOOO ,0174, 4007 , 062 1 , 0400 , OOOO , OOOO 
3023,3440, 1616, 1 174,4007,0700,0400,0000, 1441 
3025,4223,0000, 1 174,4007,0700,0400,0000, 1441 

3025,41 13, 1600, 1 1 74 , 4007 , 0700, 0400, OOOO , 1441 



3024, 
3025, 



3551 , 
3440, 



1616, 
1616, 



4374 
1 174 



, 0007 , 
, 4007 



0700, 
0700, 



OOOO, 
0400, 



O040, 
OOOO, 



OOOO 
1441 



1 260 , 3333 , 0003 ,4174, 4007 , 0520 , OOOO , OOOO , OOOO 



3031 
3026 

3027, 
3030, 

3031 , 
0355 , 



,3442, 
,0112, 

,01 1 1 , 
, 0002 , 

,0111. 
3333, 



0400, 
0406, 

0503, 
0600, 

0503, 
0017, 



4174, 
4174, 

4174, 
4174, 

4174. 
4174, 



4007, 
4007 

4007 
4007 

4007 
4003 



,0700, 
, 0700 , 

,0700, 
,0700, 

,0700, 
,5701 , 



,0000, 
,0000, 

, 0040 , 
,0000, 

, 0040 , 
,0000, 



OOOO, 
OOOO, 

OOOO, 
OOOO, 

OOOO, 
OOOO, 



OOOO 
OOOO 

OOOO 
OOOO 

OOOO 
OOOO 



3033 , 3444 , 0303 ,4174, 4047 , 0700 , OOOO , OOOO , OOOO 
3032 , 2222 , OOOO , 4 1 74 , 4007 , 0700 , 4000 , OOOO , OOOO 



U 3032 , 3033 , 2444 , 0303 ,4174, 4047 , 0700 , 0040 , OOOO , OOOO 



V J 
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4432 -HERE WITH EVERYTHING SETUP AND READY TO GO 

4433 DDI V5A : Q_AC [ 2 ] .'AND . [MAG] 

4434 =0* Q_Q*.5, SC_34 . , CALL [DBLDIV] 

4435 [T0]__Q*2 LONG 

4436 0__0+[TO] 

4437 AC[0]_Q. AND. [MAG] ; STORE ANSWER 

4438 =0 0_[ARX], CALL [DDIVS] ; SHIFT OUT EXTRA ZERO BIT 

4439 [ARX]_Q ; . . 

4440 Q_AC[3] .AND. [MAG] 

4441 =0* [T0]_[AR]*.5 LONG, ;SHIFT 0, PUT AR ON DP 

4442 SC_34., ; LOAD SHIFT COUNT 

4443 SKIP DPO, ; LOOK AT AR SIGN 

4444 CALL [DBLDIV] ; GO DIVIDE 

4445 [T0]_Q*2 LONG 

4446 READ [T1], 3T , DISP/DP ; WHAT SIGN IS QUO 

4447 =11 10 [TO]_[TO]+Q, ; POSITIVE QUO 

4448 J/DDIV5B ; CONTINUE BELOW 

4449 [T0]_-0*2 ; NEGATIVE QUO 

4450 AD/-D-.25, DBUS/RAM , 3T , 

4451 RAMADR/AC#, DEST/Q__AD, 

4452 MULTI PREC/1 

4453 AC_0, SKIP AD.EQ.O 

4454 =0 AC[1]_[T0], J/DDIV5C 

4455 AC[1]_0, J/DDIV6 
4456 

4457 DDI V5B : AC [ 1 ]_[ TO] . AND . [MAG] , J/DDIV6 ;STORE LOW WORD IN + CASE 
4458 

4459 DDI V5C : [ TO]_jTO] . OR . # , #/400000, HOLD RIGHT 

4460 AC[ 1 ]_[T0] 
4461 

4462 DDI V6 : READ [AR], SKIP DPO ; LOOK AT AR SIGN 

4463 =0 

4464 DDI V7 : Q_[ARX], J/DDIV8 

4465 Q_[ARX]+[BRX] 

4466 [AR]_[AR]+[BR] , 

4467 MULTI PREC/1 

4468 Q_Q+[BRX] 

4469 [AR]*_[AR] + [BR] , 

4470 MULTI PREC/1 

4471 DDI V8 : READ [T1], 3T , DISP/DP 

4472 =1101 

4473 DDI V8A : [AR]_[AR]*2 LONG, ASHC, ;POSITIVE REMAINDER 

4474 J/DDIV9 ;CONTINUE BELOW 

4475 Q_-Q ; NEGATE REMAINDER IN AR ! Q 

4476 [AR]__(-[AR]-.25)*2 LONG, 

4477 MULTI PREC/1, ASHC 
4478 



T10KL. McR[ 10, 1141] 
SIMPLE . MIC [ 10, 1141] 



15:34 27-JULY-1984 
15:31 27-JULY-1984 



MICRO 31(254) 



U 3033, 1262,01 13,0303, 1 1 74 , 4007 , 052 1 , 0400 , 0000 , 1442 

U 1262, 0100,4003,0000,1174,4156,4700,0400,0000,1443 

U 1 263 , 3034 , 4002 , 0000 ,1174, 4007 , 0700 , 0000 , 0000 ,1443 

U 3034, 0100,7003,0000,1174,4156,4700,0400,0000,1443 



U 0033 , 3053 , 4443 , 0000 , 4 1 7.4 , 4007 , 0700 , 00 1 , 0000 , 0000 
U 0037, 0603,4443,0000,4174,4467,0700,0000,0051,1000 

U 3035, 0001,3446,0303,4174,4044,1700,0000,0000,0000 



4479 
4480 
4481 
4482 
4483 
4484 
4485 
4486 
4487 
4488 
4489 
4490 
4491 
4492 
4493 
;4494 
;4495 
;4496 
4497 
4498 
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DDI V9 : AC[2]_[AR]+[AR] , 3T , 

SKIP DPO 
=0 AC[3]_Q. AND. [MAG] , 

NEXT INST 

0_Q . AND . [MAG] , AC[3] 
AC[3]_[MAG] . EQV.Q, 
NfeXT INST 



; HERE IF WE WANT TO SET NO DIVIDE 
=11011 



NODDIV: CALL [ QDNEG] 
NO DIVIDE 



;FIXUP AC TO AC+3 
; ABORT DIVIDE 



DDIVS: [AR]_[AR]*.5 LONG, ASHC, RETURN [1] 
. I FNOT/ FULL 
1627 : 

DDIV: UUO 
. ENDI F/FULL 



T10KL.MCR[ 10, 1 141 ] 
SIMPLE . MIC [ 10, 1 141 ] 



15:34 27-UULY-1984 
15:31 27-JULY-1984 



MICRO 31( 



U 0370 , 3036 , 4662 , OOOO , 4374 , 0007 , 0700 , OO 1 O , 0037 ,7777 

U 0374, 0002,4443,0000,4174,4004, 1700, 0000, OQOO, 0000 

U 0375, 0002,2222,0000,4174,4004,1700,4000,0000,0000 

U 0376, 0377,2222,0000,4174,4007,0700,4000,0000,0000 

U 0377, 0002,2441,0303,4174,4004,1700,4000,0000,0000 



v. y 
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4499 .TOC "ARITHMETIC DIVIDE SUBROUTINE" 

4500 

4501 ; HERE IS THE SUBROUTINE TO DO DIVIDE 

4502 ; ENTER WITH: 

4503 ; AR!0 = D'END 

4504 ; BR = D'SOR 

4505 ; RETURN 2 WITH: 

4506 ; AR = REMAINDER 

4507 ■ = QUOTIENT 

4508 ; CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL 

4509 ; 

4510 =1000 

4511 DIVSUB: Q_O.AND.#, ; CLEAR SIGN BIT IN 

4512 #/377777, ; MASK 

4513 HOLD RIGHT, ; JUST CLEAR BIT O 

4514 CALL [DIVSGN] ;D0 REAL DIVIDE 

4515 =1100 RETURN [2] ; ALL POSITIVE 

4516 =1101 Q__-Q, RETURN [2] ; - QUO + REM 

4517 =1110 Q_-Q ; ALL NEGATIVE 

4518 =1111 [AR]_-[AR], RETURN [2] ; NEGATIVE REMAINDER 
4519 



o 

; T10KL.M€R[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; SIMPLE. MICE 10, 1 141 ] 15:31 27-JULY-1984 



U 3036 , 1 264 , 3333 , 0003 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 1 264 , 3040 ,4221, 0004 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1 265 , 1 266 , 2222 , 0000 ,4174, 4007 , 062 1 , 4000 , 0000 , 0000 

U 1 266 , 3037 , 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1 267 , 3037 , 244 1 , 0303 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 



U 3037, 
U 3040, 



3O40 ,3771, 0004 , 4374 , 4007 , 0700 , 0000 , 00 1 O , 0000 
1 270 , 3333 , 0005 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 



U 1 270 , 3042 , 3446 , 0303 ,4174, 4007 , 0700 , 0000 , 0000., 0000 

U 1271, 304 1 , 244 1 , 0505 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 

U 3041 , 1270,3551 ,0404,4374,4007,0700,0000,0004,0000 

U 3042 , 3043 , 3447 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 ,'0000 

U 3043, 3044,3447,0505,4174,4007,0700,0000,0000,0000 

U 3044 , 3045 , 3447 , 0505 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3045, 1272, 1 1 1 4 , 0503 , 4 1 74 , 4067 , 0630, 6000 , 0060 , 0000 



U 1272, 1272,0114, 0503 ,4174, 4067 , 0630. , 2 1 00 , 0060 , 0000 
U 1273, 3046,3444,1717,4174,4067,0700,0100,0000,0000 
U 3046 , 1 274 , 3447 , 0303 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 



U 1 274 , 3047 , 3444 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1275, 1274,01 1 1 ,0503,4174,4007,0700,0000,0000,0000 

U 3047 , 3050 , 3444 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3050, 3051,4002,1200,4174,4007,0700,0000,0000,0000 



U 3051, 0014,3333,0004,4174,4000,1701,0000,0000,0000 



1(254) 
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4520 
4521 
4522 
4523 
4524 
4525 
4526 
4527 
4528 
4529 
4530 
4531 
4532 
4533 
4534 
4535 
4536 
4537 
4538 
4539 
4540 
454 1 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 



HERE IS THE INNER DIVIDE SUBROUTINE 
SAME SETUP AS DIVSUB 

RETURNS WITH AR AND POSITIVE AND 

14 IF ALL POSITIVE 

15 IF -QUO 

16 IF ALL NEGATIVE 

17 IF NEGATIVE REMAINDER 

BASIC DIV STEP "DEST/Q_Q*2 , DIV, A/BR , B/AR, STEP SC" 
DIV STEP "BASIC DIV STEP, AD/A+B , DIVIDE/1" 

FIRST DIV STEP "BASIC DIV STEP, AD/B-A-.25, ADD .25" 



DIVSGN: 
= 



DVSUB1 
DVSUB2 
= 

DVSUB3 



READ [AR] , SKIP DPO 

[ARX]_0, J/DVSUB2 REMAINDER IS POSITIVE 

Q_-Q, SKIP AD.EQ.O ; COMPLEMENT LOW WORD 

[ AR ]_. NOT . [ AR ] , J/DVSUB 1 ; COMPLEMENT HI WORD 
[AR]_-[AR] 



[ARX]_#, #/ 100000 
READ [BR ] , SKIP DPO 



[AR3_[AR3*.5 LONG, 
J/DIVSET 
[BR3_-[BR3 
[ARX3_[ARX3 . OR . # , 
#/40000, J/DVSUB3 
DIVSET: [AR3_[AR3*-5 
[BR]_[BR3*.5 
[BR3_[BR3*-5 
FIRST DIV STEP 
S THE MAIN DIVIDE LOOP 



TWO'S COMPLEMENT HI WORD SINCE 

LOW WORD WAS ZERO 
REMAINDER IS NEGATIVE 
IS THE DIVISOR NEGATIVE 

; START TO PUT IN 9-CHIPS 
,-JOIN MAIN STREAM 
COMPLEMENT DIVISOR 
;ADUUST SIGN OF QUOTIENT 
;USE 9 CHIPS 



; HERE I 
=0 

DIVIDE : 



=0 

FIX++ : 



FIX1++: 



DIV STEP, J/DIVIDE 

[T1 ]_[T1 ]*2 LONG, DIVIDE/1", DIV 

[AR]_[AR3*-5, SKIP DPO 

[AR3__[AR3*2 LONG, J/FIX1++ 
[AR3_[AR3+[BR3 , U/FIX++ 
[AR3_[AR3*2 LONG 
CM MASK 3 . AND . Q 



READ [ARX3, 3T, 

DISP/1 , 

J/14 



RETURN TO 1 OF 4 PLACES 
BASED ON SIGN OF RESULT 
RETURN 



T10KL . MCR[ 10,1141] 15:34 ' 27- JULY- 1984 MICRO 31(254) 

SIMPLE. MIC[10, 11411 15:31 27-JULY-1984 
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U 1276, 3052, 1 1 14,0604,4174,4057,0700,4000,0000,0000 

U 1277, 3052 ,0114, 0604 ,4174, 4057 ,0700 , 0000 , 0000 , 0000 

U 3052 , 1 300 ,0115, 0503 ,4174, 4007 , 06 30 , 2040 , 0060 , 0000 

U 1 300 , 305 2,0114, 0604 ,4174, 406 7-, 0700 , 1 00 , 0000 , 0000 

U 1301, 0002,4444,0002,4174,4064,1700,0100,0000,0000 



4564 .TOC "ARITHMETIC DOUBLE DIVIDE SUBROUTINE" 

4565 .IF/FULL 

4566 ; CALL WITH: 

4567 ; AR ! ARX ! Q = 3 WORD DV'END 

4568 ; BR ! BRX = 2 WORD DV'SOR 

4569 ; RETURN 2 WITH: 

4570 ; AR ! ARX = 2 WORD REMAINDER 

4571 ; CORRECT IF POSITIVE (Q IS ODD) 

4572 ; WRONG (BY BR ! BRX ) IF NEGATIVE (0 IS EVEN) 

4573 ; =1 WORD QUOTIENT 

4574 ; CALLER MUST CHECK FOR ZERO DIVIDE PRIOR TO CALL 

4575 ; 

4576 ; NOTE : THIS SUBROUTINE ONLY WORKS FOR POSITIVE NUMBERS 

4577 ; 

4578 =0 

4579. ; HERE FOR NORMAL STARTUP 

4580 DBLDIV: [ ARX }_( [ ARX ] - [ BRX ] ) *2 LONG, ; SUBTRACT LOW WORD 

4581 LSHC, J/DIVHI ;G0 ENTER LOOP 

4582 ;SKIP ENTRY POINT IF FINAL STEP IN PREVIOUS ENTRY WAS IN ERROR 

4583 [ARX3_([ARX]+[BRX})*2 LONG, ;CORRECTION STEP 

4584 LSHC, J/DIVHI ; GO ENTER LOOP 
4585 

4586 ; HERE IS DOUBLE DIVIDE LOOP 

4587 DIVHI: AD/A+B, ; ADD (HARDWARE MAY OVERRIDE) 

4588 A/BR, B/AR, ; OPERANDS ARE AR AND BR 

4589 DEST/AD*2, ; SHIFT LEFT 

4590 SHSTYLE/NORM, ;SET SHIFT PATHS (SEE DPE1) 

4591 MULTI PREC/1, ; INJECT SAVED BITS 

4592 STEP SC ; COUNT DOWN LOOP 

4593 =0 AD/A+B, ; ADD (HARDWARE MAY OVERRIDE) 

4594 A/BRX, B/ARX, ; LOW WORDS 

4595 DEST/0__Q*2, ; SHIFT WHOLE MESS LEFT 

4596 SHSTYLE/DI V , ; SET SHIFT PATHS (SEE DPE1) 

4597 DIVIDE/1, ; SAVE BITS 

4598 J/DIVHI ; KEEP LOOPING 

4599 ; HERE WHEN ALL DONE 

4600 DEST/Q__Q*2, DIV, ; SHIFT IN LAST BIT 

4601 DIVIDE/1, ; GENERATE BIT 

4602 B/HR, RETURN [2] ; ZERO HR AND RETURN 
4603 



\ 



o. 



T10KL.MCR[ 10, 1 141 3 
SIMPLE . MIC[ 10, 1141] 



15:34 27-JULY-1984 
15:31 27-JULY-1984 



U 3053, 

U 3054, 

U 1302, 
U 1303, 



3054, 1772, 

1 302 , 4003 , 

3057,7772, 
3055, 1772, 



0000, 

OOOO, 

0000, 
0000, 



1274, 

1 174, 

1274, 
1274, 



4007, 

4007, 

4007, 
4007. 



0701 

0621 

0701 
0701 



4000, 

0400, 

0000, 
4000, 



0000, 

0000, 

0000, 
0000, 



1443 

1443 

1442 
1442 



U 3055 , 1 304 , 4003 , 0000 ,1174, 4007 , 062 1 , 0400 , 0000 , 1 442 



U 1304, 
U 1305, 



3060,7772, 
3056, 1772, 



0000, 
0000, 



1274, 
1274, 



4007, 
4007, 



0701 
0701 



0000, 
4000 , 



0000, 
OOOO, 



1441 
1441 



U 3056 , 1 306 , 4003 , OOOO ,1174, 4007 , 062 1 , 0400 , OOOO ,1441 



U 1306, 
U 1307, 

U 3057, 
U 3060, 
U 306 1 , 



3061 ,7771 , 
3061 , 1771 , 

1304,4003, 
1 306 , 4003 , 
0024,3440, 



0003, 
0003, 

OOOO, 
OOOO, 
0303, 



0274, 
0274, 

1 174, 
1 174, 
0174, 



4007, 
4007, 

4007, 
4007, 
4004, 



0700, 
0701 , 

0700, 
0700, 
1700, 



OOOO, 
4000, 

0400, 
0400, 
0400, 



OOOO, 
OOOO, 

OOOO, 
OOOO, 
OOOO, 



U 3062, 3063,4551 , 0404 , 4374 , 0007 , 0700,0000, 0037 , 7777 

U 3063 , 1310, 244 1 , 0404 ,4174, 4007 , 062 1 ,4000 , OOOO , OOOO 

U 1310, 2236,7441 ,0303,4174,4467,0700,0000,0001 ,0001 

U 1311, 2236,2441,0303,4174,4467,0701,4000,0001,0001 



U 3064, 1312,2441 ,0404,4174,4007,0621 ,4000,0000,0000 
U 1312, 2236 , 744 1 , 0303 , 4174 , 4007 , 0700 , OOOO , OOOO , OOOO 
U 1313, 2236 , 244 1 , 0303 ,4174, 4007 , 0700, 4000 , OOOO , OOOO 



MICRO 31(254) 



4604 

4605 

4606 

4607 

4608 

4609 

4610 

461 1 ' 

4612 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 

4622 

4623 

4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

'4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 



OOOO 
OOOO 

1442 
1441 
OOOO 
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.TOC 



'ARITHMETIC 



SUBROUTINES FOR ARITHMETIC" 



; QUAD WORD NEGATE 

.-ARGUMENT IN AC ! AC 1 ! AC2 ! AC3 

; LEAVES COPY OF AC ! AC 1 IN AR!Q 

; RETURNS TO CALL! 24 



ODNEG: 



=0 

C0M2A : 



=0 

COM 1 A : 



=0 

COMOA : 



Q_-AC[3] 
AC[3J_Q. AND. [MAG] , 
SKIP AD.EQ.O 

Q_.NOT. AC[2] , ' J/C0M2 
0_-AC[2] 

AC[2]_Q. AND. [MAG] , 
SKIP AD.EQ.O 

Q_.NOT. AC[ 1 ] , J/C0M1 
Q_-AC[1] 

AC[ 1 ]_Q. AND. [MAG] , 
SKIP AD.EQ.O 



;PUT BACK LOW WORD 
;SEE IF ANY CARRY 

CARRY - -DO 1'S COMPLEMENT 
NEXT WORD 
PUT BACK WORD 



[AR] 

[ART 



.NOT. AC, 
-AC, 3T, 



J/COMO 
J/COMO 



AC[2]_Q. AND. [MAG] , J/C0M1A 
AC[ 1 ]_Q. AND. [MAG] , J/COMOA 
AC_[AR], RETURN [24] 



COM2 
C0M1 
COMO 

. ENDI F/FULL 

DOUBLE WORD NEGATE 
ARGUMENT IN AR AND ARX 
RETURNS TO CALL! 2 

DBLNEG: CLEAR ARXO 
DBLNGA: [ARX]_-[ARX] , 

SKIP AD. EQ.O 
=0 [AR]_.NOT. [AR] , 

AD FLAGS, J/CLARXO 

[AR]_-[AR] , 

AD FLAGS, 3T, J/CLARXO . 



FLUSH DUPLICATE SIGN 

FLIP LOW WORD 

SEE IF CARRY 

NO CARRY-- 1 COMP 

CLEAR LOW SIGN 

CARRY 



; SAME THING BUT DOES NOT SET PC FLAGS 
DBLNG1: [ ARX ]_- [ ARX ] , SKIP AD.EQ.O 
=0 [ AR ]_. NOT . [ AR ] , J/CLARXO 

[AR]_-[AR] , J/CLARXO 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 

SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 
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4649 
4650 
4651 
4652 
4653 
4654 
4655 
4656 
4657 
4658 
4659 
4660 
4661 
4662 
4663 
4664 
4665 
4666 
4667 
4668 
4669 
4670 
4671 
4672 
4673 
4674 
4675 
4676 
4677 
4678 



.TOC 



. NOB IN 
"BYTE GROUP 



IBP, ILDB, LDB, IDPB, DPB " 



ALL FIVE INSTRUCTIONS OF THIS GROUP ARE CALLED WITH THE BYTE POINTER 
IN THE AR. ALL INSTRUCTIONS SHARE COMMON SUBROUTINES. 

IBP OR ADJBP 

IBP IF AC#0, ADJBP OTHERWISE 
HERE WITH THE BASE POINTER IN AR 

HERE IS A MACRO TO DO IBP. WHAT HAPPENS IS: 
THE AR IS PUT ON THE DP. 

THE BR IS LOADED FROM THE DP WITH BITS 0-5 FROM SCAD 
THE SCAD COMPUTES P-S 

IBPS IS CALLED WITH A 4-WAY DISPATCH ON SCADO AND FIRST-PART-DONE 
THE MACRO IS WRITTEN WITH SEVERAL SUB-MACROS BECAUSE OF RESTRICTIONS 
IN THE MICRO ASSEMBLER 



IBP DP 
IBP SCAD 
IBP SPEC 
CALL IBP 



"AD/D, DEST/A, A/AR, B/BR , DBUS/DBM, DBM/DP , BYTE/BYTE 1 " 
"SCAD/A-B, SCADA/BYTE1, SCADB/SIZE" 
"SCAD DISP, SKIP FPD " 

"IBP DP, IBP SCAD, IBP 'SPEC, CALL [IBPS], DT/3T" 



SET P TO 36-S "AD/D, DEST/A, A/BR..B/AR, DBUS/DBM, DBM/DP, SCAD/A-B, SCADB/SIZE , BYTE/BYTE1 , SCADA/PTR44 ' 

; THE FOLLOWING MACRO IS USED FOR COUNTING SHIFTS IN THE BYTE ROUTINES. IT 
; USES THE FE AND COUNTS BY 8. NOTE: BYTE STEP IS A 2S WEIGHT SKIP NOT 1S. 
BYTE STEP "SCAD/A+B, SCADA/S#,S#/1770,SCADB/FE f LOAD FE, 3T , SCAD DISP" 



n 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY- 1984 MICRO 

SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 



D 0133, 0015, 1610, 1 100 
D 0134, 0000,1620,1500 



D 0135, 0000,1624,1100 
D 0136, 0000,1630,1500 
D 0137, 0000,1634,1100 



U 1610, 0240,4443,0000,4174,4007,0360,0000,0000,0000 

U 0240 , 3122, 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 ,0223 

U 0241, 0350,3770,0305,4334,4016,7351,0010,0033,6000 

U 0245, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



U 1620, 0350,3770,0305,4334,4016,7351,0010,0033,6000 



U 1624, 3072,3333,0003,4174,4217,0701 , 1010,0073,0500 
U 1625, 0414,3443,0100,4174,4007,0700,0200,0014,0012 



U 0414, 0340,3333,0003,4174,4006,5701,1010,0051,0770 

U 0416, 0603,3440,0303,0174,4467,0700,0400,0005,0000 

U 1630, 0350,3770,0305,4334,4016,7351,0010,0033,6000 

U 1634, 3065,3775,0004,0274,4007,0701,0000,0000,0000 



U 3065, 3066,3443,0400,4174,4007,0701,1000,0077,0000 
U 3066, 0264,3771,0004,0276,6007,0700,0000,0000,0000 



U 0264 , 3072 , 3333 , 0003 ,4174,4217, 0700 , OO 1 , 0000 , 0500 



U 0265, 
U 0267, 



0360 , 3333 , 0003 ,4174, 4006 , 570 1 , 00 1 , 0000 , 0000 
1 400 , 4443 , 0000 ,4174, 4467 , 0700 , 0000 , 0005 , 0000 
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4679 
4680 
4681 
4682 
4683 



133 : 

134 : 



.BIN 

. DCODE 

R, AC, 

R,W TEST, 



J/IBP 
J/ILDB 



;0R ADJBP 

;CAN'T USE RPW BECAUSE OF FP 



4684 R, J/LDB 

4685 R,W TEST, J/IDPB 

4686 R, J/DPB 

4687 .UCODE 

4688 1610: 

4689 IBP: SKIP IF ACO ;SEE IF ADJBP 

4690 =000 WORK[ADJPTR]_[AR] , ; SAVE POINTER 

4691 J/ADJBP ;G0 ADJUST BYTE POINTER 

4692 =001 CALL IBP ; BUMP BYTE POINTER 

4693 =101 DONE ;POINTER STORED 

4694 = 
4695 

4696 1620: 

4697 ILDB: CALL IBP ; BUMP BYTE POINTER 

4698 1624: 

4699 LDB: READ [AR], ; LOOK AT POINTER 

4700 LOAD BYTE EA, FE_P, 3T , ; GET STUFF OUT OF POINTER 

4701 CALL [BYTEA] ^COMPUTE EFFECTIVE ADDRESS 

4702 1625: VMA_[PC], FETCH ; START FETCH OF NEXT INST 

4703 =0* READ [AR], ; LOOK AT POINTER 

4704 FE_FE . AND . S# , S#/0770, ; MASK OUT JUNK IN FE 

4705 BYTE DISP, ;DISPATCH ON BYTE SIZE 

4706 CALL [ LDB 1 ] ; GET BYTE 

4707 AC_[AR], CLR FPD, ;STORE AC 

4708 J/NIDISP ;G0 DO NEXT INST 
4709 

4710 1630: 

4711 IDPB: CALL IBP ; BUMP BYTE POINTER 

4712 1634: 

4713 DPB: [ARX]_AC*2 ; PUT 7 BIT BYTE IN 28-34 

4714 AD/A, A/ARX, SCAD/A, ; PUT THE BYTE INTO 

4715 SCADA/BYTE5, 3T , ; INTO THE FE REGISTER 

4716 LOAD FE ; FE REGISTER 

4717 [ARX]_AC ; PUT BYTE IN ARX 

4718 =100 READ [AR], ; LOOK AT BYTE POINTER 

4719 LOAD BYTE EA, ; LOAD UP EFFECTIVE ADDRESS 

4720 CALL [BYTEA] ;COMPUTE EFFECTIVE ADDRESS 

4721 READ [AR], ; LOOK AT POINTER AGAIN 

4722 BYTE DISP, ;DISPATCH ON SIZE 

4723 CALL [DPB 1 ] ; GO STORE BYTE 

4724 =111 CLR FPD, J/DONE ; ALL DONE 



4725 = 
4726 



T10KL.MCR[ 10, 1 141 3 15:34 27-JULY-1984 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



MICRO 



U 0350 , 3070 , 344 1 , 0503 ,4174, 4007 , 0700 , 0200 , 0003 , 0002 

U 0351, 0004,4443,0000,4174,4004,1700,0000,0000,0000 

U 0352 , 3067 , 3770 , 0503 , 4334 ,4017, 0700 , 0000 , 0032 , 6000 

U 0353, 0004,4443,0000,4174,4004,1700,0000,0000,0000 



U 3067, 3070,0111,0703,4170,4007,0700,0200,0003,0002 
U 3070, 0004,3333,0003,4175,5004,1701,0200,0000,0002 



U 3071, 0070,4443,0000,2174,4006,6700,0000,0000,0000 

U 3072, 0070,4443,0000,2174,4466,6700,0000,0003,0000 

U 0070 , 3074 , 0553 , 0300 , 2274 ,4007 , 0700 , 0200 , 0004 , 07 1 2 

U 0072, 3074,3443,0300,4174,4007,0700,0200,0004,0712 

U 0074, 3073,0553,0300,2274,4007,0700,0200,0004,0512 

U 0076, 3073,3443,0300,4174,4007,0700,0200,0004,0512 

U 3073, 3071,3771,0003,4361,5217,0700,0200,0000,0502 

U 3074, 0001,4551,1205,4365,5004,1700,0200,0000,0002 
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4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
4773 * 



.TOC 

=00 
IBPS: 



NXTWRD : 
IBPX: 



'BYTE GROUP INCREMENT BYTE POINTER SUBROUTINE" 



[ AR ]_[BR ] , START WRITE, J/IBPX 
RETURN [43 

SET P TO 36-S, J/NXTWRD 
RETURN [4] 



NO OVERFLOW, BR HAS ANSWER 
FIRST PART DONE SET 
WORD OVERFLOW 

FPD WAS SET IGNORE OVERFLOW 
AND RETURN 



[AR3_[AR3+1, HOLD LEFT, START WRITE 
MEM WRITE, MEM_[AR3, RETURN [43 



;BUMP Y AND RETURN 



.TOC 



"BYTE GROUP BYTE EFFECTIVE ADDRESS EVALUATOR" 



; ENTER WITH POINTER IN AR 
; RETURN 1 WITH (EA) IN VMA 
BYTEAS: EA MODE DISP, 

J/BYTEAO 
BYTEA: SET FPD, 

EA MODE DISP 

= 100* 

BYTEAO: VMA_-[ AR 3 +XR , 
START READ, 
PXCT BYTE DATA, 
J/BYTFET 
VMA_[AR3 , 
START READ, 
PXCT BYTE DATA, 
d/BYTFET 
VMA_[AR3+XR, 
START READ, 
PXCT BYTE PTR EA, 
U/BYTIND 
VMA_[AR3 , 
START READ, 
PXCT BYTE PTR EA 
MEM READ, 
[ AR 3_MEM , 
HOLD LEFT, 
LOAD BYTE EA, 
U/BYTEAS 

MEM READ, 

[BR3_MEM. AND. MASK, 
RETURN [13 



BYTIND: 



BYTFET: 



AND WORD IN BR 

HERE TO AVOID FPD 
GO COMPUTE EA 
SET FIRST-PART-DONE 
DISPATCH 



INDEXING 

FETCH DATA WORD 

FOR PXCT 

GO WAIT 

PLAIN 

START CYCLE 
FOR PXCT 
GO WAIT 
BOTH 

START CYCLE 

FOR PXCT 

GO DO INDIRECT 

JUST 9 

START READ 

FOR PXCT 

WAIT FOR @ WORD 

PUT IN AR 

JUST IN RH (SAVE P & S) 
LOOP BACK 



WAIT FOR BYTE DATA 

WORD. UNSIGNED 
RETURN TO CALLER 



T10KL>,wR[ 10, 1141] 
SIMPLE . MIC[ 10, 1 141 ] 



15:34 27-JULY-1984 
15:31 27-JULY-1984 



MICRO 



U 0340, 0410,4443,0000,4174,4006,7701,0000,0031,0210 



U 0341, 3075,3770,0505,4334,4057,0700,0000,0073,0000 

U 0342 , 3075 , 3770 , 0505 , 4334 , 4057 , 0700 , 0000 , 0074 , 0000 

U 0344, 3075,3770,0505,4334,4057,0700,0000,0075,0000 

U 0345 , 3075 , 3770 , 0505 , 4334 , 4057 , 0700 , 0000 , 0076 , 0000 

U 0347 , 3075 , 3770 , 0505 , 4334 , 4057 , 0700 , 0000 , 0077 , 0000 



U 3075, 0002,4257,0503,4374,4004,1701,0000,0000,0376 



254) 
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4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4793 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4804 
4805 
4806 



. TOC 



"BYTE GROUP -- LOAD BYTE SUBROUTINE" 



CALL WITH: 

WORD IN BR 

POINTER IN AR 

P IN FE 

BYTE DISPATCH 
RETURN2 WITH BYTE IN AR 
LDB SCAD "SCAD/A, BYTE/BYTE5" 

7 -B IT LDB " AD/D , DBUS/DBM , DBM/DP , DEST/A , A/BR , B/BR , 



LDB SCAD 



=000 
LDB 1 : 



GEN 17-FE, 
SCAD DISP, 
J/LDBSWP 



3T, 



GO SEE IF ALL THE BITS 

ARE IN THE LEFT HALF 
GO TO LDBSWP & SKIP IF LH 



; HERE ARE THE 7-BIT BYTES 



=001 
=010 
= 100 
= 101 
= 111 



7-BIT LDB, 
7-BIT LDB, 
7-BIT LDB, 
7-BIT LDB, 
7-BIT LDB, 



SCADA/BYTE 1 , J/LDB7 

SCADA/BYTE2 , J/LDB7 

SCADA/BYTE3, J/LDB7 

SCADA/BYTE4 , J/LDB7 

SCADA/BYTE5, J/LDB7 



;FOR 7-BIT BYTES WE HAVE BYTE IN BR 28-35 AND JUNK IN REST OF BR 
; WE JUST MASK THE SELECTED BYTE AND SHIFT ONE PLACE RIGHT. 



LDB7 : AD/ZERO, RSRC/DA, 

DBUS/DBM , DBM/ # , ff / 376 , 

A/BR, 

B/AR, 

DEST/AD*.5, 3T, 
RETURN [2] 



LH_ZERO, RH_D. AND. A 
D INPUT IS 376 
A IS BR 

PUT RESULT IN AR 
SHIFT RESULT 1 PLACE 
RETURN TO CALLER 



T10KL.MCR[ 10, 1 141 3 15 : 34 27-dULY- 1984 MICRO 

SIMPLE . MIC [ 10, 1 141 ] 15:31 27-JULY-1984 



U 0410, 3077,4443,0000,4174,4007,0700,1000,0031,0000 
U 04 1 2 , 3076 , 3770 , 0505 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 



U 3076, 3077,4221,0005,4174,0007,0700,1000,0031,0220 



U 3077, 3100,3447,0505,4174,4007,0700, 1020,0041 ,0010 
U 3100, 3101,3333,0003,4174,4007,0700,1000,0031,7770 
U 3101, 3 102 , 4222 , 0000 , 4 1 74 , 4007 , 0700, 0000, 0000, 0000 



U 3102, 3103,4224,0003,4174,4027,0700, 1020,0041 ,0010 
U 3 103 , 3 104 , 4224 , 0003 , 4 1 74 , 4027 ,0700 , 0000 , 0000 , 0000 
U 3104, 0002,4001,0503,4174,4004,1700,0000,0000,0000 



r 



254) 
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4807 ; HERE FOR NORMAL BYTES 

4808 =00 

4809 LDBSWP: FE_-FE, 

4810 J/LDBSH 

4811 =10 [BR3_[BR3 SWAP 

4812 = 

4813 [BR]_0, HOLD RIGHT, 

4814 FE_-FE+S#, S#/220 

4815 LDBSH: [ BR ]_[BR 3 * . 5 , 

4816 FE_FE+10, 

4817 MULTI SHIFT/1 

4818 READ [AR3, FE__-S-10 

4819 0_0 

4820 GEN MSK [ AR 3 , 

4821 FE_FE+10, 

4822 MULTI SHIFT/1 

4823 GEN MSK [ AR 3 

4824 [AR3_[BR3 . AND.Q, RETURN 
4825 



; MAKE P NEGATIVE 
;JOIN MAIN LDB LOOP 
;SHIFT 18 STEPS 

;PUT ZERO IN LH 
; UPDATE FE 
; SHI FT RIGHT 
; UPDATE THE FE 
; FAST SHIFT 
; GET SIZE 
; CLEAR 

;PUT MASK IN (WIPEOUT AR) 

; COUNT UP ALL STEPS 

; FAST SHIFT 

;ONE MORE BIT 

[23 



T10KL.MCfc[ 10, 1 141 ] 
SIMPLE. MIC[ 10, 1 141] 



15:34 27- JULY- 1984 
15:31 27-JULY-1984 



MICRO 31(254) 



4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 
4857 
4858 
4859 
4860 
4861 
4862 
4863 
4864 
4865 
4866 
4867 



. NOBIN 

.TOG "BYTE GROUP -- DEPOSIT BYTE IN MEMORY " 

FLOW FOR DPB (NOT 7-BIT BYTE) 

FIRST SET ARX TO -1 AND Q TO ZERO AND ROTATE LEFT 
S PLACES GIVING: 

ARX Q 
+ | + 

! 1 1 1 1 1 1 1 1 1 1 1 100000010000000000001 11111! 
+ ---! + 

!< >! 

S BITS 



;N0W THE AC'MS LOAD INTO THE ARX AND BOTH THE ARX AND 
; ARE SHIFTEb LEFT P BITS GIVING: 

+ I + 

! ??????BBBBBBOOOOOO! 0000001 1111 1000000! 
+ „ j + 

< >< > < >< > 

JUNK BYTE MASK P BITS 



AT THIS POINT WE ARE ALMOST DONE. WE NEED TO AND 
THE BR WITH .NOT. Q TO ZERO THE BITS FOR THE BYTE 
AND AND ARX WITH TO MASK OUT THE JUNK THIS GIVES: 

ARX 

+ + 

! OOOOOOBBBBBBOOOOOO! 
+ j 

AR 

+ _ + 

! DDDDDDOOOOOODDDDDD ! 
• + + 

WE NOW OR THE AR WITH ARX TO GENERATE THE ANSWER. 



E V124, 27-JUL-84 Page 132 
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T10KL . MCR[ 10, 1 14 1 ] 15:34 27-JULY-1984 
SIMPLE . MIC [ 10, 1 141 3 15:31 27-JULY-1984 



MICRO 



U 0360, 3107,3333,0003, 

U 0361, 3105,3770,0503, 

U 0362, 3105,3770.0503, 

U 0364, 3105,3770,0503, 

U 0365, 3105,3770,0503, 

U 0367, 3105,3770,0503, 



4174,4007 
4334,4017 
4334,4027 
4334,4037 
4334,4047 
4334,4057 



0700, 1000, 
,0700,0000, 

0700,0000, 
,0700,0000, 
,0700,0000, 
, 0700 , 0000 , 



0031 ,7770 
004 1 ,0000 
004 1 , 0000 
004 1 , 0000 
004 1 , 0000 
004 1 , OOOO 



U 3105, 
U 3106, 



3 106 , 3447 , 1 200 ,4174, 4007 , 0700 , 0200 , 0003 , 0002 
0002 , 3333 , 0003 ,4175, 5004 , 1 70 1 , 0200 , 0000 , 0002 



U 3 1 07 , 3110,4222, 0000 ,4174, 4007 , 0700 , 0000 , 0000 , OOOO 



U 3110, 3111,4224,0000,4174,4027,0700,1020,0041,0010 

U 3111, 3112,4224,0000,4174,4027,0700,0000,0000,0000 

U 3112, 3113, 3333 , 0003 ,4174, 4007 , 070 1 , 1000 , 0073 , OOOO 

U 3113, 31 14,4443,0000,4174,4007,0700, 1000 , 005 1 , 0770 

U 3114, 31 15,4002, 1200,4174,4007,0700, 1 000 , 003 1 , OOOO 



U 31 15, 31 16,3444,0404,4174,4007,0700, 1020,0041 ,0010 



U 31 16, 31 17,7221 ,0003,4174,4007,0700,0000,0000,0000 

U 3117, 3120,4111,0503,4174,4007,0700,0000,0000,0000 

U 3120, 3121,4001,0404,4174,4007,0700,0000,0000,0000 

U 3121, 3105,3111,0403,4174,4007,0700,0000,0000,0000 



254) 



4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
4882 
4883 
4884 
4885 
4886 
4887 
4888 
4889 
4890 
4891 
4892 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 
4904 
4905 
4906 
4907 
4908 
4909 
4910 
491 1 
4912 
4913 
4914 
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.BIN 

;DEP0SIT BYTE SUBROUTINE 
; CALL WITH: 

; • BYTE POINTER IN AR 

; BYTE TO STORE IN ARX 

; WORD TO MERGE WITH IN BR 

; (E) OF BYTE POINTER IN VMA 

; 7-BIT BYTE IN FE 

; BYTE DISPATCH 

; RETURN2 WITH BYTE IN MEMORY 

DPB SCAD "SCAD/A+B,SCADA/S#,SCADB/FE,S#/0 H 

7-BIT DPB "AD/D , DEST/ A , A/BR , DBUS/DBM , DBM/DP , B/AR , DPB SCAD" 

=000 

DPB 1 : READ [AR], FE_~S-10, U/DPBSLO ; NOT SPECIAL 

=001 7-BIT DPB, BYTE/BYTE 1, U/DPB7 

=010 7-BIT DPB, BYTE/BYTE2, J/DPB7 

=100 7-BIT DPB, BYTE/BYTE3, J/DPB7 

=101 7-BIT DPB, BYTE/BYTE4, J/DPB7 

=111 7-BIT DPB, BYTE/BYTE5, J/DPB7 

DPB7: [MAG]_[MASK]*.5, START WRITE 

MEM WRITE, MEM__[ AR 3 , RETURN [23 



DPBSLO: Q__0 

GEN MSK [MAG 3 , 

FE_FE+10, 

MULT I SHIFT/1 

GEN MSK [MAG 3 

READ [AR], 3T, FE_P 

FE_FE . AND . S# , S#/0770 

Q_0. AND, [MASK 3 , 

FE_-FE 

[ARX3_[ARX3*2 LONG, 
FE_FE+10, 
MULTI SHIFT/1 
; AT THIS POINT WE HAVE DONE AL 
; IN ARX AND THE MASK IS IN Q. 
[AR3_-N0T.Q 
[ AR 3_[ AR 3 - AND . [BR 3 
[ARX3„[ARX3 - AND.Q 
[ AR 3_[ AR ] .OR. [ ARX 3 , 
U/DPB7 



; CLEAR Q 

; GENERATE MASK IN Q (ZAP MAG) 

; COUNT STEPS 

; FAST SHIFT 

;ONE MORE BITS 

; AMOUNT TO SHIFT 

; MASK OUT JUNK 

; CLEAR BITS 36 AND 37 

; MINUS NUMBER OF STEPS 

; SHI FT BYTE AND MASK 

;COUNT OUT STEPS 

; FAST SHIFT 

THE SHIFTING WE NEED. THE BYTE IS 



o 

; T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULY-1984 



U 3122, 1314,3770,0304,4344,4007,0700,2000,0071 ,001 1 

U 1314, 1314, 3447 , 0404 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 
U 1315, 3123,4557,0404,4374,4007,0701,0000,0000,0176 



U 3123, 3124,3771,0004,4374,0007,0700,0000,0000,0000 
U 3124, 3125,3333, 0004 ,7174, 4007 , 0700 , 0400 , 0000 , 022 1 



U 3125, 3126,4557,0305,4374,4007,0701,0000,0000,7700 
U 3126, 3127, 3770 , 0505 , 4344 , 4007 , 0700 , 2000 , 007 1 , 0003 
U 3127, 1316, 4221, 0005 ,4174, 0007 , 0700 , 0000 , 0000 , 0000 



254) 



4915 
4916 
4917 
4918 
4919 
4920 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 
4930 
4931 
4932 
4933 
4934 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4954 
4955 
4956 
4957 
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TOC "BYTE GROUP ADJUST BYTE POINTER" 

IF/FULL 

FIRST THE NUMBER OF BYTES PER WORD IS COMPUTED FROM THE 
FOLLOWING FORMULA: 



BYTES PER WORD 



( P ) ( 36-P ) 

INT( --- ) + INT( ) 

( S ) ( S ) 



THIS GIVES 2 BYTES PER WORD FOR THE FOLLOWING 12 BIT BYTE: 
1==================================== 

! 6 !////////////! 12 ! 6 

1==================================== 

P= 18 AND S=12 

WE GET 3 BYTES/WORD IF THE BYTES FALL IN THE NATURAL PLACE: 



12 



! 12 !\\\\\\\\\\\\! 

I = = = = = = = = = = = = = = = = = = = = = = = = = = : 

P=12 AND S=12 

;WE COME HERE WITH THE BYTE POINTER IN AR, AND ADJPTR 



ADJBP : 
=0 

ADJBPO: 



[ARX]_[AR] SWAP, 
SC_9. 

[ARX]_[ARX]*.5, 
STEP SC, 
J/ADJBPO 

[ARX]__( [ARX] .AND.*)*. 5, 

3T, 

0/176 

[ARX]_#, 

#/0, 

HOLD RIGHT 
WORK[ADJP]_[ARX] 
[BR]_([AR] .AND.*)*. 5, 
3T, 

0/007700 

[ BR ]_[ BR ] SWAP, 

SC_3 

[BR]_0, 

HOLD RIGHT 



;MOVE SIZE OVER 
; READY TO SHIFT 

SHIFT P OVER 



SHIFT AND MASK 
WAIT 

6 BIT MASK 
CLEAR LH 



SAVE P 
START ON S 
EXTRACT S 

SHIFT 18 PLACES 

CLEAR LH 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 

SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 



MICRO 



U 1316, 1316, 3447 , 0505 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 

U 1317, 1 320 , 3333 , 0005 ,7174, 4007 , 062 1 , 0400 , 0000 , 02'22 

U 1320, 0660,3442,0400,4174,4007,0700,2000,0071,0042 

U 1321 , 1404,3771 ,0003,7274,4007,0701 ,0000,0000,0223 



U 0660, 0370,3771,0003,4374,4007,0700,0010,0000,0000 
U 0662 , 3 1 30 , 3223 , 0000 ,7174, 4007 , 0700 , 0400 , 0000 ,0224 



U 3 1 30 , 3131,3772, 0000 , 4370 , 4007 , 0700 , 0000 , 0000 , 0044 

U 3131, 3132,1662,0000,7274,4007,0701,4000,0000,0221 

U 3132, 3133,3771,0005,7274,4007,0701,0000,0000,0222 

U 3133, 0664,4443,0000,4174,4007,0700,2000,0071,0042 



U 0664, 0370,3771,0003,4374,4007,0700,0010,0000,0000 
U 0666, 3134,3333,0003,7174,4007,0700,0400,0000,0225 

U 3134, 3135,3771,0003,4374,4007,0700,0000,0077,7777 



U 3 1 35 , 1 322 , 066 1 , 0005 , 7274 , 4007 , 0622 , 0000 , 0000 , 0224 



U 1322, 0550,0662,0000,0274,4007,0522,2000,0071,0042 
U 1323, 0603,4443,0000,4174,4467,0700,0000,0051,1000 



V . J 



254) 



KS10 MICROCODE V124, 27-JUL-84 Page 135 
BYTE GROUP ADJUST BYTE POINTER 



4958 


=0 






4959 


ADJBP1 : 


[BR] [BR]*. 5, 


SHIFT S OVER 


4960 




STEP SC, 




4961 




J/ADJBP1 




4962 




WORK[ADJS] [BR], 


SALT S AWAY 


4963 




SKIP AD.EO.O 


SEE IF ZERO 


4964 


=0 


[ARX], 


DIVIDE P BY S 


4965 




SC 34. , 


STEP COUNT 


4966 




J/ADJBP2 


SKIP NEXT WORD 


4967'. 




[AR] WORK[ ADJPTR ] , J/MOVE ;S=0 SAME AS 


4968 


=0* 






4969 


ADJBP2: 


[AR] #, 


.FILL AR WITH SIGN BITS 


4970 




#/o, 


POSITIVE 


4971 




CALL [DIVSUB] 


GO DIVIDE 


4972 




W0RK[ADJQ1] Q 


SAVE QUOTIENT 


4973 




Q #, 


COMPUTE (36-P)/S 


4974 




#/36. , 




4975 




HOLD LEFT 


SMALL ANSWER 


4976 




0-W0RK[ADJP] 


SUBTRACT P 


4977 




[BR] WORK[ADJS] 


DIVIDE BY S 


4978 




SC 34. 


STEP COUNT 


4979 


=0* 


[AR] #, 


MORE SIGN BITS 


4980 




#/o, 




4981 




CALL [DIVSUB] 


GO DIVIDE 


4982 




W0RK[ADJR2] [AR] 


SAVE REMAINDER 


4983 




[AR] #, 


ASSUME NEGATIVE ADJ 


4984 




#/777777 


.EXTEND SIGN 


4985 




AD/D+Q, 


BR__(P/S) + ( (36-P)/S) 


4986 




DEST/AD, 




4987 




B-/BR , 




4988 




RAMADR/ # , 




4989 




DBUS/RAM , 




4990 




WORK/ AD JQ 1 , 




4991 




4T, 




4992 




SKIP AD.EO.O 


SEE IF ZERO 


4993 


=0 


Q+AC, 


GET ADJUSTMENT 


4994 




SC 34. , 


STEP COUNT 


4995 




SKIP DPO, 


GO DO DIVIDE 


4996 




4T, 


WAIT FOR DP 


4997 




J/ADJBP3 


BELOW 


4998 




NO DIVIDE 


BYTES/WORD 


4999 









T10KL.MCR[ 10, 1 141 ] 
SIMPLE . MIC [ 10, 1141] 



15:34 27-JULY-1984 
15:31 27-JULY-1984 



MICRO 



U 0550, 0551 ,3771 ,0003,4374,4007,0700,0000,0000,0000 

U 055t, 0370,3333,0005,7174,4007,0700,0410,0000,0226 

U 0553 , 3136,3772, 0000 , 4374 , 0007 , 0700 , 0000 , 0000 , 0000 

U 3 1 36 , 1324 , 3333 , 0003 ,4174, 4007 , 042 1 , 0000 , OOOO , 0000 



U 1324, 3140,0661,0005,7274,4407,0701,0000,0000,0223 
U 1325, 3137, 1002,0700,4170,4007,0700,4000,0000,0000 
U 3137, 1324,0551 ,0303,7274,4007,0701 ,0000,0000,0226 



254) 
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5000 
5001 
5002 
5003 
5004 
5005 
5006 
5007 
5008 
5009 
5010 
501 1 
5012 
5013 
5014 
5015 
5016 
5017 
5018 
5019 
5020 
5021 
5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5030 
5031 
5032 
5033 
5034 
5035 
5036 
5037 



WE NOW DIVIDE THE ADJUSTMENT BY THE BYTES PER WORD AND FORCE THE 
REMAINDER (R) TO BE A POSITIVE NUMBER (MUST NOT BE ZERO). THE 
QUOTIENT IS ADDED TO THE Y FIELD IN THE BYTE POINTER AND THE NEW 
P FIELD IS COMPUTED BY: 



( 

NEW P = 36-((R 
( 



* S) + RMDR ( 
( 



( 36-P )) 
-- )) 
S )) 



WE NOW HAVE BYTES/WORD IN BR AND ADJUSTMENT IN Q. 
WORDS TO ADJUST BY. 



DIVIDE TO GET 



=00 

ADJBP3 



[AR]_ 
#/0. 

WORK[ADJBPW]_[BR] , 
CALL [DIVSUB] 

;WE NOW WANT TO ADJUST THE 

= 1 1 Q_# , 

#/0, 

HOLD RIGHT 



•.POSITIVE ADJUSTMENT 

;SAVE BYTES/WORD & COMPUTE 
; ADJ/ (BYTES/WORD) 
REMAINDER SO THAT IT IS POSITIVE 
; ONLY RIGHT HALF 



READ [AR], 
SKIP AD.LE 



O 



=0 

ADJBP4 : 



AD/D+O, 
DEST/AD, 
B/BR, 
RAMADR/# , 
DBUS/RAM, 
WORK/AD JPTR, 
INH CRY 1 8 , 
3T, 

J/ADJBP5 
Q_Q-1 , 
HOLD LEFT 

[AR]_[AR]+WORK[ADJBPW] , 
J/ADJBP4 



; ALREADY + 



; ADD TO POINTER AND STORE 



; RESULT 
;PTR IS 



TO BR 
IN RAM 



;JUST RH 

;WAIT FOR RAM 

; CONTINUE BELOW 

; NO- -MAKE SMALLER 

•MAKE REM BIGGER 

;NOW HAVE + REMAINDER 



; T10KL.MCR[ 10, 1 141 ] 15:34 27- JULY- 19B4 MICRO 31(254) KS10 MICROCODE V124, 27-JUL-84 Page 137 

; SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 ' BYTE GROUP - - ADJUST BYTE POINTER 









5038 


ADJBP5 : 


[BRX] [AR] f 


; COMPUTE R*S 


u 


3140, 


3141, 344 1 , 0306 ,4174, 4007 , 0700 , 2000 , 007 1 , 0043 


5039 




SC 35. 


;STEP COUNT 


u 


3141 , 


0062 , 3772 , 0000 , 7274 , 4007 , 070 1 , 0000 , 0000 ,0222 


5040 




WORK[ADJS] 


, GET S 








5041 


=01* 


[BRX] [BRX]*. 5 LONG, 


; SHIFT OVER 


u 


0062, 


2773 , 3446 , 0606 ,4174, 4007 , 0700 , 0010 , 0000 , 0000 


5042 




CALL [MULSUB] 










5043 




AD/D+Q, 


■ AR_(R*S)+RMDR(36-P)/S 








5044 




D EST/ AD , 










5045 




B/AR, 










5046 




RAMADR/ # , 










5047 




3T, 










5048 




DBUS/RAM, 




u 


0066, 


3142,0661 ,0003,7274,4007,0701 ,0000,0000,0225 


5049 




WORK/ ADJR2 










5050 




[AR] (#-[AR] )*2, 1 


COMPUTE 36-AR 








5051 




3T, 


AND START LEFT 


u 


3142 , 


3 1 43 , 2555 , 0303 , 4374 , 4007 , 070 1 , 4000 , 0000 , 0044 


5052 




#/36 . 










5053 




[AR] [AR] SWAP, 


PUT THE POSITION BACK 


u 


3 143 , 


3144, 3770 , 0303 , 4344 , 4007 , 0700 , 2000 , 007 1 , 00 1 1 


5054 




SC 9. 










5055 




[AR] #, 


CLEAR JUNK FROM RH 








5056 




#/o, 




u 


3144, 


1 326 , 377 1 , 0003 , 4370 , 4007 , 0700, 0000 , 0000 , 0000 


5057 




HOLD LEFT 










5058 


=0 












5059 


ADJBP6: 


[AR] [AR]*2, 


LOOP OVER ALL BITS 








5060 




STEP SC, 




u 


1326, 


1 326 , 3445 , 0303 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 


5061 




J/ADJBP6 










5062 




[BR] [BR]. AND. #, 










5063 




#/007777, 




u 


1327, 


3145,4551, 0505 , 4374 , 0007 , 0700 , 0000 , 0000 ,7777 


5064 




HOLD RIGHT 










5065 




AC [AR] .OR. [BR] , 


ALL DONE 


u 


3145, 


1 400 ,3113, 0305 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 


5066 




J/DONE 










;5067 


. I FNOT/FULL 










;5068 














;5069 


ADJBP: 


UUO ;N0 ADJBP IN SMALL 








;5070 






; MICROCODE 








5071 


. ENDI F/FULL 










5072 









o 



T10KL.MCRC 10, 1141] 
SIMPLE. MIC[ 10, 1 141 ] 



15:34 27-JULY-1984 
15:31 27-JULY-1984 



MICRO 31(254) 
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5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5083 
5084 
5085 
5086 
5087 
5088 



.TOC 



. NOB IN 
"BLT " 



THIS CODE PROVIDES A GUARANTEED RESULT IN AC ON COMPLETION OF 
THE TRANSFER (EXCEPT IN THE CASE AC IS PART OF BUT NOT THE LAST WORD 
OF THE DESTINATION BLOCK). WHEN AC IS NOT PART OF THE DESTINATION 
BLOCK, IT IS LEFT CONTAINING THE ADDRESSES OF THE FIRST WORD FOLLOWING 
THE SOURCE BLOCK (IN THE LH) , AND THE FIRST WORD FOLLOWING THE DEST- 
INATION BLOCK (IN THE RH). IF AC IS THE LAST WORD OF THE DESTINATION 
BLOCK, IT WILL BE A COPY OF THE LAST WORD OF THE SOURCE BLOCK. 

IN ADDITION, A SPECIAL-CASE CHECK IS MADE FOR THE CASE IN WHICH EACH 
WORD STORED IS USED AS THE SOURCE OF THE- NEXT TRANSFER. IN THIS CASE, 
ONLY ONE READ NEED BE PERFORMED , AND THAT DATA MAY BE STORED FOR EACH 
TRANSFER. THUS THE COMMON USE OF BLT TO CLEAR CORE IS SPEEDED UP. 



T10KL.MCR[ 10, 1 141] 15:34 27-JULY-1984 

SIMPLE. MIC[ 10, 1141 ] 15:31 27-JULY-1984 



MICRO 



U 3146, 1 330 , 3770 , 0604 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 



U 1 330 , 3676 , 3443 , 0400 ,4174, 4007 , 0700 , 02 1 ,0004 , 07 1 2 

U 1331 , 3147,4221 ,0006,4174,0007,0700,0000,0000,0000 

U 3147, 3150,2112,-0306,4174,4007,0700,4000,0000,0000 

U 3150, 3151,0001,0705,4174,4007,0700,0000,0000,0000 

U 3151, 3 1 52 , 3770 , 0505 , 4344 , 0007 , 0700 , OOOO , 0000 , 0000 

U 3152, 3153,0551 ,0505,0274,4407,0701 ,0000,0000,0000 

U 3153, 0002,3771,0013,4370,4004,1700,0000,0000,0001 



D 0251, 0000,1640,2100 

U 1640, 31 46, 3771, 0006 , 0276 , 6007 , 0700 , 00 1 O , 0000 ,0000 

U 1642, 3675,3440,0505,0174,4007,0700,0410,0000,0000 

U 1643, 3154,0551,0405,4370,4007,0701,0000,0000,0001 

U 3154, 1332,2113, 0506 ,4174, 4007 , 033 1 , 4000 ,0000 , 0000 



U 1332, 



3157, 3443 , 0600 ,4174, 4007 , 0700 , 0200 , 0003 , 03 1 2 
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5089 .BIN 
5090 

5091 ; HERE TO SEJUP FOR A BLT/UBABLT 

5092 

5093 SETBLT: [ARX]_[BRX] SWAP ;C0PY TO ARX ( SRC IN RH) 

5094 =0 VMA_[ARX], ; ADDRESS OF FIRST WORD 

5095 START READ, 

5096 PXCT BLT SRC, 

5097 CALL [CLARXL] ; CLEAR THE LEFT HALF OF 

5098 [BRXJ_0, ; BOTH SRC AND DEST 

5099 HOLD RIGHT 

5100 Q_[ARJ-[BRX] ; NUMBER OF WORDS TO MOVE 

5101 [BR]_0+1 ; LENGTH +1 

5102 [ BR ]_[ BR ] SWAP, ;COPY TO BOTH HALFS 

5103 ■ HOLD RIGHT 

5104 [BR]_AC+[BR] , ; F INAL AC 

5105 INH CRY 1 8 ; KEEP AC CORRECT IF DEST IS 777777 

5106 STATE_[BLT] , RETURN [2] ;SET PAGE FAIL FLAGS 
5 L07 

5108 . DCODE 

5109 251: I, J/BLT 

51 10 .UCODE 
5111 

5112 1640: 

5113 BLT: [ BRX ]_AC , CALL [SETBLT] ; FETCH THE AC (DEST IN RH) 

5114 1642: AC_[BR], ; STORE BACK IN AC 

5115 CALL [LOADO] ; LOAD FIRST WORD INTO Q 

5116 1643: [ BR ]_[ ARX }+ 1000001 , ;SRC+1 

5117 3T, 

5118 HOLD LEFT 

^5119 [BRJ-[BRX], 3T, ;IS THIS THE CORE CLEAR CASE 

5120 SKIP ADR.EQ.O 

5121 =0 

5122 BLTLP1: VMA_[BRX], ; NO , GET DEST ADR 

5123 START WRITE, ; START TO STORE NEXT WORD 

5124 PXCT BLT DEST, ; WHERE TO STORE 

5125 J/BLTGO 
5126 

5127 ;SKIP TO NEXT PAGE IF CLEARING CORE 

5128 



o 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

SIMPLE. MIC[ 10, 1 141 ] 15:31 27-JULV - 1984 



U 1333, 3155,3443,0600,4174,4007,0700,0200,0003,0312 



U 3 155 , 1334,3223, 0000 ,4174, 4007 , 067 1 , 0200 , OOOO , 0002 
U 1 334 , 3 1 60 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 1335, 1336,21 13,0603,4174,4007,0521 ,4000,0000,0000 

U 1 336 , 1400, 422 1 , 001 3 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1 337 , 1 340 ,0111, 0704 ,4174, 4007 , 0370 , 0000 , 0000 , 0000 

U 1340, 3155,0111, 0706 , 4 1 70 , 4007 , 0700 , 0200 , 0003 , 03 1 2 

U 1341 , 3157,01 1 1 ,0706,4170,4007,0700,0200,0003,0312 

U 3 1 56 , 1332,3772, 0000 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 3157, 3160,3223,0000,4174,4007,0701,0200,0000,0002 

U 3 1 60 , 1 342 , 2 1 1 3 , 0603 ,4174, 4007 , 052 1 , 4000 , 0000 , 0000 

U 1342, 1400,4221 ,0013,4170,4007,0700,0000,0000,0000 

U 1343, 3161 ,01 1 1 ,0706,4174,4007 ,0700,0000,0000,0000 

U 3161, 3156,0111,0704,4170,4007,0700,0200,0004,0712 



U 
U 
U 



3162, 
3163^ 
3164, 



3 1 63 , 3770 , 0303 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 
3164,3771, 0003 , 7270 , 4007 , 070 1 , 0000 , 0000 ,0214 
1 100 , 3440 , 0303 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 
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d i zy 


. pi CAD 


pnDC r* a c it 




c 4 on 

D I oU 




\/M A F D D V 1 
vmA L dKa J , 




D IvJ 1 




olAKI WK lit, 




R A QO 




DYPT PI T ntrcT 
rAU 1 DL 1 Utbl 




K A O O 

3 loo 


di t r* i n 
DL 1 ULK 


A/1 CM lilDTTC 
M tm WK lit, 


. ctodc winnn 
; b 1 UKt WUKU 


5134 




MFM n 




R A QR 




oMr/ 1 mo 


• A MC ttmcd i id 
,1 mo llmtK Ur 


D 1 oO 


-u 


i / d i t rm 
U/ b L i VaU 1 


„ /"> r\ t Ai/r TMTCDDI IDT 

; VjU 1 AKt INI tKKUK 1 


R A ^3 7 
D 1 o / 




j_ DKA J I AK J , 


■ r f i n\j c i 

, OlLUW t j 


R A QQ 
D l OO 








5139 








D 1 H\J 


- U 


FMn R| T 
t IMU D L 1 , 


. Mn QTOD Rl T 

, NU o 1 Ur DL 1 


R 1 A 1 
D 1 *t 1 




. i /nnMF 

U/ UUINC 




^ A AO 




r Any 1. r ADY 1-H 
[ AKA J I AKA Jt | , 


. cnD DAfiF CATI 1 nOTT 
, rUK KAvat TAIL LUval t 






CI/TD TPPT 
jMr J. Kr 1 




R 1 A A 


— u 


\/M A rRDY 1+1 
VIVIA IDKA j~ | , 




R i 

D 1 D 




i nAn \/MA 




D140 




DYTT Rl T nCCT 
rAU 1 DL 1 Utol, 




3 14 / 




CTADT UIDTTC 

b 1 AK 1 WK lit, 


• VCC I/CCD CTODTMP 

,Yto — rsttr b 1 UKlNb 


D l 4o 




1 /pi ~t c\ d 
U/ tiL 1 LLK 




5149 




VMA [ dKa J + 1 , 


. TMTCDDI IDT 

; INI t KKUr 1 


D 1 DU 




i n a rv \/m a 
LUAU VIVIA , 




DID 1 




DYPT Rl T nCCT 
r At 1 DL 1 Utol , 




C 4 CO 

O ID/ 




CTADT WDTTC 
olAKI WK 1 1 t , 




D luo 




. i /r i T^n 

U/ DL 1 VjjU 




R 1 R/l 
D 1 0*t 








5155 




enp MHPMAI Rl T 

rUK iNUKmML DL 1 




5 1 56 


BLTLP ' 


MFM P F An 


• FETCH 


DID/ 




n MFM 
KJ mtm , 




5 1 58 




i 1 /Rl Tl P1 
U/ DL 1 Lr 1 




R 1 RQ 
D 1 DtJ 




MFM U/P T T F 
m C l v l WKi 1 C , 




R i KA 

D I DvJ 




MFM (~\ 




D lul 


DL 1 VaU 1 


rRDY i — r AD 1 

L BK A J [ AK J , 


• r c i n ui c o 
, d t LUW t r 


5162 




OT 
o 1 , 




5 1 63 




n/ t n n n r\ 

SKIP DPO 




D Iu4 


-V 


r*|n DI T 
t NU DL 1 , 


. Mn CTOD DI T 

; NU — b 1 Ur DL 1 


D lo D 




u/ UUNt 




D 1 bo 




L bK A J [ DKA J + 1 


. i iDnATc nccT Annoccc 
;UFUAI b Utbl AUUKtbb 


Did/ 




VMA [ARX3+1, 




D IOC 




LOAD VMA, 




5 1 69 




PXCT BLT SRC, 




R -1 70 




START READ, 


. ypq — mh\/f i mhpf wnpn 

, t c o iiuvc i murcc WUKU 


R 1 7 1 

D 1 / 1 




J/BLTLP 




5172 








5 1 73 


; HERE 


TO CLEAN UP AFTER BLT 


PAGE FAILS 


5174 


BLT-CLEANUP: 




5175 




[AR] [ AR 3 SWAP 


;PUT SRC IN LEFT HALF 


5176 




[ AR 3 W0RK[SV.BRX3 , 




5177 




HOLD LEFT 




5178 




AC [AR], 


; STORE THE AC AND RETURN 


5179 




J/CLEANED 




5180 









T10KL.MCR[ 10, 1 141] 15:34 27-JULY- 1984 
SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 



MICRO 



U 0670, 3146,3771,0006,0276,6007,0700,0010,0000,0000 
U 0672 , 3165, 3440 , 0505 ,0174, 4007 , 0700 , 0400 , 0000 , 0000 



U 3165, 0006,3772,0000,4365,5003,7700,0200,0000,0002 
IT 

U 0006, 3173,3446, 1200 ,.4 174, 4007, 0700, 0000, 0000, 0000 



U 0007, 0570,4665,0017,4374,4007,0700,0000,0000,0377 

U 0570, 3200,4443,0000,4174,4007,0700,1010,0071,1767 

U 0571, 3201,4443,0000,4174,4007,0700,1010,0071,1772 

U 0573, 3166 f 4662,OOOO,4374,4OO7,O70O,OOOO,0OOO,1774 

U 3166, 3167,3001 , 1717,4174,4007,0700,0000,0000,0000 

U 3167, 3170,5742,1700,4174,4007,0700,0000,0000,0000 

U 3170, 3171,3444,0012,4174,4007,0700,0000,0000,0000 

U 3171, 3172,3444,0012,4174,4007,0700,0000,0000,0000 



U 3172, 3177,4521,1717,4374,4007,0700,0000,0077,7774 
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5181 
5182 
5183 
5184 
5185 
5186 
5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5199 
5200 
5201 
5202 
5203 
5204 
5205 
5206 
5207 
5208 

5209 
5210 
521 1 
5212 
5213 
5214 
5215 
5216 
5217 
5218 
5219 
5220 
5221 
5222 
5223 
5224 
5225 
5226 
5227 



. IF/UBABLT 

.TOC "UBABLT - BLT BYTES TO/FROM UNIBUS FORMAT" 

THESE INSTRUCTION MOVE WORDS FROM BYTE TO UNIBUS AND UNIBUS TO BYTE 
FORMAT. FORMATS ARE: 

BYTE FORMAT: 



; BYTE 



BYTE 1 



BYTE 2 



BYTE 3 



4 BITS 



UNIBUS FORMAT: 



; 2 BITS ; ; BYTE 1 ;; BYTE O ;; 2 BITS BYTE 3 ;; BYTE 2 



BLTX: [BRX]_AC, 

CALL [SETBLT] 
AC [BR] 



BLTXLP: 



= 1 10 



=00 
=01 
= 11 



MEM READ, 
0_MEM, 
B DISP 
Q_Q*.5, 

J/BLTBU 1 



FETCH THE AC (DEST IN RH) 
DO THE REST OF THE SETUP 
STORE THE FINAL AC IN AC 

READ THE SOURCE WORD 
FROM MEMORY 

SKIP IF BLTUB (OPCODE 717) 
BLTBU (OPCODE 716) - SHIFT RIGHT 

;CONTINUE INSTRUCTION 



AD/D . AND . , DBUS/DBM , ; BLTUB 

DBM/ # , #/377 , DEST/ AD*2 , B/T 1 
FE_S#,S#/1767, 
CALL [T1LSH] 
FE_S#,S#/1772, 
CALL [Q__RSH] 
0_0. AND. #,#/00 1774 



MASK LOW BYTES, SHIFT LEFT 
; AND STORE RESULT 



AD/ A . OR . , A/T 1 , DEST/ AD , 
B/T1 

AD/57, RSRC/OA, A/T 1 , 

DEST/ 0_AD 

0_0*2 

0_0*2 

[T1]_[T1].AND.# CLR RH, 
#/777774, J/BLTXV 



-9 MORE BITS TO PUT LOW BYTE OF LH 

IN TOP OF LH SHIFT LEFT 
-6 BITS TO PUT HI BYTE TO RIGHT 

OF LOW BYTE. 
KEEP ONLY HI BYTES 

MERGE PAIRS OF BYTES. NOW SWAPPED, 

BUT STILL IN HALF-WORDS 

CLEAR LH OF Q WHILE LOADING 

RH WITH LOW WORD 

SHIFT LOW WORD ACROSS 1/2 WORD 

AND INTO FINAL POSITION 

CLEAR ALL BUT HIGH 16-BIT WORD 

FROM T1 AND CONTINUE 



; T10KL J*CR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; SIMPLE. MIC[10, 1141] 15:31 27-JULY-1984 

U 3173, 3174, 3446 , 1 200 ,4174, 4007 , 0700 , 0000 , OOOO , 0000 
U 3174, 3175,3446,1 200 ,4170, 4007 , 0700 , 0000 , 0000 , 0000 
U 3175, 3176,3446,1200,4170,4007,0700,0000,0000,0000 

U 3176, 0610,4665,0017,4374,4007,0700,0000,0000,0377 
ION 

U 0610, 3200,4443,0000,4174,4007,0700,1010,0071,1771 

U 0611, 3201,4443,0000,4174,4007,0700,1010,0071,1770 
U 06 1 3 , 3177, 4662 , 0000 , 4374 , 4007 , 0700 , 0000 , 0000 , 0377 



U 3177, 3202 , 3002 , 1 700 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3200, 
U 3201 , 



0001 ,3445, 1717,4174,4004, 1700, 1020,0041 ,0001 
0002,3446, 1200,4174,4004, 1700, 1020,0041 ,0001 



U 3202 , 3203 , 3443 , 0600 ,4174, 4007 , 0700 , 0200 , 0003 , 03 1 2 

U 3203, 3204,3223,0000,4174,4007,0701,0200,0000,0002 

U 3204 , 1 344 ,2113, 0603 ,4174, 4007 , 052 1 , 4000 , 0000 , 0000 

U 1 344 , 1 400 , 422 1 , 00 1 3 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 

U 1345, 3205,01 1 1 ,0706,4174,4007,0700,0000,0000,0000 



U 3205, 3165,01 1 1 ,0704,4170,4007,0700,0200,0004,0712 
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5228 


BLTBU 1 : 


Q Q* . 5 


NOW IN 1/2 WORDS 


5229 




Q 0*. 5, HOLD LEFT 


INSERT A NULL BIT IN RH 


5230 




Q*. 5, HOLD LEFT 


ONE MORE - NOW IN HALF WORDS 


5231 




AD/D . AND . , DBUS/DBM , 


BUT NOT SWAPPED. COPY RIGHT 


5232 




DBM/#,#/377,DEST/AD*2,B/T1 ; TO T1 AND SHIFT LEFT 


5233 


=00 


FE S#,S#/1771 , 


-7 BITS MORE 


5234 




CALL [ T 1 LSH ] 


TO FINAL RESTING PLACE 


5235 


= 01 


FE S#,S#/1770, 


-8. LEFT BYTES MOVE RIGHT 


5236 




CALL [0 RSH] 


TO FINAL RESTING PLACE 


5237 


= 1 1 


Q\AND.#,#/377 


WANT ONLY THE NEW BYTES 


5238 








5239 








5240 


BLTXV : 


[T1].0R.Q, ; MERGE RESULTS 


524 1 




J/BLTXW ; AND STUFF IN MEMORY 


5242 








5243 


T 1 LSH : 


[T1 ] [T1 ]*2, SHIFT, RETURN 


[1] 


5244 


RSH: 


Q_Q*. 5, SHIFT, RETURN [2] 




5245 








5246 


BLTXW : 


VMA [BRX], START WRITE, ; DEST TO VMA 


5247 




PXCT BLT DEST 




5248 




MEM WRITE, MEM 


STORE 


5249 




[BRX]-[AR] ,3T,SKIP DPO 


DONE? 


5250 


=0 


END BLT , J/DONE 


YES 


5251 




[BRX] [BRX]+1 


NO, INC DEST 


5252 




VMA [ARX]+1 , LOAD VMA, 


AND SOURCE (LOADING VMA) 


5253 




PXCT BLT SRC, START READ, 


START UP MEMORY 


5254 




J/BLTXLP 


AND CONTINUE WITH NEXT WORD 


5255 


. ENDI F/UBABLT 




5256 









T10KL.MCR[10, 1141] 15: 34 27-JULY-1984 MICRO 

FLT.MIC[ 10, 1141 ] 01:46 20-MAR- 1981 



D 0140, 0701, 1577, 1100 

D 0142, 0702,1577,1700 

D 0143, 0703,1577,1700 

D 0144, 071 1 , 1577, 1 100 

D 0145, 061 1 , 1577,0100 

D 0146, 0712,1577,1700 

D 0147, 0713, 1577, 1700 

D 0150, 0701 , 1576, 1 100 

D 0152,' 0702,1576,1700 

D 0153, 0703,1576,1700 

D 0154, 071 1 , 1576, 1100 

D 0155, 0611,1576,0100 

D 0156, 0712, 1576, 1700 

D 0157, 0713, 1576, 1700 



U 1 576 , 1577, 244 1 , 0303 ,4174, 4007 ,0700 , 4000 , 0000 , 0000 



U 1577, 0674,3771,0005,0276,6006,7701,2000,0020,2000 

U 0674 , 1 350 , 3333 , 0005 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 0676, 3206,3441,0304,4174,4007,0700,0000,0000,0000 

U 3206 , 3207 , 344 1 , 0503 ,4174, 4007 , 0700 , 2000 , 004 1 , 2000 

U 3207, 3210,3441,0405,4174,4007,0700,2000,0020,0000 

U 3210, 1346,3333,0003,4174,4007,0520, 1000,0041 ,2000 

U 1346, 3211,4551,O303,4374,0O07,O70O,0000,0O0O,0777 

U 1347, 3211,3551,0303,4374,0007,0700,0000,0077,7000 



U 1350, 3211,4551,0505,4374,0007,0700,0000,0000,0777 

U 1351, 3211,3551,0505,4374,0007,0700,0000,0077,7000 

U 3211, 1352,4222, 0000 ,4174 , 4007 , 0630 , 2000 , 0060 , OOOO 

U 1 352 , 1 352 , 3446 , 0505 ,4174, 4047 , 0630 , 2000 , 0060 , 0000 

U 1353, 0420,0111,0503,4174,4003,4701,0000,0000,0000 
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5257 .TOC "FLOATING POINT FAD, FSB 
5258 

5259 . DCODE 



5260 


140: 


• FL 


-R , 


FL 


-AC, 


J/FAD 


5261 


142: 


FL 


-RW, 


FL 


-MEM, 


J/FAD 


5262 




FL 


-RW, 


FL 


-BOTH, 


J/FAD 


5263 




FL 


-R , 


FL 


-AC, ROUND, 


J/FAD 


5264 




FL 


- 1 , 


FL 


-AC, ROUND, 


J/FAD 


5265 




FL 


-RW , 


FL 


-MEM, ROUND, 


J/FAD 


5266 




FL 


-RW , 


FL 


-BOTH, ROUND, 


J/FAD 


5267 














5268 


150: 


FL 


-R, 


FL 


-AC, 


J/FSB 


5269 


152: 


FL 


-RW, 


FL 


-MEM, 


J/FSB 


5270 




FL 


-RW, 


FL 


-BOTH, 


J/FSB 


5271 




FL 


-R , 


FL 


-AC, ROUND, 


J/FSB 


5272 




FL 


-I , 


FL 


-AC, ROUND, 


J/FSB 


5273 




FL 


-RW, 


FL 


-MEM, ROUND, 


J/FSB 


5274 




FL 


-RW, 


FL 


-BOTH, ROUND, 


J/FSB 



5275 .UCODE 
5276 

5277 ; BOTH FAD & FSB ARE ENTERED WITH THE MEMORY OPERAND IN 

5278 ; SIGN SMEARED. THE EXPONENT IN BOTH SC AND FE. 

5279 1576: 

5280 FSB: [AR]_-[AR] ; MAKE MEMOP NEGATIVE 
5281 

5282 1577: 

5283 FAD: [BR]_AC, SC_SC~EXP-1, 3T , SCAD DISP 

5284 =0* 

5285 FAS 1 : READ [BR], SKIP DPO, J/FAS2 ; BR .LE. AR 

5286 [ARX]_[AR] ; SWAP AR AND BR 

5287 [AR]__[BR] , SC_EXP 

5288 [BR]_[ARX], SC_SC-FE-1 ; NUMBER OF SHIFT STEPS 

5289 READ [AR], FE EXP, 2T , SKIP DPO 

5290 =0 [AR]_+SIGN, J/FAS3 

5291 [AR]_-SIGN, J/FAS3 
5292 

5293 =0 ;SIGN SMEAR BR AND UNNORMALIZE 

5294 FAS2: [BR]_+SIGN, J/FAS3 

5295 [BR]_-SIGN, J/FAS3 
5296 

5297 FAS3: Q_p, STEP SC 

5298 =0 

5299 FAS4: [ BR ]_[ BR ] * . 5 LONG, STEP SC, ASHC, J/FAS4 

5300 [AR]_[AR]+[BR] , NORM DISP, J/SNORM 
5301 



o 

; T10KL.>jcK[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; FLT . MIC [ 10 , 1 14 1 ] 01:46 20-MAR-1981 



D 0160, 0701,1570,1100 

D 0162, 0702,1570,1700 

D 0163, 0703,1570,1700 

D 0164, 071 1 , 1570, 1 100 

D 0165, 061 1 , 1570,0100 

D 0166, 0712, 1570, 1700 

D 0167, 0713, 1570, 1700 



U 1570, 1354,3771 ,0006,0276,6007,0521 , 1000,0040,2000 

U 1 354 , 3212, 455 1 , 0606 , 4374 , 0007 , 0700 , 0000 , 0000 ,0777 

U 1355, 3212, 355 1 , 0606 , 4374 , 0007 , 0700 , OOOO , 0077 , 7000 

U 3212, 0163,3442,0300,4174,4007,0700,2000,0071,0033 

U 0163, 2773,3446,0606,4174,4007,0700,0010,0000,0000 

U 1 67 , 3213, 4662 , 0000 , 4370 , 4007 , 0700 , 0000 , 0077 , 7000 

U 3213, 3214,3441 ,0403,4174,4007,0700, 1000,0041 ,0002 



U 3214, 



0420,3446,0303,4174,4003,4701 , 1000,0041 , 1600 
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5302 


. TOC 


"FLAOTING POINT -- FMP" 






5303 












5304 




. DCODE 








5305 


160: 


FL-R , 


FL-AC , 


J/FMP 


5306 


162 : 


FL-RW, 


FL-MEM, 


J/FMP 


5307 




FL-RW, 


FL-BOTH, 


J/FMP 


5308 












5309 




FL-R, 


FL-AC, ROUND, 


J/FMP 


5310 




FL-I , 


FL-AC, ROUND, 


J/FMP 


531 1 




FL-RW, 


FL-MEM, ROUND, 


J/FMP 


5312 




FL-RW, 


FL-BOTH, ROUND, 


J/FMP 


5313 




.UCODE 








5314 












5315 


1570: 










5316 


FMP : 


[BRX] 


AC, ' 




GET AC 


5317 




FE SC+EXP, 3T, 




EXPONENT OF ANSWER 


5318 




SKIP DPO 




GET READY TO SMEAR SIGN 


5319 


=0 


[BRX ] 


+5IGN, J/FMP1 




POSITIVE 


5320 




[BRX 3 


-SIGN, J/FMP1 




NEGATIVE 


5321 


FMP 1 : 


[AR] 


, SC 27. 




GET MEMORY OPERAND 


5322 


=01* 


[ BRX 3 


[BRX ]*. 5 LONG, 




SHIFT RIGHT 


5323 




CALL [MULSUB3 




MULTIPLY 


5324 




. AND . # , #/ '777000, 




WE ONLY COMPUTED 


5325 




HOLD LEFT 




27 BITS 


5326 




[AR] [ARX 3 , FE FE + 2 




SET SHIFT PATHS 


5327 




[AR] [AR]*.5 LONG, 




SHIFT OVER 


5328 




FE FE- 


200, 




ADJUST EXPONENT 


5329 




NORM DISP, J/SNORM 




NORMALIZE & EXIT 


5330 













/ 



T 10KL . MCR [ 10, 1 141 ] 
FLT.MIC[ 10, 1141] 



15:34 27-JULY-1984 
01 :46 20-MAR-1981 



MICRO 



D 0170, 0701,1574,1100 

D 0172, 0702, 1574, 1700 

D 0173, 0703,1574,1700 

D 0174, 071 1 , 1574, 1 100 

D 0175, 061 1 , 1574,0100 

D 0176, 0712,1574,1700 

D 0177, 0713, 1574, 1700 



U 1 574 , 1 356 , 344 1 , 0305 ,0174, 4007 , 062 1 , OOOO , 0000 , OOOO 



U 1356, 
U 1357, 



1 360 ,3771, 0003 , 0276 , 6007 , 0520 , 1 000 , 0030 , 2000 
0603 , 4443 , OOOO ,4174, 4467 , 0700 , OOOO , 007 1 , 1000 



U 1 360 , 3215,4551, 0303 , 4374 , 0007 , 0700 , OOOO , OOOO ,0777 

U 1361, 3216,3551,0303,4374,0007,0700,0000,0077,7000 

U 3215, 3217,3441,0304,4174,4007,0700,1000,0031,0200 

U 3216, 3217,2441,0304,4174,4007,0700,5000,0031,0200 

U3217, 1362,3445, 0506 ,4174, 4007 , 0520 , OOOO , OOOO , OOOO 



U 1362, 
U 1363, 



1364,21 13,0406,4174,4007,031 1 ,4000,0000,0000 
1362,2445, 0506 ,4174, 4007 , 0700 , 4000 , OOOO , OOOO 



U 1364, 
U 1365, 



1 366 , 3447 , 0606 ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 
0603 , 4443 , OOOO ,4174, 4467 , 0700 , OOOO , 007 1 , 1000 



U 1 366 , 3700 , 3445 , 0303 ,4174, 4007 , 0700 , 0010 ,0000 , OOOO 

U 1367, 0144,2113,0604,4174,4007,0421,4000,0000,0000 

U 0144, 3036,4222,0000,4174,4007,0700,2010,0071,0033 

U 0145, 0144,3447,0303,4174,4007,0700,1000,0041,0001 

U 0154, 3220,3227,0003,4174,4007,0700,0000,0000,0000 

U 0155, 2070,3333,0003,4174,4007,0621,0010,0000,0000 

U 0156, 2070 , 3333 , 0003 ,4174, 4007 , 062 1 , 00 1 , OOOO , OOOO 

U 0157, 3220,3227,0003,4174,4007,0700,0000,0000,0000 

U 0177, 3220,2227,0003,4174,4007,0700,4000,0000,0000 



U 3220 , 1 377 , 4222 , OOOO ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 
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5331 .TQC "FLOATING POINT FDV" 
5332 

5333 . DCODE 

5334 170: FL-R, FL-AC, J/FDV 

5335 172: FL-RW, FL-MEM, J/FDV 

5336 FL-RW, FL-BOTH, J/FDV 
5337 

5338 FL-R, FL-AC, ROUND, J/FDV 

5339 FL-I, FL-AC, ROUND, J/FDV 

5340 FL-RW, FL-MEM , ROUND, J/FDV 

5341 FL-RW , FL-BOTH, ROUND, J/FDV 

5342 .UCODE 
5343 

5344 \ 

5345 1574: \ 

5346 FDV: [BR ]_[ AR ] , SKIP AD.EQ.O, AC ; COPY DIV50R SEE IT O 

5347 =0 

5348 [AR,]_AC, FE_SC-EXP, SKIP DPO, ; GET AC & COMPUTE NEW 

5349 x J/FDVO ; EXPONENT 

5350 FL NO DIVIDE ;DIVIDE BY ZERO 

5351 =0 

5352 FDVO: [AR]_+SIGN, J/FDV 1 

5353 [AR]_-SIGN, J/FDV2 

5354 FDV1: [ ARX ]_[ AR ] , FE_-FE+200, J/FDV3 -COMPUTE 2*DVND 

5355 FDV2: [ ARX [ AR ] , FE_- FE+200 , J/FDV3 ; ABSOLUTE VALUE 

5356 FDV3: [BRX]__[BR] *2 , SKIP DPO ; ABSOLUTE VALUE 

5357 =0 

5358 FDV4: [ARX]-[BRX], SKIP CRYO, 3T , J/FDV5 ; FLOATING NO DIV? 

5359 [BRX]_-[BR]*2, J/FDV4 ; FORCE ABSOLUTE VALUE 

5360 =0 

5361 FDV5: [BRX ]_[BRX } * . 5 , J/FDV6 ;SHIFT BACK ARX 

5362 . FL NO DIVIDE ; UNNORMALIZED INPUT 

5363 =0 

5364 FDV6 : [ AR ]_J AR ] *2 , ; DO NOT DROP A BIT 

5365 CALL [ SBRL 3 ; AT FDV7+1 

5366 [BRX] - E ARX] , SKIP AD.LE.O ;IS ANSWER . LE . 1? 

5367 =00100 

5368 FDV7: Q_0, SC__27., CALL [DIVSGN] ;DIVIDE 

5369 =00101 [AR]_[AR]*.5, FE_FE+1, J/FDV7 ; SCALE DV'END 

5370 =01100 

5371 FDV8: [AR]_Q*.5, J/FDV9 ; PUT ANSWER IN AR 

5372 =01101 READ [AR], SKIP AD.EQ.O, ; -VE ANSWER, LOOK AT RMDR 

5373 CALL [SETSN] ; SEE HOW TO NEGATE 

5374 =01110 READ [AR], SKIP AD.EQ.O, ; -VE ANSWER, LOOK AT RMDR 

5375 CALL [SETSN] ; SEE HOW TO NEGATE 

5376 =01111 [AR]_Q*.5, J/FDV9 ; PUT ANSWER IN AR 

5377 =1 11 11 [AR]__-Q*.5, J/FDV9 ; ZERO RMDR 
5378 

5379 FDV9 : Q_0, J/SNORMO ; GO NORMALIZE 

5380 
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MICRO 31(254) 



D 0127, 
D 0132, 



001 1,1616,1 100 
0001 , 1621 ,2100 



U 1616, 1 370 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 0077 , 7000 
U 1370, 1372,2441 ,0305,4,174,4007,0521 ,4000,0000,0000 
U 1371 , 1 377, 4222, 0000, 4 174, 4007, 0" 7 00, 1000,0071 ,0233 



U 1 372 , 1 374 , 4553 , 0500 , 4374 , 4007 , 032 1 , 0000 , 0077 , 7000 

U 1373, 3221,4222,0000,4174,4007,0700,1000,0071,0244 

U 1374, 3221 ,4222,0000,4174,4007,0700, 1000,0071 ,0244 

U 1375, 1377,4222,0000,4 174,4007,0700, 1000,0071 ,0233 



U 3221 , 1376,3446,0303,4174,4047,0700,2000,0071 ,0006 



U 1376, 
U 1377, 



1 376 , 3446 , 0303 , 4 1 74 , 4047 , 0630 , 2000,, 0060 , 0000 
0420, 3333 , 0003 ,4174, 4003 , 4701 , 0000 , 0000 , 0000 



U 1621 , 3222,3333,0003,4174,4007,0700,2000,0041 ,4000 

U 3222, 3223,4222,0000,0174,4007,0700,0000,0000,0000 

U 3223, 2000,3771,0003,0276,6007,0520,1000,0040,2000 

U 2000 , 1377, 455 1 , 0303 , 4374 , 0007 ,0700 , 0000 , 0000 ,0777 

U 2001 , 1377,3551 ,0303,4374,0007,0700,0000,0077,7000 
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.TOC 



'FLOATING POINT 



FLTR, FSC" 



127 : 
132: 



. DCODE 

R, 

I , 

.UCODE 



FL-AC, ROUND, 
FL-AC, 



J/FLTR 
J/FSC 



1616: 
FLTR : 
=0 

=0 

FLTR 1 : 



= 

FLTR 1 A : 

AT THI 
SHIFT 
THIS 

FLTR2: 

=0 

FLTR3 : 
SNORMO: 



[ AR ] . AND . # , #/777000, 3T , SKIP ADL.EQ.O ; SMALL POS NUMBER? 
[BR]_-[AR], SKIP DPO, 3T , J/FLTR 1 ;NO--SEE IF MINUS 

p E_S#, S#/233, J/SNORMO ;FITS IN 27 BITS 

[ BR ] . AND . # , #/777000, 3T , 

SKIP ADL.EQ.O, J/FLTR 1 A ; SMALL NEGATIVE NUMBER 
0_0, FE_S#, S#/244, J/FLTR2 ; LARGE POS NUMBER 

Q_0, FE_S#, S#/244, J/FLTR2 ;BIG NUMBER 

FE_S#, S#/233, J/SNORMO ;FITS IN 27 BITS 
S POINT WE KNOW THE NUMBER TAKES MORE THAN 27 BITS. WE JUST 

8 PLACES RIGHT AND NORMALIZE. WE COULD BE MORE CLEVER BUT 
IS THE RARE CASE ANYWAY. 



[AR]_[AR]*.5 LONG, ASHC, SC_6 

[AR]_[AR]*.5 LONG, ASHC, 
STEP SC, J/FLTR3 
READ [AR], NORM DISP, J/SNORM 



; SHOVE OVER TO THE RIGHT 

SHIFT RIGHT 9 PLACES 

SO IT WILL FIT 
NORMALIZE ANSWER 



1621 : 

FSC: READ [AR], SC_SHIFT 

0_0, AC ;DON'T SHIFT IN JUNK 

[AR]_AC, FE_SC+EXP, SKIP DPO ;SIGN SMEAR 

=0 [AR]_+SIGN, J/SNORMO 

[AR]_-SIGN, J/SNORMO 
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D 0122, 0701 , 1626, 1 100 
D 0126, 0711, 1626, 1100 



U 1626, 
U 0720, 
U 0722, 
U 0724, 
U 0726, 



0720,4222, 
0603,4443, 
0724,4443, 
2004 , 4443 , 



0000,4174, 
0000,4174, 
0000,4174, 
OOOO ,4174, 



,4006,7701 , 
,4467,0700, 
,4006,7701 , 
,4007,0630, 



0000 , 004 1 , 
0000,0041 , 



1534 
1000 
1544 



3224 , 4443 , 0000 ,4174, 4007 ,0700 , 



2000,0041 
2000 , 0060 , 0000 
2000,0031 ,0232 



U 3224, 20*02,4443,0000,4174,4007,0630,2000,0060,0000 



U 2002, 
U 2003, 



2002 , 3446 , 0303 ,4174, 4047 , 0630 , 2000 , 0060 , 0000 
0063 , 3447 , 0705 ,4174, 4003 , 7700 , 0000 , 0000 , 0000 



U 2004, 
U 2005, 



2004 , 3445 , 0303 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 
100 , 3440 , 0303 ,0174,4156, 4700 , 0400 , 0000 , 0000 



U 0063 , 2006 , 3333 , 0003 ,4174, 4007 , 0520 , 0000 ,0000 , 0000 

U 0073, 1514,01 11 ,0503,4174,4003,7700,0200,0003,0001 

U 2006, 0100,3440,0303,0174,4156,4700,0400,0000,0000 

U 2007 , 20 1 O , 3223 , 0000 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 

U 2010, 1514,01 1 1 ,0703,4174,4003,7700,0200,0003,0001 



U 2011, 0073,7441,1205,4174,4007,0700,0000,0000,0000 



\ J 



1(254) 
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5416 


.TOC 


"FLOATING POINT ~- FIX AND FIXR" 




5417 








5418 




. DCODE 




5419 


122: 


FL-R, FL-AC, J/FIX 




5420 


126: 


FL-R, FL-AC, ROUND, U/FIX 


) 


5421 




.UCODE 




5422 








5423 


1626: 






5424 


FIX: 


0, SCAD/A+B, SCADA/S#, 


; CLEAR Q, SEE IF 


5425 




S#/1534, 5CADB/FE, 3T , 


; ANSWER FITS IN 


5426 




SCAD DISP 


; 35 BITS. 


5427 


=0* 


SET AROV, J/NIDISP 


;T00 BIG 


5428 




SC FE+S#, S#/1544, 3T , SCAD DISP 


; NEED TO MOVE LEFT? 


5429 


=0* 


STEP SC, d/FIXL 




5430 




SC_S#-FE, S#/232 


; NUMBER OF PLACES TO SHIFT 


5431 






; RIGHT 


5432 




STEP SC 


; ALREADY THERE 


5433 


= 






5434 


FIXR: 


[ AR] [AR]*.5 LONG, ASHC, 


; SHIFT BINARY POINT 


5435 




STEP SC, U/FIXR 


; TO BIT 35.5 


5436 




[BR]__[0NE]*.5, B DISP, J/FIXX 


;WHICH KIND OF FIX? 


5437 








5438 


=0 






5439 


FIXL: 


[ AR] [AR]*2, STEP SC , J/FIXL 


;SHIFT LEFT 


5440 




AC_[AR], NEXT INST 


;WE ARE NOW DONE 


5441 








5442 


=0*1 1 






5443 


FIXX: 


READ [AR], SKIP DPO, J/FIXT 


;FIX--SEE IF MINUS 


5444 


FIXX1 : 


[AR]_[AR]+[BR] , FL-EXIT 


;FIXR--ROUND UP 


5445 


=0 






5446 


FIXT: 


AC [AR], NEXT INST 


;FIX & +, TRUNCATE 


5447 




READ Q, SKIP AD.EQ.O 


; NEGATIVE- -ANY FRACTION? 


5448 


=0 


[AR] [AR]+1 , FL-EXIT 


;YES--ROUND UP 


5449 




[BR] .NOT. [MASK], 


; MAYBE- -GENERATE . 75 


5450 




J/FIXX1 


; ROUND UP IF BIT 36 OR 


5451 






; 37 SET 


5452 









D 
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5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5465 
5466 
5467 
5468 
5469 
5470 
5471 
5472 
5473 
5474 
5475 
5476 
5477 
5478 
5479 
5480 



U 0420, 0420,3444,0303,4174,4063,4701,1000,0041,1777 ; 5481 

U 0421, 2014,2222,0000,4174,4007,0311,4000,0000,0000 ; 5482 

U 0422, 0262,3333,0003,4174,4003,4701,0010,0000,0000 ; 5483 

U 0423, 2014,2222,0000,4174,4007,0311,4000,0000,0000 ; 5484 

U 0424, 0262,3447,0303,4174,4007,0700,1010,0041,0001 ; 5485 

U 0425, 2014,2222,0000,4174,4007,0311,4000,0000,0000 ; 5486 

U 0426, 0262,3447,0303,4174,4007,0700,1010,0041,0001 ; 5487 

U 0427, 2014,2222,0000,4174,4007,0311,4000,0000,0000 ; 5488 

U 0430. 2012,3223,0000,4174,4007.0621,0000,0000,0000 ; 5489 

U 0436, 2013,3770,0303,4324,0457,0700,0000,0041,0000 ; 5490 

; 5491 

; 5492 

U 2012, 0420,3444,0303,4174,4063,4701,1000,0041,1777 ; 5493 

U 2013, 1514,4443,0000,4174,4003,7700,0200,0003,0001 ; 5494 

; 5495 



.TOC "FLOATING POINT -- SINGLE PRECISION NORMALIZE" 

; NORMALI ZE DISPATCH IS A 9-WAY DISPATCH. THE HARDWARE LOOKS AT 
; 4 SIGNALS: DP=0, DP BIT 8, DP BIT 9, DP BIT -2. THE 9 CASES 
; ARE: 



DP=0 



DP08 



DP09 



DPOO 



ACTION TO TAKE 
SHIFT LEFT 











1 


NEGATE AND RETRY 








1 





ALL DONE 








1 


1 


NEGATE AND RETRY 





1 








SHIFT RIGHT 





1 





1 


NEGATE AND RETRY 





1 


1 





SHIFT RIGHT 


0\ 


1 


1 


1 


NEGATE AND RETRY 


1 \ 








LOOK AT Q BITS 



; ENTER HERE\ WITH UNNORMALI ZED NUMBER IN AR!Q. FE HOLDS THE NEW 
; EXPONENT. CALL WITH NORM DISP 
=0000 ; 9-WAY DISPATCH 

SNQRM : [ AR ]__[ AR ] *2 LONG, DIV, FE_FE - 1 , NORM DISP, J/SNORM 

0_-0, SKIP CRYO, 3T, J/SNNEG 

READ [AR], NORM DISP, CALL [SROUND] 

0_-Q, SKIP CRYO, 3T, J/SNNEG 

[AR]_[AR]*.5, FE_FE+ 1 , CALL [SROUND] 

Q_-0, SKIP CRYO, 3T, J/SNNEG 

[AR]_[AR]*.5, FE_FE+ 1 , CALL [SROUND] 

Q_-0, SKIP CRYO, 3T, J/SNNEG 

READ Q, SKIP AD.EQ.O, J/SNORM 1 
=1110 [AR]_EXP, J/FLEX 

=0 • 

SN0RM1: [AR]_[AR]*2 LONG, DIV, FE_FE - 1 , NORM DISP, J/SNORM 
FLEX: FL-EXIT 
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U 2014, 

U 2015, 

U 0440, 
U 0442, 
U 0444, 
U 0446, 
U 0450, 
U 0456, 



0440 , 744 1 , 0303 ,4174, 4003 , 470 1 , 0000 , 0000 , 0000 

0440 , 244 1 , 0303 ,4174, 4003 , 470 1 , 4000 , 0000 , OOOO 

0440,3444,0303,4174,4063,4701 , 1000,0041 , 1777 
0262 , 3333 , 0003 ,4174, 4003 , 470 1 , 0010 , 0000 , 0000 
0262 , 3447 , 0303 ,4174, 4007 , 0700 ,1010, 004 1 , 000 1 
0262 , 3447 , 0303 ,4174, 4007 , 0700 ,1010, 004 1 , 000 1 
0440,3444,0303,4174,4063,4701 , 1000,0041 , 1777 
0327 , 3770 , 0303 , 4324 , 0453 , 7700 , 0000 , 004 1 , 0000 



U 0327, 2016,4553, 1300,4374,4007,0321 ,0000,0000,2000 

U 0337 , 202 1,4111,1 203 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2016, 3225,7441,0303,4174,4007,0700,0000,0000,0000 

U 20 1 7 , 2020 , 3223 , 0000 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 

U 2020, 3225,7441,0303,4174,4007,0700,0000,0000,0000 

U 2021, 3225,2441,0303,4174,4007,0700,4000,0000,0000 

U 3225 , 1 5 1 4 , 422 1 , 00 1 3 , 4 1 74 , 4003 , 7700 , 0200 , 0003 , 000 1 



U 0262 , 0407 , 3447 , 0705 , 4 1 74 , 4003 , 7700 , 0000 , 0000 , 0000 

U 0266, 0262,3447,0303,4174,4007,0700,1000,0041,0001 

U 0407, 0016,4443,0000,4174,4004,1700,0000,0000,0000 

U 0417, 0302,0111,0503,4174,4003,4701,0000,0000,0000 

U 0302, 0016,4443,0000,4174,4004,1700,0000,0000,0000 

U 0306, 0016,3447,0303,4174,4004,1700,1000,0041,0001 
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; 5496 =0 

; 5497 SNNEG: [ AR ]_ . NOT . [ AR ] , NORM DISP, d/SNNORM ; NEGATE HIGH WORD 

; 5498 ; (NO CARRY) 

; 5499 [AR]_-[AR], NORM DISP, d/SNNORM ; NEGATE HIGH WORD (W/CARRY) 

; 5500 =0000 

; 5501 SNNORM: [AR]_[AR]*2 LONG , DIV, FE_FE- 1 , NORM DISP, d/SNNORM 

; 5502 =0010 READ [AR], NORM DISP, CALL [SROUND] 

; 5503 =0100 [ AR ]_[ AR ] * . 5 , FE_FE+1, CALL [SROUND] 

; 5504 *=0110 [ AR ]__[ AR ] * . 5 , FE_FE+ 1 , CALL [SROUND] 

; 5505 =1000 [AR]_[AR]*2 LONG, DIV, FE_FE- 1 , NORM DISP, d/SNNORM 

; 5506 =1110 [AR]_EXP, B DISP 

; 5507 = 

; 5508 =0111 TL [FLG], FLG.SN/1, d/SNNOT 

; 5509 [AR]_JAR] .AND. [MASK] , ; CLEAR ANY LEFT OVER BITS 

; 5510' d/SNN0T1 

; 5511 =0 

; 5512 SNNOT: [ AR ]_. NOT . [ AR ] , d/SNN0T2 

; 5513 READ Q, SKIP AD.EQ.O 

; 5514 =0 [AR]_.NOT. [AR] , d/SNN0T2 

; 5515 SNNOT 1 : [AR]_-[AR], d/SNN0T2 ; NORMAL NEGATE AND EXIT 

; 5516 SNN0T2: [FLG]_0, FL-EXIT 

; 5517 

; 5518 

; 5519 

; 5520 .TOC "FLOATING POINT -- ROUND ANSWER" 

; 5521 

; 5522 =*01* 

; 5523 SROUND: [ BR ]_[ ONE ] * . 5 , B DISP, U/SRND1 

; 5524 [AR]_[AR]*.5, FE__FE+ 1 , d/SROUND ; WE WENT TOO FAR 

; 5525 =0111 

; 5526 SRND1: RETURN [16] ;N0T ROUNDING INSTRUCTION 

; 5527 [AR]_[AR]+[BR] , NORM DISP 

; 5528 = *01* RETURN [ 16] 

; 5529 [AR]_JAR]*.5, FE_FE+ 1 , RETURN [16] 

; 5530 
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MICRO 



D 01 10, 1 100, 1637, 1 100 
D 01 1 1 , 1 100, 1635, 1 100 



U 1 635 , 3226 , 244 1 , 0404 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 

U 3226 , 1 637 , 244 1 , 0303 ,4174, 4007 , 0700 , 0040 , 0000 , 0000 

U 1637, 3227,4557,0006,1274,4007,0701,0000,0000,1441 

U 3227 , 2022 , 3777 , 0005 , 0274 , 4007 , 052 1 , 2000 , 0020 , 2000 

U 2022, 2024,5547,0505,0374,4007,0631,0000,0077,7400 

U 2023 , 2024 , 3547 , 0505 , 0374 , 4007 ,063 1 , 0000 , 0077 , 7400 

U 2024 , 2026 , 3442 , 0600 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2025, 3231 ,3771 ,0016,0276,6007,0700,2000,0041 ,2000 
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553 1 


. TOC 


"FLOATING POINT DFAD, 


DFSB " 


5532 








5533 




. DCODE 




5534 


1 IV. 


DBL FL-R, J/DFAD 


5535 


111: 


DBL FL-R, J/DFSB 


DOoO 




.UCODE 




DOo / 








OOoo 


• CMTCD 
, t!M 1 t K 


FROM A-READ CODE WITH: 






, r t/ 


EXP 




5540 


• / 
, ow 


EXP 




3J4 1 


• ad/ 


C(E) SHIFT RIGHT 2 PLACES 


5542 


; ARX/ 


C(E+1) SHIFTED RIGHT 1 PLACE 1 


5543 


1635' 






5544 


u r od . 


[ARX] -[ARX] 


NEGATE LOW WORD 


5545 




[AR] -[AR]-.25, MULTI PREC/1 


5546 


1637 : 






5547 


DFAD ' 


[BRX] (AC[ 1 ] .AND. [MAG] )* 


5, 3T ; GET LOW WORD 


33'tO 




[BR] AC*. 5, 3T, 


GET AC AND START TO SHIFT 


5549 




SC SC-EXP- 1 , 


NUMBER OF PLACES TO SHIFT 


5550 




SKIP DPO 


SEE WHAT SIGN 


333 1 




[BR] +SIGN*.5, 3T, 


SIGN SMEAR 






AC, SKIP/SC, J/DFAS1 


SEE WHICH IS BIGGER 


O O O 




[BR] -SIGN*. 5, 3T, 


SIGN SMEAR 


5554 




AC, SKIP/SC, J/DFAS1 


SEE WHICH IS BIGGER 


5555 


=0 






5556 


DFAS1 : 


[BRX], 


AR IS BIGGER 


5557 




J/DFAS2 


ADJUST BR ! Q 


5558 




[TO] AC, 


BR IS BIGGER OR EQUAL 


5559 




SC EXP, 2T, J/DFAS3 


SET SC TO THAT EXPONENT 


5560 
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MICRO 



U 2026, 0153,3441,0516,4174,4007,0700,0010,0000,0000 
U 2027, 3230,3441 , 1605,4174,4007,0700,0000,0000,0000 
U 3230 , 3234 , 0002 , 0400 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3231, 3232,3442,0400,4174,4007,0700,2000,0020,0000 

U 3232, 2030,3333,0016,4174,4007,0700,1000,0041,2000 

U 2030, 0153,3441,0316,4174,4007,0700,0010,0000,0000 

U 2031, 3233,3441,1603,4174,4007,0700,0000,0000,0000 

U 3233, 3234,0002,0600,4174,4007,0700,0000,0000,0000 



U 3234 , 3235,0116, 0503 ,4174, 4047 , 0700 , 0040 , 0000 , OOOO 

U 3235, 0433,3444,0303,4174,4046,2700,0000,0000,0000 

U 0433, 3236,5111,1217,4174,4007,0700,0000,0000,0000 

U 0437, 0433,0222,0000,4174,4007,0700,4000,0000,0000 

U 3236, 3237,3444,0303,4174,4047,0700,1000,0041,1777 

U 3237, 3240,3444,0303,4174,4047,0700,1000,0041,1777 

U 3240 , 2043 , 3002 , 1 700 , 4 1 70- , 4007 , 0700 , 0000 , 0000 , 0000 
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5561 ; HERE IF AR S ARX IS GREATER THAN BR ! BRX 

5562 =0 

5563 DFAS2: [T0]_[BR3, CALL [DFADJ3 ; ADJUST BR ! 

5564 [BR]_[T03 ; PUT ANSWER BACK 

5565 Q_Q+[ ARX 3, J/DFAS5 ; ADD LOW WORDS 

5566 

5567 ; HERE IS BR! BRX IF GREATER THAN OR EQUAL TO AR ! ARX 

5568 DFAS3: Q_[ARX], ; SETUP TO SHIFT AR ! ARX 

5569 SC_SC-FE-1 ;COMPUTE # OF PLACES 

5570 READ [TO], FE_EXP ; EXPONENT OF ANSWER 

5571 =0 [T03_[AR], CALL [ DFAD J 3 ; AD JUST AR ! 

5572 [AR3_[T03 ; PUT ANSWER BACK 

5573 Q_0+[BRX3, J/DFAS5 ; ADD LOW WORDS 
5574 

5575 ;BIT DIDDLE TO GET THE ANSWER (INCLUDING 2 GUARD BITS) INTO 

5576 ; AR!Q 

5577 DFAS5: [ AR ]_( [ AR 3 + [ BR ] ) * . 5 LONG, ; ADD HIGH WORDS 

5578 MULTI PREC/1, ASHC ; INJECT SAVED CRY2 

5579 [AR3_[AR3*2 LONG, ;SHIFT BACK LEFT 

5580 ASHC, MUL DISP ;SEE IF WE LOST A 1 

5581 =1011 

5582 DFAS6 : [ T 1 ]_[ T 1 3 . AND . NOT . [ MASK 3 , J/DFAS7 

5583 Q_0+.25, J/DFAS6 

5584 DFAS7: [AR3_[AR3*2 LONG, ASHC, ; PUT IN GUARD BITS 

5585 FE_FE - 1 

5586 [AR]_[AR]*2 LONG, ASHC, 

5587 FE_FE - 1 

5588 0_[T13-0R.Q, HOLD LEFT, J/DNORMO 
5589 



v 



o 

; T10KL.tovR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; FLT . MIC[ 10, 1141] 01:46 20-MAR-1981 



U 0153, 
U 0173, 
U 3241 , 



207 1,3444,1616,4174, 4067 , 0700 , 00 1 , 0000 , 0000 
3241, 3444 ,1616,4174, 4067 f 0700 , 0000 , 0000 , 0000 
3242 , 3444 ,1616,4174, 4067 , 070C , 0000 , 0000 , 0000 



U 3242, 0472,3446,1616,4174,4047,0630,2000,0060,0000 



U 0472, 0472,3446,1616,4174,4046,2630,2000,0060,0000 

U 0473, 0453,3221,0017,4174,4006,2700,0000,0000,0000 

U 0476, 2032,3551 , 1313,4374,0007,0700,0000,0000,2000 

U 0477, 2033,3551,1313,4374,0007,0700,0000,0000,2000 



U 2032, 2032,3446,1616,4174,4047,0630,2000,0060,0000 

U 2033, 0453,3221,0017,4174,4007,0700,0000,0000,0000 

U 0453, 3243,3446, 1616,4174,4047,0700,0000,0000,0000 

U 0457, 0453,3551,1313,4374,0007,0700,0000,0000,2000 

U 3243, 0001,3446,1616,4174,4044,1700,0000,0000,0000 
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5590 ;SUBROUTINE TO ADJUST NUMBER IN TO ! 

5591 ; RETURNS 1 WITH 

5592 ; TO!Q ADJUSTED 

5593 ; FLG.SN=1 IF WE SHIFTED OUT ANY 1 BITS (STICKY BIT) 

5594 ; T1 HAS TWO STEPS PRIOR TO BEING DONE 

5595 DFAD J "STEP SC , ASHC, MUL DISP" 
5596 

5597 =0**11 

5598 DFAD J : [T0]_[T0]*2 LONG, DIV, ; MOVE EVERYTHING 2 PLACES 

5599 CALL [CLRSN] 

5600 [T0]_[T0]*2 LONG, DIV 

5601 [T0]_[.T0]*2 LONG, DIV 

5602 [T0]_[T0]*.5 LONG, ASHC, ;SHIFT AT LEAST 1 PLACE 

5603 STEP SC 

5604 =1010 

5605 DFADJ1: [T0]_[T0]*.5 LONG, ; UNNORMALI ZE TO!Q 

5606 x DFAD J , J/DFAD J 1 ; LOOP TILL DONE 

5607 DFADJ2: [T1]_Q, ; SAVE GUARD BITS 

5608 MUL DISP, J/DFAD J5 ; LOOK AT LAST BIT 

5609 [FLG]_[FLG] . OR . # , FLG.SN/1, HOLD RIGHT, J/DFAD J3 

5610 [ FLG ]_[ FLG ] . OR . # , FLG.SN/1, HOLD RIGHT, J/DFAD J4 
561 1 . 

5612 =0 

5613 DFADJ3: [ T0]_[ TO] * . 5 LONG, ASHC, STEP SC , J/DFAD J3 

5614 DFADJ4: [T1]_Q ; SAVE 2 GUARD BITS 

5615 =1011 

5616 DFADJ5: [T0]_[T0]*.5 LONG, ASHC, J/DFADJ6 

5617 [ FLG ]_[ FLG ] . OR . # , FLG.SN/1, HOLD RIGHT, J/DFAD J5 

5618 DFADJ6: [T0]_[T0]*.5 LONG, ASHC, RETURN [1] 
5619 



T10KL.MCRC 10, 1 141 ] 15:34 27- JULY- 1984 MICRO 

FLT.MIC[10, 1141] 01 :46 20~MAR-1981 



D 01 12, 1 105, 1631 , 1 100 



U 1631, 2034,3442,0400,4174,4007,0700,2000,0071,0006 



U 2034, 2034,3444,0303,4174,4047,0630,2000,0060,0000 

U 2035, 3244,3446,1200,4174,4007,0700,0000,0000,0000 

U 3244, 3245,4662,0000,4374,0007,0700,0000,0007,7777 

U 3245 , 3246 ,3221, 0005 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3246, 
U 0623, 



0623 , 4557 , 0006 , 1 274 , 4007 , 0700 , 0000 , 0000 ,1441 
2774 , 3447 , 0606 , 4 1 74 , 4007 , 0700 , 20 10 , 007 1 , 0043 



U 0627, 0730,3442,0300,4174,4007,0700,2000,0071,0043 

U 0730, 2775,4443,0000,4174,4007,0700,0010,0000,0000 

U 0734, 3247,3441,0416,4174,4007,0700,0000,0000,0000 

U 3247, 3250,3227,0004,4174,4007,0700,2000,0011,0000 



U 3250, 2036,3777,0006,0274,4007,0521 , 1000,0040,2000 

U 2036, 0732,5547,0606,4374,4007,0701,0000,0077,7400 

U 2037, 0732,3547,0606,4374,4007,0701,0000,0077,7400 

U 0732, 2775,3442,0500,4174,4007,0700,2010,0071,0043 

U 0736, 3251 ,3221 ,0017,4174, 4007, 0700, 0000, 0000', 0000 

U 3251 , 1012,011 1 , 1604,4174,4007,0700,0000,0000,0000 



U 1012, 2775,3442,0300,4174,4007,0700,2010,0071,0043 



254) 
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5620 
5621 
5622 
5623 
5624 
5625 
5626 
5627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
5642 
5643 
5644 
5645 
5646 
5647 
5648 
5649 
5650 
5651 
5652 
5653 
5654 
5655 
5656 
5657 
5658 
5659 
5660 
5661 
5662 
5663 
5664 



. TOC "FLOATING POINT -- DFMP " 

. DCODE 

112: DBL FL-R, DAC , J/DFMP 

.UCODE 

; SAME ENTRY CONDITIONS AS DFAD/DFSB 
1631: 



DFMP: 
=0 

DFMP 1 : 



Q_[ARX] , SC 6 



;SHIFT MEM OP 8 PLACES 



[AR]_[AR]*2 LONG, ASHC, ;SHIFT 
STEP SC, J/DFMP 1 
G_Q* - 5 

Q__Q. AND. #, #/077777, HOLD RIGHT 

[BR 3 ;COPY LOW WORD 



BRX * BR ==> C(E+1) * C(AC+1) 



0** 
BRX * Q 



[BRX]_(AC[ 1 ] .AND. [MAG] )*.5 ; GET LOW AC 
[BRX]_[BRX]*.5, SC_35., CALL [MULSB1] 



=> C(E) * C(AC+1) 



0_[AR], SC_35. 
=0** CALL [MULTIPLY] 
[T0]_[ARX] 
[ARX] Q*.5, SC FE 



;G0 MULT NEXT HUNK 

;SAVE PRODUCT 
;PUT IN NEXT STEP 



BRX * BR ==> C(AC) * C(E+1) 

[BRX]_AC*.5, 
FE_SC+EXP, 
SKIP DPO, 3T 
5 [BRX3_+SIGN*,5, 3T , J/DFMP2 

[BRX] -SIGN*. 5, 3T 



; PREPARE TO DO HIGH HALF 
; EXPONENT ON ANSWER 



=0* * 
DFMP2: 



Q_[BR], SC_35., CALL [MULTIPLY] ; GO MULTIPLY 
[T1]_0 ;SAVE FOR ROUNDING 

[ARX]_[ARX]+[TO] ; PREPARE FOR LAST MUL 



BRX * Q ==> C(AC) * C(E) 

0** 0_[AR] , SC__35. , 
CALL [MULTIPLY] 



;D0 THE LAST MULTIPLY 




; T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; FLT.MICf 10, 1 141 ] 01:46 20-MAR-1981 



U 1016, 0243,3446,0403,4174,4007,0700,1000,0041,1576 

U 0243 , 2070 , 3333 , 00 1 7 , 4 1 74 , 4007 , 062 1 , 001 O , 0000 , 0000 

U 0263, 3252,3444,0303,4174,4047,0700,0000,0000,0000 

U 3252, 3253,3447,0705,4174,4007,0700,0000,0000,0000 

U 3253, 2040,4553,1700,4374,4007,0321,0000,0020,0000 

U 2040, 2041,0002,0500,4174,4007,0700,0000,0000,0000 

U 2041, 3254,3444,0303,4174,4047,0700,0000,0000,0000 

U 3254, 2042,4553,1700,4374,4007,0321,0000,0010,0000 

U 2042, 2043,0002,0500,4174,4007,0700,0000,0000,0000 



U 2043, 0520,3333,0003,4174,4003,4701,1000,0041,0002 



254) 
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5665 ;0K, WE NOW HAVE THE PRODUCT IN 

5665 ; IS SOME BIT DIDDLES TO GET EVE 

5667 [AR]_[ARX]*.5 LONG, 

5668 FE_FE+S#, S#/1576 

5669 =0**11 READ [T1], SKIP AD.EQ.O 

5670 CALL [SETSN] 

5671 [AR]_[AR]*2 LONG, ASHC 

5672 [BR]_[0NE]*.5 

5673 TL [T1 ] , #/200000 

5674 =0 0_0+[BR] 

5675 [AR]_[AR]*2 LONG, ASHC 

5676 TL [T1], #/ 100000 

5677 =0 Q_Q+[BR] 

5678 DNORMO: READ [AR], NORM DISP, 

5679 FE_FE+S#, S#/2, J/DNORM 
5680 



ARX!Q!T1. ALL WE NEED TO DO 
RYTHING IN THE RIGHT PLACE 

SHIFT THE ANSWER 

CORRECT EXPONENT 

;SEE IF LOW ORDER 1 
BITS AROUND SOMEPLACE 

SHIFT LEFT 

PLACE TO INSTERT BITS 
ANYTHING TO INJECT? 
YES- -PUT IT IN 
MAKE ROOM FOR MORE 
ANOTHER BIT NEEDED 
YES- -PUT IN LAST BIT 
SEE WHAT WE NEED TO DO 
ADJUST FOR INITIAL SHIFTS 



T10KL.MCR[ 10, 1 141 ] 
FLT.MIC[ 10, 1 141 ] 



15: 
01 ; 



34 
46 



27- JULY- 1984 
20-MAR-1981 



MICRO 



D 01 13, 1 105, 1636, 1 100 

U 1636, 0132,3441,0406,4174,4007,0700,0000,0000,0000 

U 0132, 2071 ,4221 ,0017,4174,4007,0700,0010,0000,0000 

U 0133, 2044,3441,0305,1174,4007,0421,0000,0000,1441 



U 2044, 3257,4557,0004, 1274,4007,0700,0000,0000, 1441 
U 2045, 3255,7441 , 1717,4174,40O7,070O,00O0,O00O,O0O0 
U 3255 , 3256 , 244 1 , 0606 ,4174, 4007 , 0700 , 4000 , 0000 , OOOO 



U 3256, 2044,2331,0005,1174,4007,0521,0040,0000,1441 



U 3257, 2046,3777,0003,0274,4007,0521 , 1000,0030,2000 

U 2046, 2050,5547,6303,4374,4007,0701,0000,0077,7400 

U 2047, 3260,7441,1717,4174,4007,0700,0000,0000,0000 

U 3260, 3261,3547,0303,4374,4007,0701,0000,0077,7400 

U 3261, 3262,2442,0400,4174,4007,0700,4000,0000,0000 



U 3262 , 205 1 , 2446 , 0303 ,4174, 4047 , 0700 , 0040 , 0000 , 0000 



U 2050, 3035,3442,0400,4174,4007,0700,0010,0000,0000 

U 205 1 , 2052 ,2113, 0305 ,4174, 4007 , 052 1 , 4000 , 0000 , 0000 

U 2052, 0603,4443,0000,4174,4467,0700,0000,0071,1000 

U 2053 , 1 054 ,3221, 0004 ,4174, 4007 , 0700 , OOOO , 0000 , 0000 

U 1054 , 1 276 , 4222 , 0000 ,4174, 4007 , 0700 , 2010 , 007 1 , 0032 

U 1056, 1064,3221 ,0016,4174,4007,0700,2000,0071 ,0043 



U 1064, 
U 1066, 



1 276 , 5002 , OOOO, 4 1 74 , 4007 , 062 1 , 0010 , 0000 , OOOO 
3263 , 3446 , 1 200 ,4174, 4007 , 0700 , OOOO , OOOO , OOOO 



U 3263, 0513,3444,1616,4174,4046,2700,0000,0000,0000 



U 0513, 
U 0517, 



2054 , 3333 , 001 7,4174, 4007 , 0520 , 1 000 , 003 1 , 0202 
05 1 3 , 0222 , OOOO ,4174, 4007 , 0700 , 4000 , OOOO , OOOO 



U 2054, 0520,3441,1603,4174,4003,4701,0000,0000,0000 
U 2055, 0200,3441,1603,4174,4003,4701,0000,0000,0000 
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5681 .TOC "FLOATING POINT -- DFDV" 

5682 

5683 . DCODE 

5684 113: DBL FL-R, DAC , J/DFDV 

5685 ,'UCODE 

5686 1636 : 

5687 DFDV: [BRX]_[ARX] ;COPY OPERAND (COULD SAVE TIME 

5688 ; WITH SEPERATE A-READ FOR DFDV) 

5689 =1**10 [T1]_0, CALL [CLRSN] ; CLEAR FLAG 

5690 [BR3_[AR3, SKIP AD.LE.O, ;SEE IF POSITIVE 

5691 AC[ 1 3 ; WARM UP RAM 

5692 =0 

5693 DFDV1: [ ARX 3_( AC [ 1 3 - AND . [MAG 3 ) * . 5 , ; POS I T I VE - -GET AC 

5694 J/DFDV2 ; AND CONTINUE BELOW 

5695 t T 1 3_.N0T. [T1 3 ; DV ' SOR NEGATIVE (OR ZERO) 

5696 [BRX3_-[BRX3 ; NEGATE LOW WORD - 

5697 AD/-B-.25, B/BR , DEST/AD, ; NEGATE HIGH WORD 

5698 MULTI PREC/1, 3T , ; ADDING IN CRY02 

5699 SKIP DPO, AC [ 1 ] , ;SEE IF STILL NEGATIVE 

5700 J/DFDV 1 ; . . 

5701 DFDV2: [AR]_AC*.5, ; GET AC AND SHIFT 

5702 FE_SC-EXP, 3T , ; COMPUTE NEW EXPONENT 

5703 SKIP DPO ;SEE IF NEGATIVE 

5704 =0 [AR3__+SIGN*.5, 3T , J/DFDV3 ;POSITIVE 

5705 [T1 3__-N0T. [T1 3 ; NEGATIVE OR ZERO 

5706 [AR3__-SIGN*.5, 3T ;SIGN SMEAR 

5707 Q_-[ARX3 ; NEGATE OPERAND 

5708 [AR3_(-[AR3-.25)*.5 LONG, ; NEGATE HIGH WORD 

5709 MULTI PREC/1, ;USE SAVED CARRY 

5710 ASHC, J/DFDV4 ; CONTINUE BELOW 

5711 =0 

5712 DFDV3 : G.JARX3, ;COPY OPERAND 

5713 CALL EDDIVS3 ;SHIFT OVER 

5714 DFDV4: [AR3"[BR3, 3T , SKIP DPO ;SEE IF OVERFLOW 

5715 =0 FL NO DIVIDE 

5716 [ARX]_Q ; START DIVISION 

5717 =0* Q_0, SC_26., CALL [DBLDI V 3 

5718 [T03_0, SC_35. 

5719 =0* 0_Q . AND . NOT . [ MAG ] , ;SEE IF ODD 

5720 SKIP AD.EQ.O, ;SKIP IF EVEN 

5721 CALL [DBLDI V 3 ; GO DIVIDE 

5722 0_0*.5 ;MOVE ANSWER OVER 

5723 = 

5724 [T0]_[T0]*2 LONG, ASHC, ; DO FIRST NORM STEP 

5725 MUL DISP ; SEE IF A 1 FELL OUT 

5726 =101 1 

5727 DFDV4A: READ [T1], SKIP DPO, ; SHOULD RESULT BE NEGATIVE 

5728 FE_S#-FE, S#/202 , ;CORRECT EXPONENT 

5729 J/DFDV4B ; LOOK BELOW 

5730 Q_0+.25, J/DFDV4A ; PUT BACK THE BIT 

5731 =0 

5732 DFDV4B: [AR3„[T03, NORM DISP, J/DNORM ;PLUS 

5733 [AR]_[TO], NORM DISP, J/DNNORM ;MINUS 

5734 



T10KL.MCR[ 10, 1 141 ] 
FLT.MICt 10, 1141] 



15:34 27-JULY-1984 
01 :46 20-MAR-1981 



MICRO 



U 0520, 0520,3444,0303,4174,4043,4701,1000,0041,1777 

U 0521 , 2060,4553, 1300,4374,4007,0321 ,0000,0000,2000 

U 0522, 0312,3333,0003,4174,4003,4701,0010,0000,0000 

U 0523, 2060,4553, 1300,4374,4007,0321 ,0000,0000,2000 

U 0524, 0312,3446,0303,4174,4047,0700,1010,0041,0001 

U 0525, 2060,4553,1300,4374,4007,0321,0000,0000,2000 

U 0526, 0312,3446,0303,4174,4047,0700,1010,0041,0001 

U 0527, 2060,4553,1300,4374,4007,0321,0000,0000,2000 

U 0530 , 3265 , 4002 , 0000 ,4174, 0007 , 0700 , 0000 , 0000 , 0000 

U 0536, 3264,4221,0013,4174,4007,0700,0000,0000,0000 



U 3264, 1515,41 13,0400, 1 174,4007,0700,0400,0000, 1441 



U 3265 , 2056 , 3223 , 0000 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 



U 2056, 0520,3444,0303,4174,4043,4701,1000,0041,1777 
U 2057, 1515,3440,0303, 1 1 74 , 4007 , 0700 , 0400 , 0000 , 1441 



254) 



5735 
5736 
5737 
5738 
5739 
5740 
574 1 
5742 
5743 
5744 
5745 
5746 
5747 
5748 
5749 
5750 
5751 
5752 
5753 
5754 
5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
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.TOC 



'FLOATING POINT 



DOUBLE PRECISION NORMALIZE" 



NORMALIZE AR ! 
DNORMO: 



=0000 
DNORM: 



= 1 1 10 



READ [AR], NORM DISP, ;SEE WHAT WE NEED TO DO 
FE_FE+S#, S#/2, J/DNORM ;ADJUST FOR INITIAL SHIFTS 



[AR]_[AR]*2 LONG, 
FE_FE - 1 , ASHC, 
NORM DISP, J/DNORM 
TL [FLG3, FLG.SN/1, 
READ [AR] , NORM DISP, 
CALL [DROUND] 
TL [FLG], FLG.SN/1, J/DNEG 
[AR]_[AR]*.5 LONG, ASHC, 
FE_FE+ 1 , CALL [DROUND] 
TL [FLG], FLG.SN/1, J/DNEG 
[AR]_[AR]*.5 LONG, ASHC, 
FE_FE+ 1 , CALL [DROUND] 
TL [FLG], FLG.SN/1, J/DNEG 
Q_[MAG] . AND . , 
HOLD RIGHT, J/DNORM 1 
[FLG] 



;SHIFT LEFT 
; ADJUST EXPONENT 
; TRY AGAIN 
J/DNEG ; RESULT IS NEGATIVE 



;SEE IF WE WENT TOO 
: AND ROUND ANSWER 



FAR 



,-RESULT IS NEGATIVE 



; RESULT IS NEGATIVE 



RESULT IS NEGATIVE 
HIGH WORD IS ZERO 
GO TEST LOW WORD 
[122] CLEAR FLAG WORD 



AC[ 1 ]_[ARX] .AND. [MAG] , 
J/STAC 



; STORE LOW WORD 
;G0 DO HIGH WORD 



DN0RM1: READ Q, SKIP AD . EQ . 
=0 [AR]_[AR]*2 LONG, 

FE_FE - 1 , ASHC, 
NORM DISP, J/DNORM 
AC[ 1 ]_[AR] , J/STAC 



TEST LOW WORD 

LOW WORD IS NON-ZERO 

ADJUST EXPONENT 

KEEP LOOKING 

WHOLE ANSWER IS ZERO 



T10KL.MCR[ 10, 1 141 ] 15:34 27- JULY - 1984. MICRO 

FLT.MIC[ 10, 1141] 01:46 20-MAR-1981 



U 2060 , 3266 , 7222 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
U 2061, 2062,2222,0000,4174,4007,0511,4000,0000,0000 
U 3266, 2062,4221,0013,4174,4007,0700,0000,0000,0000 



U 2062, t 0200,7441,0303,4174,4003,4701,0000,0000,0000 
U 2063, 0200,2441,0303,4174,4003,4701,4000,0000,0000 



U 020O, 0200,3444,0303,4174,4043,4701,1000,0041,1777 

U 0202, 0312,3333,0003,4174,4003,4701,0010,0000,0000 

U 0204, 0312,3446,0303,4174,4047,0700,1010,0041,0001 

U 0206, 0312,3446,0303,4174,4047,0700,1010,0041,0001 

U 02 1 O , 3271, 4002 , 0000 ,4174, 0007 , 0700 , 0000 , OOOO , 0000 

U 0216, 0630,4111,1204,4174,4007,0700,0000,0000,0000 

U 0630, 3272,41 1 1 ,0004,4174,4007,0700,0010,0000,0000 

U 0632, 3267,6111,0004,4174,4007,0700,0000,0000,0000 

U 0633 , 2064 ,2441, 0404 ,4174, 4007 , 056 1 , 4000 , 0000 , 0000 

U 3267 , 2064 , 422 1 , 00 1 3 , 4 1 74 , 4007 , 0700 , OOOO , 0000 , 0000 

U 2064, 3270,7333,0003,0174,4007,0700,0400,0000,0000 

U 2065, 3270,2443,0300,0174,4007,0701,4400,0000,0000 

U 3270, 0100,4113,0400,1174,4156,4700,0400,0000,1441 

U 3271 , 2066,3223,0000,4174,4007,0621 ,0000,0000,0000 



U 2066, 0200,3444,0303,4174,4043,4701,1000,0041,1777 
U 2067 , 1515, 3440 , 0303 ,1174, 4007 , 0700 , 0400 , OOOO ,1441 



\ 
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5768 ; HERE TO NORMALIZE NEGATIVE D.P. RESULTS 

5769 =0 

5770 DNEG: Q_.NOT.Q, J/DNEG1 ;ONES COMP 

5771 Q_-Q, SKIP CRY 2 , J/DNEG2 

5772 DNEG1: [FLG]_0 

5773 =0 

5774 DNEG2: [ AR ]_ . NOT . [ AR ] , ; NO CARRY 

5775 NORM DISP, J/DNNORM ; GO NORMALIZE 

5776 [AR]_-[AR3, ; CARRY 

5777 NORM DISP, J/DNNORM ; NORMALIZE 
5778 

5779 =000* 

5780 DNNORM: [AR]_[AR]*2 LONG, ;SHIFT 1 PLACE 

5781 FE_FE - 1 , ASHC, ; AD JUST EXPONENT 

5782 NORM DISP, J/DNNORM ; LOOP TILL DONE 

5783 =001* READ [AR], NORM DISP, ;SEE IF WE WENT TOO FAR 

5784 CALL [DROUND] ; AND ROUND ANSWER 

5785 =010* [ARJ_[AR]*.5 LONG, ASHC, 

5786 FE_FE+ 1 , CALL [DROUND] 

5787 =011* [AR]_[AR]*.5 LONG, ASHC, 

5788 FE_F'E+1, CALL [DROUND] 

5789 =100* 0_[ MAG] . AND . , ; HIGH WORD IS ZERO 

5790 HOLD RIGHT, J/DNNRM 1 ; GO TEST LOW WORD 

5791 =111* [ARX]_[ARX] .AND. [MASK] ; REMOVE ROUNDING BIT 

5792 = 

5793 =00 [ARX]_[ARX] . AND. [MAG] , ;ALSO CLEAR SIGN 

5794 CALL [CHKSN] ;ONES COMP? 

5795 =10 [ARX]_[ARX] . XOR . [MAG] , ; YES- -ONES COMP 

5796 J/DNN1 ;CONTINUE BELOW 

5797 =11 [ARX]_-[ARX] , 3T , ; NEGATE RESULT 

5798 SKIP CRY 1 , J/DNN2 

5799 = 

5800 DNN1: [FLG]_0 ; CLEAR FLAG 

5801 =0 

5802 DNN2: AC_ . NOT . [ AR ] , J/DN0RM2 

5803 AC_-[AR], 3T 

5804 DN0RM2: AC [ 1 ]_[ ARX ] . AND . [MAG] , ; STORE LOW WORD 

5805 NEXT INST ; ALL DONE 
5806 

5807 DNNRM1: READ 0, SKIP AD.EQ.O ; TEST LOW WORD 

5808 =0 [AR]_[AR]*2 LONG, ; LOW WORD IS NON-ZERO 

5809 FE_FE - 1 , ASHC, ; ADJUST EXPONENT 

5810 NORM DISP, J/DNNORM ; KEEP LOOKING 

5811 AC[1]_JAR], J/STAC ; WHOLE ANSWER IS ZERO 
5812 



o 

; T10KL.MCR[ 10, 1 141 ] 15 : 34' 27- JULY- 1984 MICRO 

; FLT.MICE 10, 1 141 ] 01:46 20-MAR-1981 

U 3272, 0002,4553,1300,4374,4004,1321,0000,0000,2000 



U 2070, 0023,3551,1313,4374,0004,1700,0000,0000,2000 
U 2071, 0023,5551,1313,4374,0004,1700,0000,0000,2000 



U 0312, 0462,0007,0704,4174,4007,0511,0000,0000,0000 

U 0316, 0312,3446,0303,4174,4047,0700,1000,0041,0001 

U 0462, 0016,3770,0303,4324,0454,1700,0000,0041,0000 

U 0463, 0462,0441,0303,4174,4003,4701,4000,0000,0000 

U 0466, 0462,3447,6303,4174,4007,0700,1000,0041,0001 
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5813 CHKSN: TL [FLG], FLG.SN/1, RETURN [2] 
5814 

5815 ;SUBROUTINE TO SET/CLEAR FLG.SN 

5816 ; CALL WITH: 

5817 ; CALL [ SETSN] , SKIP IF WE SHOULD CLEAR 

5818 ; RETURNS 23 

5819 =0 

5820 SETSN: [ FLG]_[ FLG] . OR . U , FLG.SN/1, HOLD RIGHT, RETURN [23] 

5821 CLRSN: [ FLG ]__[ FLG ] . AND . NOT . # , FLG.SN/1, HOLD RIGHT, RETURN [23] 

5822 
5823 

5824 ; SUBROUTINE TO ROUND A FLOATING POINT NUMBER 

5825 ; CALL WITH: 

5826 ; NUMBER IN AR ! AND NORM DISP 

5827 ; RETURNS 16 WITH ROUNDED NUMBER IN AR ! ARX 

5828 ; 

5829 =*01* 

5830 DROUND: [ ARX ]_( 0+ 1 ) * . 5 , ; ROUND AND SHIFT 

5831 SKIP CRY2, ;SEE IF OVERFLOW 

5832 J/DRND1 ; COMPLETE ROUNDING 

5833 [AR]_[AR]*.5 LONG, ;WE WENT TOO FAR 

5834 FE_FE+ 1 , ASHC, J/DROUND ; SHIFT BACK AND ROUND 

5835 = *010 

5836 DRND1: [AR]__EXP, RETURN [16] ; NO OVERFLOW 

5837 =011 [AR]_[AR]+.25, ; ADD CARRY (BITS 36 AND 37 

5838 ; ARE COPIES OF BITS) 

5839 NORM DISP, ;SEE IF OVERFLOW 

5840 J/DRND1 ; .. 

5841 =110 [AR]_[AR]*.5, ;SHIFT RIGHT 

5842 FE_FE+1 , ; KEEP EXP RIGHT 

5843 J/DRND1 ; ALL SET NOW 



5844 = 
5845 



; T10KL.MCR[10, 1141] 15:34 27-JULY-1984 

; EXTEND. MIC[10, 1141] 1 1 : 35 26-UULY- 1984 



D 


0001 , 


0001 , 


1740,2100 


D 


0002 , 


0002 , 


1740, 2 100 


D 


0003, 


0003, 


1740,2100 


D 


0004, 


0002, 


1741 ,2100 


D 


0005, 


0005, 


1740,2100 


D 


0006, 


0006, 


1740,2100 


D 


0007 , 


0007 , 


1 740 , 2 100 





0010, 


0001 , 


1742,2100 


D 


001 1 , 


0004, 


1742,2100 


D 


0012, 


0001 , 


1743,2100 


D 


0013, 


0000, 


1743,2100 


D 


0014, 


0001 , 


1744,2100 


D 


0015, 


0000, 


1744,2100 


D 


0016, 


0002, 


1744,2100 


D 


0017, 


0003, 


1744,2100 


D 


0020, 


0000, 


1746,2100 


D 


002 t, 


oooo, 


1747,2100 


D 


0022, 


0000, 


1750,2100 


D 


0023, 


0000, 


1751 ,2100 


D 


0024, 


0001 , 


1751 ,2100 


D 


0025, 


0002, 


1751 ,2100 


D 


O026, 


0004, 


1751 ,2100 


D 


0027, 


0010, 


1751 ,2100 
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5846 


.TOC 


" EXTEND 


-- DI 


5847 








5848 




. DCODE 




5849 


001 : 


I , 


SJCL, 


5850 




I , 


SJCE, 


5851 




I , 


SJCLE 


5852 




I , 


B/2, 


5853 




I , 


SJCGE 


5854 




I , 


SJCN, 


5855 




I , 


SJCG, 


5856 








5857 


010: 


I , 


B/1 , 


5858 




I , 


B/4 , 


5859 




I , 


B/1 , 


5860 




I , 


B/0, 


5861 








5862 


014: 


I , 


B/1 , 


5863 




I , 


B/0, 


5864 




I , 


B/2, 


5865 




' I , 


B/3, 


5866 








5867 


020: 


I , 




5868 




I , 




5869 




I , 




5870 




I , 


B/0, 


5871 




I , 


B/1, 


5872 




I , 


B/2, 


5873 




I , 


B/4, 


5874 




I , 


B/10, 


5875 


;30: 







5876 

5877 .UCODE 
5878 



SPATCH ROM ENTRIES 



J/L 


-CMS 




0/ L 






J/L 


-CMS 




J/L 


-EDIT 




J/L 


-CMS 




J/L 


-CMS 




W L 


-pMC 
V-.IVIO 




J/L 


-DBIN 


CVTDBO 


J/L 


-DBIN 


CVTDBT 


J/L 


-BDEC 


CVTBDO 


J/L 


-BDEC 


CVTBDT 


J/L 


-MVS 


MOVSO 


J/L 


-MVS 


MOVST 


J/L 


-MVS 


MOVSLJ 


J/L 


-MVS 


MOVSRJ 


J/L 


-XBLT 


XBLT 


J/L 


-SPARE-A 


GSNGL 


J/L 


-SPARE-B 


GDBLE 


J/L 


-SPARE-C 


GDFIX 


J/L 


-SPARE-C 


GFIX 


J/L 


-SPARE-C 


GDFIXR 


J/L 


-SPARE-C 


GFIXR 


J/L 


-SPARE-C 


DGFLTR 






GFLTR 






GFSC 



T10KL.MCR[ 10, 1 141 ] 
EXTEND. MIC[ 10, 1141] 



15:34 27-JULY-1984 
11 :35 26- JULY- 1984 
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5879 


1 740 : 




u 


1 740 


0400 47 R1 


1 90^ 4^74 4007 0700 OOOO OOOO 0040 


5880 


L -CMS : 


LUU0 










588 1 


1 74 1 : 




y 


1 74 1 


0400 47R 1 


lOAQ 4*374 4AD7 07HH OOOO ODHA 0040 


5882 


I -FDTT ■ 

L_ CUl 1 . 


i ! ii in 

LUUU 










5883 


1742' 




u 


1 742 


0400 47 C M 


1909 4^74 4007 0700 OOOO OOOO 0040 


5884 


L -DB I N : 


LUU0 










5885 


1 743 : 




y 


1 743 


0400 47R1 


190^ 4T74 4007 0700 OOOO OOOO 0040 


5886 


L -BDEC : 


LUU0 










5887 


1 744 : 




y 


1 744 , 


0400 4751 


1203 4374 4007 0700 0000 0000 0040 


5888 


L -MVS : 


LUU0 










5889 


1746 : 




U 


1746, 


0400,4751 


1 203 , 4374 , 4007 , 0700 , 0000 , 0000 , 0040 


5890 


L-XBLT: 


LUUO 










5891 


1747 : 




U 


1747, 


0400,4751 


1 203 , 4374 , 4007 , 0700 , 0000 , 0000 , 0040 


5892 


L-SPARE 


-A: LUUO 










5893 


1750: 




U 


1750 ? 


0400,4751 


1 203 , 4374 , 4007 , 0700 , 0000 , 0000 , 0040 


5894 


L-SPARE 


-B: LUUO 










5895 


1751 : 




U 


1751 , 


0400,4751 


1 203 , 4374 , 4007 ,0700 , 0000 , 0000 , 0040 


5896 


L-SPARE 


-C: LUUO 



5897 

5898 ; NOTE : WE DO NOT NEED TO RESERVE 3746 TO 3751 BECAUSE THE CODE 

5899 ; AT EXTEND DOES A RANGE CHECK. 
5900 



T10KL . MCR[ 10,1141] 15:34 27-UULY-1984 

EXTEND. MIC[ 10, 1 141 3 ' 11:35 26-JULY-1984 



MICRO 



D 0123, 0000,1467,3100 

U 1 467 , 1 022 , 377 1 , 0005 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 1022, 3556,4553,0500,4374,4007,0321,0010,0076,0740 

U 1026 , 3273 ,4521, 0206 , 4374 , 4007 , 0700 , 0000 , OOOO , 0740 

U 3273, 3274,31 1 1 ,0605,4174,0417,0700,0000,0000,0000 

U 3274 , 3275 , 3333 , 0005 ,4174,4217, 0700 , 0000 , 0000 , 0500 

U 3275 , 3276,3333, 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 0240 

U 3276, 0170,4443,0000,2174,4006,6700,0000,0000,0000 

U 0170, 0172,0551,0505,2270,4007,0700,0000,0000,0000 

U 0172, 0556,5741,0505,4174,4003,7700,0200,0000,0010 

U 0174, 3277 , 055 1 , 0505 , 2270 , 4007 ,0700 , 0200 ,0004 , 05 1 2 

U 0176, 3277,3443,0500,4174,4007,0700,0200,0004,0512 

U 3277, 3276,3771,0005,4361,5217,0700,0200,0000,0502 



U 0556, 3400,3333,0005,7174,4001,2700,0400,0000,0241 

U 0557 , 2072 , 3333 , 0005 ,4174, 4007 , 0530 , 0000 , 0000 , 0000 

U 2072 , 3400 , 3333 , 0005 ,7174, 400 1 , 2700 , 0400 , 0000 ,0241 

U 2073, 0556,3771,0005,4374,0007,0700,0000,0077,7777 
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5901 .TOC "EXTEND INSTRUCTION SET DECODING" 
5902 

5903 ; EACH INSTRUCTION IN THE RANGE 1-23 GOES TO 1 OF 2 PLACES 

5904 ; 1740-1747 IF NOT UNDER EXTEND 

5905 ; 3740-3747 IF UNDER EXTEND 

5906 

5907 . DCODE 

5908 123: I. RE AD/ 1, J/EXTEND 

5909 .UCODE 
5910 

5911 1467: 

5912 EXTEND: MEM READ, [BR ]_MEM ; FETCH INSTRUCTION 

5913 =0** TL [BR], #/760740, ; IN RANGE 0-17 (AND AC#=0) 

5914 CALL [BITCHK] ; TRAP IF NON-ZERO BITS FOUND 

5915 [BRX]_[HR] . AND. # CLR RH, ;SPLIT OUT AC NUMBER 

5916 #/000740 ; FROM EXTEND INSTRUCTION 

5917 [BR]_[BR] .OR. [BRX] , ; LOAD IR AND AC # 

5918 HOLD RIGHT, LOAD IR ; 

5919 READ [BR], LOAD BYTE EA, ; LOAD XR ft 

5920 U/EXTEAO ; COMPUTE E1 
5921 

5922 EXTEAO: WORK [ E0]__[ AR ] 

5923 EXTEA1: EA MODE DISP 

5924 =100* 

5925' EXTEA: [BR]_[BR]+XR 

5926 EXTDSP: [BR]_EA FROM [BR], LOAD VMA , 

5927 B DISP, J/EXTEXT 

5928 [BR]_[BR]+XR, START READ, PXCT EXTEND EA , LOAD VMA, J/EXTIND 

5929 VMA__[ BR ] , START READ, PXCT EXTEND EA 

5930 

5931 EXTIND: MEM READ, [ BR ]_MEM , HOLD LEFT, LOAD BYTE EA, J/ EXTEA 1 

5932 

5933 ; HERE TO EXTEND SIGN FOR OFFSET MODES 

5934 =1110 

5935 EXTEXT: WORK [ E 1 ]_[ BR ] , ; SAVE E1 

5936 DISP/DROM, U/3400 ; GO TO EXTENDED EXECUTE CODE 

5937 READ [BR], SKIP DP18 ; NEED TO EXTEND SIGN 

5938 =0 WQRK[E1 ]_[BR] , ;POSITIVE 

5939 DISP/DROM, J/3400 

5940 [BR]__#, #/777777, HOLD RIGHT, '.NEGATIVE 

5941 d/ EXT EXT 
5942 



o 

; T10KL.>rci?[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; EXTEND. MIC[ 10, 1 141 ] 11:35 26-JULY-1984 



U 3744, 3472,0111,0703,4174,4007,0700,0210,0004,0012 

U 3754, 2100,3771 ,0005, 1 276 , 6007 , 0701 , 0000, 0000 , 1443 

U 2 100 , 3556 , 4553 , 0500 , 4374 , 4007 , 032 1 , 00 10 , 0077 , 7000 

U 2104, 2074,3771,0003,0276,6007,0700,0000,0000,0000 



U 2074 , 3474 , 452 1 , 0306 , 4374 , 4007 , 0700 , 00 10 , 0077 , 7000 



U 2075 , 2076 ,2113, 0305 ,1174, 4007 , 052 1 , 4400 , 0000 ,1443 

U 2076 , 3300 , 744 1 , 0503 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2077 , 3300 , 744 1 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3300, 0574,3333,0003,7174,4003,7700,0400,0000,0242 



U 0574, 0500,3771,0013,4370,4007,0700,0000,0000,0003 
U 0575', 3301,3771,0005,1276,6007,0701,0000,0000,1444 

U 0576 , 3321, 344 1 , 0304 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 0577, 0650,3771,0004,1276,6007,0522,0000,0000,1443 

U 3301, 3302,3333,0005,4174,4007,0700,1000,0041,6020 

U 3302, 2101,4222,0000,4174,4006,7701,1000,0041,1770 

U 2101 , 2101 ,4224.0003,4174,4026,7701 , 1000,0041 , 1770 

U 2103, 3303,7221,0003,4174,4007,0700,0000,0000,0000 



U 3303, 0507,4113,0312,7174,4007,0700,0400,0000,0243 
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5943 
5944 
5945 
5946 
5947 
5948 
5949 
5950 
5951 
5952 
5953 
5954 
5955 
5956 
5957 
5958 
5959 
5960 
5961 
5962 
5963 
5964 
5965 
5966 
5967 
5968 
5969 
5970 
5971 
5972 
5973 
5974 
5975 
5976 
5977 
5978 
5979 
5980 
5981 
5982 
5983 
5984 
5985 
5986 
5987 



.TOC 



"EXTEND -- MOVE STRING 



SETUP" 



HERE TO MOVE A STRING 
COME HERE WITH: 

AR/ EO 

BR/ E1 



3744: 
MVS: 



3754: 
=0** 



MVS 1 : 

; SLEN 
= 1 100 



MVSO: 

=0* 
MVS0 1 



[AR]_[AR]+1, 

LOAD VMA, 

START READ, 

CALL [GTFILL] 

[BR]_AC[DLEN] 

TL [BR], #/777000, 

CALL [BITCHK] 

[AR]_AC 

[ BRX ]_[ AR ] . AND . # CLR RH, 

#/777000, 

CALL [CLRFLG] 

AC[DLEN]_[AR]-[BR] , 3T , 
SKIP DPO 
[AR]_.NOT. [BR] , 
J/MVS1 

[AR]_.NOT. [AR] 
WORK[SLEN]__[AR] , 
. B DISP 

NOW HAS -<LEN OF SHORTER 

STATE_[SRC], J/MOVE^P 

[BR]_AC[DSTP] , J/MVSO 

[ARX]_[AR] , 

J/MOVSTO 

[ ARX ]_AC [ DLEN ] , 

SKIP DPO, 4T, 

J/MOVRJ 

READ [BR], FE_S+2 
0, BYTE STEP 



BYTE STEP, 



GO FETCH FILL 
BYTE 

SUBROUTINE TO COMPLETE 
GET DEST LENGTH AND FLAGS 
ANY FLAGS SET? 
SEE IF ILLEGAL 

GET SRC LENGTH AND FLAGS ^i c/v 
;COPY FLAGS TO BRX 

CLEAR FLAGS IN AR -/t^ 

NEW DLEN IS <SRC LEN>-<DST LEN^ 

COMPUTE DIFFERENCE — 

WHICH IS SHORTER? 

DESTINATION 

GET NEGATIVE LENGTH 



SOURCE 



SEE WHAT TYPE OF MOVE 
STRING>- 1 



If / 



TRANSLATE - -ALL SET 
OFFSET BUILD MASK 
LEFT JUSTIFY 

RIGHT JUSTIFY — 
WHICH IS SHORTER? 



; GET DST BYTE SIZE 
;BUILD AN S BIT MASK 



J/MVSO 1 

BITS WHICH MUST NOT BE SET 



GEN MSK [AR] 
[AR]_.NOT.Q 

WORK[MSK]_[AR] .AND. [MASK] , ; SAVE FOR SRCMOD 
J/MOVLPO ;G0 ENTER LOOP 



; T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; EXTEND .MIC[10,1141] 11:35 26-JULY- 1984 



U 0500 , 1 1 1 4 , 055 1 , 0703 , 7274 , 4007 , 070 1 , 00 1 , 0000 , 0242 

U 0501 , 1020,3441 ,03O4,4174,40O7,O520,0000,000O,0O0O 

U 0504, 3304,1771,0003,7274,4007,0701,4000,0000,0242 

U 0505, 3464,3771,0013,4370,4007,0700,0010,0000,0005 

U 0507, 05O0,3771,0013,4370,4007,0700,0000,Q000,00O3 



U 3304, 2106,3771,0005,1276,6007,0522,0000,0000,1443 

U 2106, 3305,3440,0303,1174,4007,0700,0400,0000,1443 

U 2107, 2106,1111,0503,4174,4007,0700,4000,0000,0000 

U 3305, 3306,7771,0003,7274,4007,0701,0000,0000,0242 

U 3306, 2110,3333,0005,4174,4007,0520,0000,0000,0000 

U 21 10, 2111,0111 ,0503,4174,4007,0700,0000,0000,0000 

U 2111, 3307,3111,0603,4174,4007,0700,0000,0000,0000 

U 3307, 1515,4221 ,0013,4170,4007,0700,0000,0000,0000 
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5988 
5989 
5990 
5991 
5992 
5993 
5994 
5995 
5996 
5997 
5998 
5999 
6000 
6001 
6002 
6003 
6004 
6005 
6006 
6007 
6008 
6009 
6010 
601 1 
6012 
6013 
6014 
6015 
6016 
6017 
6018 



.TOC 



" EXTEND -- MOVE STRING OFFSET/TRANSLATE' 



; HERE IS THE LOOP FOR OFFSET AND TRANSLATED MOVES 
=000 

MOVELP: [AR]_W0RK[SLEN]+1 , 

CALL [SRCMOD] 
=001 [ARX]_[AR3, SKIP DPO, 

J/M0VST2 
=100 [AR]_-WORK[SLEN] , 

U/MVABT 

STATE_[SRC+DST] , 
CALL [PUTDST] 



UPDATE STRING LENGTH 
GET A SOURCE BYTE 
(1) LENGTH EXHAUSTED 

SEE IF FILL IS NEEDED 
(4) ABORT 



= 111 

MOVLPO: STATE__[SRC] , J/MOVELP 



(5) NORMAL- -STORE DST BYTE 
(7) DPB DONE 



; HERE TO ABORT A STRING MOVE DUE TO TRANSLATE OR OFFSET FAILURE 



MVABT: 
=0 

MVABT 1 : 



MVABT2 : 



=0 

MVEND : 



[BR]__AC[DLEN] , 
SKIP DPO, 4T 

AC[DLEN]__[ AR] , J/MVABT2 
[AR]_[AR]-[BR] , 
U/MVABT 1 

r AR ]_.. NOT , WORK [ SLEN J 
READ [BR] , SKIP DPO 
[AR3„EAR3+[BR3 
[AR3_[AR3 .OR; [BRX3 
END STATE, J/STAC 



;WHICH STRING IS LONGER 



PUT AWAY DEST LEN 
DEST LEN WAS GREATER 
STICK BACK IN AC 

GET UNDECREMENTED SLEN 
NEED TO FIXUP SRC? 
SRC LONGER BY (DLEN) 
PUT BACK SRC FLAGS 
ALL DONE 



o 

T 10KL . MCR [10, 1141] 
EXTEND. MIC[ 10, 1141] 



15:34 27-JULY-1984 
11 :35 26- JULY- 1984 



MICRO 



U 0650, 3310,3771,0003,1276,6007,0701,0000,0000,1441 

U 0651 , 2301 ,3771 ,0013,4370,4007,0700,0010,0000,0006 

U 0653, 3322,0551,0704,7274,4007,0701,0000,0000,0242 

U 3310, 21 12,3440,0303, 1 1 74 , 4007 , 0670, 0400 , 0000 , 1441 

U 2112, 3313,3333, 0003 ,7174, 4007 , O70O , 0400 , 0000 , 02 1 1 
rrupt. 

U 2113, 2114,1111,0704,4174,4007,0521,4000,0000,0000 

U 2114, 0750,3770,0305,4334,4016,7371,0000,0033,6000 

U 2115, 0546,4223,0000,1174,4007,0700,0400,0000,1443 

U 0750, 3310,3441,0503,4174,4007,0700,0000,0000,0000 

U 0751, 3311,7771,0003,7274,4007,0701,0000,0000,0242 

U 0752 , 3312, 3770 , 0503 ,4334,4017, 0700 , 0000 , 0032 , 6000 

U 0753, 331 1 ,7771 ,0003,7274,4007,0701 , 0000 , 0000 , 024 2_ 

U 331 1 , 21 16,3440,0303, 1 174,4007,0700,0400,0000, 144F 

U 2116, 3677 ,0111, 0403 , 4 1 74 , 4007 , 0700 , 0010 , 0000 , 0000 

U 2117, 3733,31 13,0306,0174,4007,0700,0400,0000,0000 

U 3312, 3310,01 1 1 ,0703,4170,4007,0700,0000,0000,0000 



U 3313, 3314,3333,0005,7174,4007,0700,0400,0000,0213 

U 3314, 3315,3333, 0004 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 2 

U 3315, 2120,3333,0006,7174,4007,0700,0400,0000,0214 

U 21 20, 3573,4443, 0000 , 4 1 74 , 4007 , 0700 , 00 1 O , 0000 , 0000 

U 2122, 3316,3771,0003,7274,4007,0701,0000,0000,0211 

U 3316, 3317,3771,0005,7274,4007,0701,0000,0000,0213 

U 3317, 3320,3771,0004,7274,4007,0701,0000,0000,0212 

U 3320, 3310,3771 ,0006,7274,4007,0701 ,0000,0000,0214 
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CA9D 




602 1 


-on 




Mn\/D. | 
|VIU V KU 


6023 




6024 






- 1 1 


OUZO 




CAO "7 

ou<i / 






, ntKt 




m VbKK 




= 


dUo i 








DUOO 


-U 






6035 




6036 








6038 




6039 


-AA 

— \J\J 




M\/Cl/p 

l»i V o IS r 










OvJ / + o 








OU40 




CA/1 C. 


MVoK3 


Pl/~\A'7 




DU'+ o 




A A/1 Q 




6050 




605 1 




6052 


1*1 V orvr 


6053 




6054 




6055 




CACC 
DUDD 


l»l V O rs Z. 


CAC7 




CACO 
OvJOo 






-n* 


6060 




6061 




6062 




6063 




6064 




6065 




6066 





'EXTEND 



MOVE STRING 



[AR]_AC[SRCP] , J/MVSKP 
STATE_[ DSTF ] , 
CALL [MOVFIL] 
[ARX]_W0RK[SLEN]+1 , 
J/M0VST 1 



M0VSRJ" 



SRC LONGER, SKIP OVER SOME 
DST LONGER, FILL IT 

DONE FILLING 
GO MOVE STRING 



AC[SRCP]_[AR] , SKIP -1MS ; 
WORK [SV.AR]_[AR] , J/MVSK2 

[ARX]_[ARX]-1 , 3T. 
SKIP DPO 

IBP DP, IBP SCAD', 
SCAD DISP, SKIP IRPT, 
3T, J/MVSKP 1 
AC[DLEN]_0, 
J/M0VST4 



[121] Is there a timer interrupt? 
;[121][123] Yes, save regs for int 

; DONE SKIPPING? 

;N0--START THE IBP 
;4-WAY DISPATCH 
;G0 BUMP POINTER 
; LENGTHS ARE NOW EQUAL 
;G0 MOVE STRING 



[AR]_[BR] , J/MVSKP 

[ AR ]_. NOT . WORK [ SLEN ] , 

J/MVSK3 

SET P TO 36-S, 

J/MVSKP2 

[AR]_. NOT. WORK [SLEN] 
AC [DLEN]_[ AR ] 
[AR]_[A6]+[ARX] , 
CALL [INCAR] 
AC_[AR] .OR. [BRX] , 
J/ITRAP 



NO OVERFLOW 
INTERRUPT 

WORD OVERFLOW 
FIX.UP Y 

[121] INTERRUPT 
RESET DLEN 



or timer. 



ADD 1 TO AR 
PUT BACK FLAGS 
DO INTERRUPT TRAP 



J/MVSKP 



.D LEFT, ;BUMP 
; KEEP GOING 



WORK[SV.BR]_[BR] 
WORK[SV. ARX]_[ARX] 
WORK[SV.BRX]_[BRX] 
CALL [TICK] 
[ AR ]_WORK [ SV . AR ] 
[BR]_WORK[SV.BR] 
[ ARX ]_WORK[ SV . ARX ] 
[BRX]_WORK[SV.BRX] , 
J/MVSKP 



BEGIN EDIT [123] 
SAVE ALL 
THE REGISTERS 
FOR THE TICK 

UPDATE CLOCK AND SET INTERUPT 
NOW PUT 
THEM ALL 
BACK SO WE 
CAN CONTINUE 

END EDIT [123] 



T10KL.MCR[ 10, 1 141 ] 
EXTEND . MIC [ 10, 1141] 



15:34 27-JULY-1984 
1 1 :35 26- JULY- 1984 



MICRO 31(254) 



U 3321, 3322,0111,0704,4174,4007,0700,0000,0000,0000 
U 3322, 0540,3771,0013,4370,4007,0700,0000,0000,0003 



U 0540 , 2312, 3333 , 0004 , 7 1 74 , 4007 ,0520 , 04 10 , 0000 , 0242 

U 0541 , 1020,3441 ,0304,4174,4007,0520,0000,0000,0000 

U 0542, 3464,3771,0013,4370,4007,0700,0010,0000,0005 

U 0546, 3322,0551,0704,7274,4007,0701,0000,0000,0242 



U 1020, 3323,4223,0000,1174,4007,0700,0400,0000,1443 

U 1021 , 2301 ,3771 ,0013,4370,4007,0700,0010,0000,0004 

U 1023, 2161,3440,0606,0174,4007,0700,0400,0000,0000 

U 3323, 3324,3113,0406,0174,4007,0700,0400,0000,0000 

U 3324, 0252,4221,0013,4170,4007,0700,0000,0000,0000 



6067 
6068 
6C69 
6070 
6071 
6072 
6073 
6074 
6075 
6076 
6077 
6078 
6079 
6080 
6081 
6082 
6083 
6084 
6085 
6086 
6087 
6088 
6089 
6090 
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.TOC 



' EXTEND 



MOVE STRING 



SIMPLE MOVE LOOP " 



; HERE FOR NO -MODIFICATION STRING MOVES 



MOVSTO: 
M0VST1 : 
=000 



MOVSTX: 

=010 

= 1 10 
M0VST4 : 



[ARX]_[ARXJ+1 
STATE_[SRC] 

WORK[SLEN]_[ARX] , 
SKIP DPO, CALL [GSRC] 
[ARX]__[AR] , 
SKIP DPO, J/M0VST2 
STATE_[SRC+DST] , 
CALL [PUTDST] 

[ARX]__W0RK[SLEN]+1 , 
J/MOVST 1 



=00 

M0VST2: AC[DLEN]_0, J/M0VST3 
= 1 1 



CANT DO [ARX]_JAR]+1 
PREPARE FOR PAGE FAIL 

GO GET A SOURCE BYTE 

SHORT STRING RAN OUT 

GO SEE IF FILL NEEDED 

WILL NEED TO BACK UP BOTH POINTERS 

STORE BYTE 

COUNT DOWN LENGTH 
LOOP OVER STRING 



; CLEAR DEST LEN, REBUILD SRC 



STATE_[ DST ] , CALL [MOVFIL] ;FILL OUT DEST 
ACJBRX], J/ENDSKP ; ALL DONE 



M0VST3: AC__[ ARX } . OR . [ BRX ] 
END STATE, J/SKIPE 



; REBUILD SRC 



V 



T10KL.wrf[ 10, 1 141] 15:34 27-JULY-1984 MICRO 31 

EXTEND. MI C[ 10, 1141] 11:35 26-UULY-1984 



U 3740, 
U 2121 , 
U 2125, 
U 2123, 
U 2127, 
U 2130, 
U 2131 , 



2121 , 
3556, 
2123, 
3556, 
2130, 
2131 , 



3771 

4553, 

3771 , 

4553 

2113, 

0111 



2132,01 1 1 



0004, 1276, 
0400,4374, 
0006,0276, 
0600,4374, 
0604,4174, 
0703,4174, 
0703,4170, 



6007 
4007 
6007 
4007 
4007 
4007 
4007 



0701 , 
0321 , 
0700, 
0321 , 
0521 , 
0700, 
0700, 



0000. 
0010. 
0000. 
0010. 
4000. 
0000. 
0200, 



0000, 
0077, 
0000, 
0077, 
0000, 
0000, 
0004, 



1443 
7000 
0000 
7000 
0000 
0000 
0012 



U 2132, 3675,4221,0003,4174,4007,0700,0010,0000,0000 
U 2133, 3334 , 3223 , 0000 ,7174, 4007 , 0700 , 0400 , 0000 , 0244 
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EXTEND -- COMPARE STRING 

6091 .TOC "EXTEND -- COMPARE STRING" 

6092 

6093 3740: 

6094 CMS: [ ARX ]_AC [ DLEN ] ; GET DEST LEN 

6095 =0** TL [ARX], #/777000, CALL [BITCHK] 

6096 [BRX]_AC ; GET SRC LEN 

6097 =0** TL [BRX], #/777000, CALL [BITCHK] 

6098 [BRX]-[ARX], 3T , SKIP DPO ;WHICH STRING IS LONGER? 

6099 =0 [AR]_[AR]+1 ; SRC STRING IS LONGER 

6100 VMA_[AR]+1, START READ ;DST STRING 

6101 =0 [AR]_0, ; FORCE FIRST COMPARE TO BE 

6102 ; EQUAL 

6103 CALL [ LOADQ] ; PUT FILL INTO Q 

6104 WORK[FILL]_0, ; SAVE FILLER 

6105 J/CMS2 ; ENTER LOOP 
6106 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 

EXTEND . MIC [ 10, 1 141 ] 11:35 26-JULY-1984 



MICRO 



U 2134 
U 2135 
U 3325 

U 1030 

U 1031 
U 1032 

U 3326 
U 3327 
U 3330 

U 1050 

U 1051 
U 1052 



U 3331 
U 3332 
U 3333 
U 3334 
U 3335 
U 3336 



U 2136 
U 2137 
U 3337 
U 3340 



U 2140, 



U 2141 , 



0250 , 422 1 , 00 1 3 , 4 1 70 , 4003 , 7700 , 0000 , 0000 , 0000 
3325,3771 ,0003, 1276,6007,0701 ,0000,0000, 1441 
1030, 3333 , 0006 , 4-1 74 , 4007 , 0520, 0000, 0000, 0000 

2313,3771 ,0013,4370,4007,0700,0010,0000,001 1 

2136, 3333 , 0004 ,4174, 4007 , 0520 , OOOO , 0000 , 0000 
3326 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 ,0245 

3327 , 3440 , 0606 ,0174, 4007 , 0700 , 0400 , bOOO , 0000 
3330 , 377 1 , 00 1 3 , 4370 , 4007 , 0700 , 0000 , OOOO , 00 10 
1 050 , 3333 , 0004 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

2140,4443, 0000 ,4174 , 4007 , 0700 , 00 1 O , 0000 , 0000 

3331 ,3771 ,0003,7274,4007,0701 ,0000,0000,0244 
3331, 3440 , 0404 ,1174, 4007 , 0700 , 0400 , 0000 , 1 443 



3332,41 1 1 , 1203,7174,4007,0700,0000,0000,0245 
3333 , 455 1 , 1 205 , 7274 , 4007 , 0700 , 0000 , 0000 , 0245 
3334,2111, 0503 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 
3335,1111, 0704 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 
3336 ,1111, 0706 , 4 1 74 , 4007 , O70O , 4000 ,0000 , 0000 
2134, 3333 , 0003 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 



3337 , 3772 , 0000 , 7274 , 4007 , 070 1 , OOOO , 0000 , 0244 
2134,4221, 0003 ,4174, 4007 , 0700 , OOOO ,0000 , OOOO 
3340 , 377 1 , 00 1 3 , 4370 , 4007 ,0700 , OOOO , OOOO , 00 1 2 
1050 , 3223 , OOOO ,7174, 4007 , 0700 , 0400 , OOOO , 0245 



3465,3771 ,0003, 1276 ,6007,0701 ,0010,0000, 1444 
0340 , 3333 , 0003 ,4174, 4006 , 570 1 , 1000 , 005 1 , 0770 
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6107 ; HERE IS THE COMPARE LOOP. 

6108 ; ARX/ CONATINS REMAINING DEST LENGTH 

6109 ; BRX/ CONTAINS REMAINING SOURCE LENGTH 
61 10 =0 

6111 CMS3: ; BYTES ARE NOT EQUAL 

6112 END STATE, ; NO MORE SPECIAL PAGE FAIL ACTION 

6113 SKIP-COMP DISP ;SEE SKIP-COMP-TABLE 

6114 CMS4: [ AR ]_AC [ SRCP ] ; GET BYTE POINTER 

6115 READ [BRX], SKIP DPO ; MORE IN SOURCE STRING? 

6116 =00 STATE_[ EDIT-SRC ] , ; PREPARE FOR PAGE FAIL 

6117 CALL [GETSRC] ; GO GET BYTE 

6118 READ [ARX], SKIP DPO, ; NO MORE SRC- -SEE IF MORE DEST 

6119 J/CMS5 ; 

6120 WORK[CMS]_[AR] ; SAVE SRC BYTE 

6121 = 

6122 AC_[BRX] ; PUT BACK SRC LEN 

6123 STATE__[COMP-DST] ; HAVE TO BACK UP IF DST FAILS 

6124 READ [ARX], SKIP DPO ; ANY MORE DEST? 

6125 =00 

6126 CMS6 : CALL [CMPDST] ; MORE DEST BYTES 

6127 [AR]"_WORK[FILL] , ; OUT OF DEST BYTES 

6128 J/CMS7 ' ;G0 DO COMPARE 

6129 AC [DLEN]__[ ARX ] ; GOT A BYTE, UPDATE LENGTH 

6130 = 

6131 CMS7: [ AR ]_[ AR J. AND . [MASK ] , ; MAKE MAGNITUDES 

6132 W0RK[CMS] ; WARM UP RAM 

6133 [BR]_[MASK] . AND . WORK [CMS ] , 2T ; GET SRC MAGNITUDE 

6134 [AR]_JBR]-[AR3 REV ; UNSIGNED COMPARE 

6135 CMS2: [ ARX ]_[ ARX ] - 1 ; UPDATE LENGTHS 

6136 [BRX]_[BRX]- 1 ; 

6137 READ [AR], SKIP AD.EQ.O, J/CMS3 ;SEE IF EQUAL 

6138 

6139 =0 

6140 CMS5: 0_W0RK[FILL] , U/CMS8 ; MORE DST- -GET SRC FILL 

6141 [AR]_0, U/CMS3 ;STRINGS ARE EQUAL 

6142 CMS8: STATE_[ EDIT-DST ] ; JUST DST POINTER ON PAGE FAIL 

6143 WORK[CMS]_Q, U/CMS6 ; MORE DST- -SAVE SRC FILL 
6144 

6145 =0 

6146 CMPDST: [ AR ]_AC [ DSTP } , ; GET DEST POINTER 

6147 CALL [IDST] ; UPDATE IT 

6148 READ [AR], ; LOOK AT BYTE POINTER 

6149 FE__FE . AND . S# , S#/077O, ; MASK OUT BIT 6 

6150 BYTE DISP, J/LDB1 ; GO LOAD BYTE 
6151 
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u 

1 1 

u 


3742, 

00*+ 1 , 


3341 ,4571 
3342 , 3333 


, 1203, 

AAAQ 

, UUUo , 


4374 

/ 1 / H 


4007 

a r\r\7 
4UU / 


0700 

07HA 

U / uvj 


0000 

U4UU 


0077 
uuuu 


7777 


u 


3342, 


3343,3771 


, 0003 , 


0276 


6007 


,0700 


0000 


0000 


oooo 


u 


3343, 


2124,4521 


, 0306 , 


4374 


4007 


,0700 


0000 


0077 


7000 


u 
u 


2124, 
2126, 


2236,3771 
2142,3440 


, 0004 , 
, 0404 , 


1276 
1 174 


6007 
4007 


,0701 
,0700 


0010 
0400 


OOOO 
0000 


1444 
1444 


u 


2142, 


2166,3333 


, 0006 , 


4174 


4007 


,0520 


0010 


0000 


0000 


u 


2143, 


0616,4551 


,0303, 


4374 


0003 


,7700 


0000 


0000 


0777 


u 


0616, 


3344,3771 


,0013, 


4370 


4007 


0700 


0000 


0000 


0007 


u 
u 


0617, 
3344, 


0616,3551 
0460,7333 


, 0606 , 
, 0003 , 


4374 
7174 


0007 
4007 


0700 
,0700 


0000 
0400 


0040 

oooo 


0000 
0242 


u 


0460, 


1 1 14,0551 


,0703, 


7274 


4007 


0701 


0010 


0000 


0242 


u 


0461 , 


2154,4553 


,0600, 


4374 


4007 


0321 


0000 


0010 


0000 


u 


0464, 


3351 ,7771 


,0003, 


7274 


4007 


0701 


0000 


0000 


0242 


u 


0465, 


2144, 1553 


, 0300 , 


4374 


4007 


0532 


4000 


0000 


0012 


u 


2144, 


3351 ,7771 


, 0003 , 


7274 


4007 


,0701 


oooo 


oooo 


0242 
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p 1 52 


. TOC 


6 1 53 




6 1 54 


3742 : 


6 155 


DB IN : 


6 1 56 




6157 




6 1 58 




6 1 59 




6 1 60 




6161 


=0* 


6162 




6163 




6 1 64 


=0 


6165 




6 166 




6 167 




6 168 




6 1 69 


= 1110 


6 1 70 


DBIN1 


6171 




6172 




6173 




6174 


r\D T MO 

UD I NZ 


6175 




b 1 / o 


; HtKh 


6177 


=0*0 


6 1 78 


r\D T Ml 

UD 1 NL 


6 1 79 




6 180 




6181 




6182 




6183 




6184 




6185 


=0 


6186 




6187 





"EXTEND 



DECIMAL TO BINARY CONVERSION" 



[AR]_[777777] XWD O 
WORK[MSK]_[AR] 

[AR]_AC 

[BRX]_[AR] . AND . # CLR RH, 

#/777000 

[ARX]_AC[BIN1 ] , 

CALL [CLARXO] 

AC[BIN1 ]_[ARX] 

READ [BRX] , SKIP DPO, 

CALL [CLRBIN] 

[AR]__[AR] . AND. #, 

#/000777, HOLD RIGHT, 

B DISP 

STATE_[ CVTDB ] , J/DBIN2 
[BRX]_[BRX] . OR . # , 
#/400000, HOLD RIGHT, 
J/DBIN1 

WORK[SLEN]_.NOT. [AR] 

IS THE MAIN LOOP 

>: [AR]_W0RK[SLEN]+1 , CALL 
TL [BRX], #/ 100000, 
J/DBXIT 

[AR]_.NOT.WORK[SLEN] , 

J/DBABT 

[AR]-#, #/10., 

4T, SKIP DP18 

[ AR ]_. NOT. WORK [SLEN] , 

J/DBABT 



IF WE ARE IN OFFSET MODE 

ONLY ALLOW 18 BITS 
RANGE CHECKED (0-10) LATER 
GET SRC LENGTH 
; SPLIT OUT FLAGS 

GET LOW WORD 

CLEAR BIT O OF ARX 

STORE BACK 

IS S ALREADY SET? 

GO CLEAR BIN IF NOT 

CLEAR FLAGS FROM LENGTH 

SEE IF OFFSET OR TRANSLATE 

; TRANSLATE - - LEAVE S ALONE 
;OFFSET--FORCE S TO 1 



; STORE -SLEN-1 



[SRCMOD] ; 
; ( 1 ) DONE, 



(0) 
IS 



GET MODIFIED 
M SET? 



SRC BYTE 



(4) ABORT 

(5) NORMAL- 



-SEE IF 0-9 



DIGIT TOO BIG 
GO ABORT CVT 



T10KL .MCR[ 10, 1 141 3 15:34 27- JULY- 1.9.84 
EXTEND.MIC[ 10, 1 141 3 11:35 26-JULY- 1984 



MICRO 



U 2145, 1074,3771 ,0005, 1276,6007,0622,0000,0000, 1443 



U 1074, 0560,3771,0004,1276,6007,0701,0010,0000,1444 

U 1075, 3345,3771 ,0005, 1276 , 6007 ,0701 ,0000,0000, 1444 
U 1076, 0460,4443,0000,4174,4007,0700,0000,0000,0000 



U 3345, 2146,4553,0500,4374,4007,0321,0000,0076,0000 

U 2 1 46 , 1 074 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2147, 3346,3775,0005, 1276,6007,0701 ,0000,0000, 1444 

U 3346, 2150,3445,0505,1174,4007,0700,0000,0000,1444 

U 2150, 3700,0551 ,0505, 1274,4007,0700,0010,0000, 1444 

U 2151, 0460,0113,0305,1174,4007,0701,0400,0000,1444 
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6188 
6189 
6190 
6191 
6192 
6193 
6194 
6195 
6196 
,6197 
6198 
6199 
6200 
6201 
6202 
6203 
6204 
6205 
6206 
6207 



; HERE TO ADD IN A DIGIT 

[BR]_AC[BINO] , 4T, 
SKIP AD.EQ.O 



=00 
DBSLO: 



DBFAST: 
=0 



=0 



[ ARX]_AC[BIN1 ] , 
CALL [DBSLOW] 
[BR]__AC[BIN1 ] , 
J/DBFAST 
U/DBINLP 



TL [BR 3, #/760000 
J/DBSLO 

[BR3_AC[BIN1 3*2 
[BR3_[BR3*2, AC[BIN13 
[BR3__[BR3+AC[BIN1 ] , 2T , 
CALL [SBRL3 

AC[BIN1 3_[AR3+[BR3 , 3T , 
J/DBINLP 



GET HIGH BINARY 
SEE IF SMALL 

TOO BIG 

GO USE DOUBLE PRECISION PATHS 

GET LOW WORD 

MIGHT FIT IN 1 WORD 

RETURN FROM DBSLOW 

GO DO NEXT DIGIT 

WILL RESULT FIT IN 36 BITS? 
MAY NOT FIT- -USE DOUBLE WORD 
COMPUTE AC*2 
COMPUTE AC*4 
COMPUTE AC*5 
COMPUTE AC* 10 
NEW BINARY RESULT 
DO NEXT DIGIT 



T10KL>»..^R[ 10, 1 141 ] 15:34 27- JULY- 1984 

EXTEND. MIC[ 10, 1 141 ] 11:35 26-JULY-1984 



MICRO 



U 0560, 0620,3771,0005,1276,6007,0701,0010,0000,1443 



U 0561 , 2152,0551 ,0404, 1274,4007,0562,0010,0000, 1444 
U 0565, 0600,0551,0505,1274,4007,0701,0000,0000,1443 

U 0600, 0621,4443,0000,4174,4007,0700,0010,0000,0000 



U 0601, 2152,0111,0304,4174,4007,0561,0010,0000,0000 
U 0605, 3347,3440,0404, 1 174,4007,0700,0400,0000, 1444 



U 3347, 0002,3440,0505,1174,4004,1700,0400,0000,1443 



U 0620, 0621,4443,0000,4174,4007,0700,0010,0000,0000 
U 0621, 0622,0111,0505,4174,4007,0700,0000,0000,0000 



U 0622, 2152,01 1 1 ,0404,4174,4007,0561 ,0010,0000,0000 
U 0626, 0001,4443,0000,4174,4004,1700,0000,0000,0000 



U 2152, 0004,4443,0000,4174,4004,1700,0000,0000,0000 
U 2153, 3350,4551,0404,4374,0007,0700,0000,0037,7777 



U 3350, 0004,0111,0705,4174,4004,1700,0000,0000,0000 



254) 
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6208 
6209 
6210 
62'1 1 
6212 
6213 
6214 
6215 
62.16 
6217 
6218 
6219 
6220 
6221 
6222 
6223 
6224 
6225 
6226 
6227 
6228 
6229 
6230 
6231 
6232 
6233 
6234 
6235 
6236 
6237 
6238 
6239 
6240 
6241 
6242 
6243 
6244 



; HERE IF NUMBER DOES NOT FIT IN ONE WORD 



=000 
DBSLOW: 



= 101 



[BR]_AC[BINO] , 
CALL [MULBY4] 
[ARX]_[ARX]+AC[BIN1 ] , 
SKIP CRY 1 , 4T, 
CALL [ADDCRY] 
[BR]_[BR]+AC[BINO] 



=000 



= 101 



CALL [DBLDBL] 
[ARX]_[ARX]+[AR j , 
SKIP CRY 1 , 
CALL [ADDCRY] 
AC[BIN1 ]_[ARX] 

AC[BIN0]_[BR] , 
RETURN [2] 



; HERE TO DOUBLE BR ! ARX 
=000 

MULBY4: CALL [DBLDBL] 
DBLDBL: [BR ]_[ BR ] + [ BR ] 

[ARX]_[ARX] + [ARX] , 
SKIP CRY 1 , 3T, 
CALL [ADDCRY] 
= 1 10 RETURN [ 1 ] 



; HERE TO ADD THE CARRY 
=0 

ADDCRY: RETURN [4] 

CLEAR [ARX]0 
[BR]_[BR]+1 , 
RETURN [4] 



3T, 



FETCH HIGH WORD 
MULTIPLY BY 4 
COMPUTE VALUE * 5 
SEE IF OVERFLOW 
GO ADD CARRY 
ADD IN HIGH WORD 

MAKE * 10 
ADD IN NEW DIGIT 
SEE IF OVERFLOW 
ADD IN THE CARRY 
PUT BACK ANSWER 



;G0 DO NEXT BYTE 



DOUBLE TWICE 

DOUBLE HIGH WORD FIRST 

(SO WE DON'T DOUBLE CARRY) 

DOUBLE LOW WORD 

SEE IF CARRY 

ADD IN CARRY 

ALL DONE 



NO CARRY 

KEEP LOW WORD POSITIVE 
ADD CARRY 
ALL DONE 



T10KL . MCR[ 10, 1141] 
EXTEND . MIC [ 10, 1141] 



15:34 27- JULY- 1984 
1 1 :35 26- JULY- 1984 



MICRO 31(254) 



KS10 MICROCODE V124, 27-JUL-84 Page 171 
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U 3351, 3352,3111,0306,4174,4007,0700,0000,0000,0000 
U 3352, 2155, 1111 ,0701 ,4170,4007,0700,4000,0000,0000 



U 2154, 3355,3771,0004,1276,6007 

U 2155, 3353,3771,0003,1276,6007, 

U 3353, 2156,3771,0005,1276,6007, 

U 2156, 3354,4551,0303,4374,0007, 

U 2157, 3354,3551,0303,4374,0007, 

U 3354, 2160,3440,0303,1174,4007, 

U 2160, 2166,3770,0606,0174,4007. 

U 2161, 0260,4221,0013,4170,4007, 



,0701 ,0000,0000, 1444 
,0701 ,0000,0000, 1444 

,0522,0000,0000, 1443 
, 0700 , 0000 , 003 7 , 7 7 7 7 
, 0700 , OOOO , 0040 , 0000 
, 0700 , 0400 , 0000 , 1 444 

, 0520 , 04 1 , 0000 , 0000 
, 0700 , 0000 , 0000 , 0000 



U 3355, 3356,4551,0404,4374,0007,0700,0000,0037,7777 



U 3356, 2162,2441,0404,1174,4007, 

U 2162, 2165,7771,0003,1274,4007, 

U 2163, 2164,1771,0003,1274,4007, 

U 2164, 2165,4571,1204,4374,4007, 

U 2165, 3357,3440,0303,1174,4007, 

U 3357, 2155,3440,0404,1174,4007, 



,0621 ,4000,0000, 1443 
,0700 , 0000 , 0000 ,1443 

, 062 1 , 4000 , 0000 ,1443 
, 0700 ,0000 , 0040 , 0000 

,0700,0400,0000, 1443 
, 0700 , 0400 , 0000 ,1444 



U 2166, 3360,4223,0000, 1174,4007,0700,0400,0000, 1443 
U 2167, 0001,4443,0000,4174,4004,1700,0000,0000,0000 
U 3360, 0001,4223,0000,1174,4004,1700,0400,0000,1444 



6245 


; HERE 


6246 


DBABT : 


6247 




6248 




6249 




6250 


; HERE 


625 1 


=0 


6252 


DBXIT : 


6253 




6254 


DBDONE 


6255 




6256 




6257 


=0 


6258 




6259 


DBDN i ' 


6260 


=o 


626 1 




6262 


ENDSKP 


6263 




6264 


DBNFG * 


6265 




6266 




6267 


=0 


6268 




6269 




6270 


=0 


627 1 




6272 


STAC34 


6273 




6274 




6275 


; HELPE 


6276 


•CALL 


6277 




6278 


!retur 


6279 


=0 


6280 


CLRBIN 


6281 




6282 


CLRB1 : 


6283 





[BRX]_JBRX] .OR. [AR] 
[PC]_[PC]-1 , HOLD LEFT , 
J/DBDONE 

AT END 

[ARX]_AC[BIN1 ] , 
J/DBNEG 
: [AR]_AC[BIN1 ] 

[BR]_AC[BINO] , 4T, 
SKIP DPO 

CLEAR [ARJO, J/DBDN1 
[ AR ]_[ AR ] . OR . # , #/400000 
ACCBIN1 ]_[AR] 
AC__[BRX] TEST, ; RETURN 



PUT BACK UNUSED LENGTH 

DO NOT SKIP 

GO FIX UP SIGN COPY 



GET LOW WORD 
GO NEGATE 
FETCH LOW WORD 
GET HIGH WORD 
WHAT SIGN 
POSITIVE 

HOLD RIGHT 
STORE AC BACK 
FLAGS 



SKIP DPO, CALL [CLRBIN] ; CLEAR BIN IS S=0 
END STATE, J/SKIP ;N0--ALL DONE 



CLEAR ARXO 
[ARX]_-[ARX] , 3T, 
SKIP AD.EQ.O, AC[BINO] 
[AR]_.NOT. AC[BINO] , 2T , 
[AR]_-AC[BINO] , 3T, 
SKIP AD.EQ.O 
[ARX]_[ 400000] XWD O 

AC[BINO]__[AR] 

A(>[BIN1 ]__[ ARX] , J/DBDONE 



CLEAR EXTRA SIGN BIT 
NEGATE AND SEE IF 
ANY CARRY 
J/STAC34 ;N0 CARRY 
CARRY 

SEE IF ALL ZERO 
MAKE COPY OF SIGN 

UNLESS HIGH WORD IS ZERO 
PUT BACK ANSWER 



READ [BRX ] , SKIP DPO, CALL [CLRBIN] 



RETURN [ 1 ] 

AC[BIN1] O, RETURN [1] 



V J 



T 10KL . MCR[ 10,1141] 15:34 27-JULY-1984 

EXTEND. MIC[ 10, 1 141 } 11:35 26-JULY-1984 



MICRO 



U 3743, 2170,3771,0006,1276,6007,0351,0000,0000,1443 

U 2170, 3361,4551,0606,4374,4007,0700,0000,0077,7000 

U 2171, 3377,3771,0003,0276,6007,0700,0000,0000,0000 

U 3361 , 3362,3771 ,0004, 1276,6007,0701 ,0000,0000, 1441 

U 3362, 2174,3771,0003,0276,6007,0700,2000,0071,0024 

U 2174, 2236 , 3333 , 0004 ,7174, 4007 , 0700 , 04 10 , 0000 , 0250 

U 2176, 2172,3333,0003,7174,4007,0520,0400,0000,0247 

U 2172, 2202 ,4221, 0006 , 4 1 70 ,4007 , 0700 ,0000 , 0000 , 0000 

U 2173, 2175,3551,0606,4374,0007,0700,0000,0010,0000 

U 2175, 3064,4551,0404,4374,0007,0700,0010,0037,7777 

U 2177, 2200,3770,0303,0174,4007,0520,0400,0000,0000 

U 2200, 2172,3440,0404,1174,4007,0700,0400,0000,1441 

U 2201 , 3363,01 1 1 ,0704,4174,4007,0700,0000,0000,0000 

U 3363 , 2175, 355 1 , 0606 , 4374 , 0007 , 0700 , 0000 , 0004 , 0000 

U 2202, 0441,3771,0003,0276,6007,0700,0000,0000,0000 

U 2203,' 2206,3551,0606,4374,0007,0700,0000,0020,0000 

U 0441, 2226,3771,0004,1276,6007,0701,0010,0000,1441 

U 0443, 2202,0111,0706,4174,4007,0630,2000,0060,0000 

U 0447 , 2204 , 4553 , 0600 , 4374 , 4007 , 033 1 , OOOO , 0077 , 7777 



U 2204 , 2206 , 355 1 , 0606 , 4374 , 0007 , 0700 , 0000 , 0020 , 0000 
U 2205, 2206,0111,0706,4174,4007,0700,0000,0000,0000 
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6284 
6285 
6286 
6287 
6288 
6289 
6290 
6291 
6292 
6293 
6294 
6295 
6296 
6297 
6298 
6299 
,6300 
6301 
6302 
6303 
6304 
6305 
6306 
6307 
6308 
6309 
6310 
631 1 
6312 
6313 
6314 
6315 
6316 
6317 
6318 
6319 
6320 
6321 
6322 
6323 
6324 
6325 
6326 
6327 
6328 
6329 
6330 



.TOC 

3743: 
BDEC: 



DOCVT : 
BDECO: 



"EXTEND -- BINARY TO DECIMAL CONVERSION" 



=0* 



=0 

BDEC 1 : 



=0* 

BDEC2 : 



=0 



= 

BDEC3: 



=001 
BDEC4 : 

=01 1 

= 111 

=0 



[BRX]_AC[DLENJ , 
SKIP FPD 

[BRX]_[BRX] . AND . # , 

#/777000, 

J/BDECO 

[AR]_AC, J/DOCVT 1 
[ARX]_AC[ 1 ] 
[AR]_AC, SC_20. 
W0RK[BDL]_[ARX] , 
CALL [CLARXO] 
WORK[BDH]_[AR] , 
SKIP DPO 

[BRX]_0, HOLD LEFT, 
J/BDEC3 

[BRX]_[BRX] .0R.#, 

fil 100000, HOLD RIGHT 



GET LENGTH AND FLAGS 
CONTINUE FROM INTERUPT? 
JUST KEEP THE FLAGS 

COMPUTE NEW FLAGS 
ALL SET PRIOR TO TRAP 
GET LOW BINARY 

GET HIGH WORD, SET STEP COUNT 
SAVE IN CASE OF ABORT 
MAKE SURE BIT O IS OFF 
SAVE HIGH WORD AND 
TEST SIGN 

POSITIVE, CLEAR RH OF BRX 
COMPUTE ft OF DIGITS REQUIRED 
NEGATIVE, SET M 



CLEAR ARXO, CALL [DBLNG1] -.NEGATE ARIARX 
AC_[AR] TEST, 
SKIP DPO 



AC[ 1 ]_[ARX] , J/BDEC1 
[ARX]_[ARX]+1 
[BRX]_[BRX] .0R.#, 
#/040000, HOLD RIGHT, 
J/BDEC2 

[AR]_AC, J/BDEC4 
[BRX]__[BRX] . OR . # , 
#/ 200000, 

HOLD RIGHT, J/BDEC5 



PUT BACK ANSWER 
IF STILL MINUS WE HAVE 

1B0, AND NO OTHER BITS 
POSITIVE NOW 
JUST 1B0--ADD 1 
AND REMEMBER THAT WE DID 
IN LEFT HALF OF AC+3 
NEGATE IT AGAIN 

GET HIGH AC 

NO LARGER POWER OF 10 FITS 
SET N FLAG (CLEARLY NOT O) 
SETUP TO FILL, ETC. 



[ARX]_AC[ 1 ] , 
CALL [BDSUB3 
[BRX3_[BRX3+1 , 
STEP SC, J/BDEC3 
TR [ BRX 3 , U/llllll 



; GET HIGH WORD 
;SEE IF 10**C(BRX) FITS 
; NUMBER FITS- -TRY A LARGER ONE 

; UNLESS WE ARE OUT OF NUMBERS 
; ANY DIGITS REQUIRED? 



[BRX]_[BRX] .0R.#, 
#/200000, HOLD RIGHT, 
J/BDEC5 
[BRX3_[BRX3+1 



SOME DIGITS NEEDED, 

SET N FLAG 
CONTINUE BELOW 
ZERO- -FORCE AT LEAST 



1 DIGIT 



; T10KL.MCRC 10, 1 141 3 15:34 27- JULY- 1984 . MICRO 

; EXTEND . MIC [ 10 , 1 1413 11:35 26-JULY-1984 



U 2206, 3474,3771 ,0003, 1276,6007,0701 ,0010,0000, 1443 
U 2207, 3364,4221,0005,4174,4007,0700,0000,0000,0000 
U 3364 , 3365 , 344 1 , 0605 , 4 1 70 , 4007 , 0700 , OOOO , 0000 , 0000 



U 3365 , 2210,1111, 0305 ,4174, 4007 , 042 1 , 4000 , 0000 , 0000 



U 2210, 
U 221 1 , 



3407 ,3771, 0004 , 7274 , 4007 , 070 1 , 0000 , 0000 , 0250 
2212,3333, 0006 ,4174, 4007 1 0520 , 0000 , OOOO , 0000 



U 2212, 2171 ,3440,0606, 1 174,4007,0700,0400,0000, 1443 



U 2213, 3366 , 344 1 , 0603 , 4 1 74 , 0007 , 0700 , OOOO , OOOO , OOOO 

U 3366, 3367,3440,0303, 1 1 74 , 4007 , 0700 , 0400 ; OOOO , 1 443 

U 3367, 3370,3771 ,0003,7274,4007,0701 ,0000,0000,0240 

U 3370, 3371,0111,0703,4174,4007,0700,0200,0004,0012 

U 3371, 3372,3771,0016,4365,5007,0700,0200,0000,0002 

U 3372 , 3373 , 377 1 , 00 1 3 , 4370 , 4007 , 070O , OOOO , OOOO , OO 1 2 

U 3373 , 3374 ,2113, 0507 ,7174, 4007 , 070 1 , 4400 , OOOO , 0242 

U 3374, 3375,3441,1603,7174,4007,0700,0000,0000,0242 



U 3375, 
U 0640, 



0640 , 055 1 , 0705 , 7274 , 4007 , 052 1 , OOOO , OOOO , 0242 
2171 ,3440,0606, 1 174,4007,0700,0400,0000, 1443 



U 0641 , 
U 0647, 



3464 , 3333 , 0005 ,7174, 4007 , 0700 , 04 1 O , OOOO , 0242 
33.76,2551 ,0705, 1274,4007,0701 ,4000,0000, 1443 



U 3376, 3374,3440,0505,1174,4007,0700,0400,0000,1443 



i \ 
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6331 


=0 






6332 


BDEC5: 


[ AR 3 AC [ DLEN 3 , 


; GET LENGTH 


6333 




CALL [CLRFLG3 


; REMOVE FLAGS FROM AR 


6334 




[BR] 




6335 




[ BR 3 [BRX3 , HOLD LEFT 


; GET # OF DIGITS NEEDED 


6336 




[BR 3 [BR 3 - [ AR 3 , 


; NUMBER OF FILLS NEEDED 


6337 




SKIP AD.LE.O 


;SEE IF ENOUGH ROOM 


6338 


=0 


[ ARX 3 WORK [BDL 3 , 


;DOES NOT FIT IN SPACE ALLOWED 


6339 




J/BDABT 


; DO NOT DO CONVERT 


6340 




READ [BRX 3 , SKIP DPO 


; IS L ALREADY SET 


6341 


=0 


AC [DLEN 3 [BRX3, 


;NO--NO FILLERS 


6342 




J/DOCVT 


;G0 CHURN OUT THE NUMBER 


6343 








6344 








6345 


; HERE 


TO STORE LEADING FILLERS 




6346 




[AR] [BRX3, HOLD RIGHT 


; MAKE SURE THE FLAGS GET SET 


6347 




AC[DLEN] [AR] 


; BEFORE WE PAGE FAIL 


6348 




[ AR 3 WORK[EO] 


; ADDRESS OF FILL (-1) 


6349 




[AR] [AR]+1 , LOAD VMA , 


; FETCH FILLER 


6350 




START READ 


6351 




MEM READ, [TO] MEM 


; GET FILLER INTO AR 


6352 




STATE [ EDIT-DST 3 


; PAGE FAILS BACKUP DST 


6353 




W0RK[SLEN3 [BR3-1, 3T 


;SAVE ft OF FILLERS 


6354 


BDFILL 


: [AR]_[TO], W0RK[SLEN3 


; RESTORE FILL BYTE AND 


6355 






; WARM UP RAM FILE 


6356 




[ BR 3 WQRK[SLEN]+1 , 3T , 


; MORE FILLERS NEEDED? 


6357 




SKIP DPO 




6358 


=000 


AC [DLEN] [BRX 3 , J/DOCVT 


; ALL DONE FIX FLAGS AND CONVERT 


6359 


=001 


WORK[SLEN] [BR], 


;SAVE UPDATED LENGTH 


6360 




CALL [PUTDST] 


; AND STORE FILLER 


6361 


= 111 


[BR]_AC[DLEN]-1 


; COUNT DOWN STRING LENGTH 


6362 








6363 




AC[DLEN]_JBR] , J/BDFILL 


; KEEP FILLING 


6364 









T10KL.wR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

EXTEND. MIC[ 10, 1 141 ] 11:35 26-JULY-1984 



U 3377, 3406,3771 ,0004, 1276,6007,0701 ,0000,0000, 144 1 



U 0562, 
U 0566, 



2226,01 1 1 ,0705,4174,4007,0700,0010,0000,0000 
3400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 0247 



U 3400, 0636,0551,0503,7274,4003,7701,0000,0000,0241 



U 0636, 
U 0637, 
U 0510, 
U 0516, 
U 3401, 
U 3402, 
U 3403, 
U 2214, 
U 2215, 
U 3404, 
U 3405, 
U 3406, 
U 2216, 
U 2217, 



2220, 
0510, 
3464, 
3401 . 
3402, 
3403, 
2214. 
3410, 
3404, 
3405, 
3406, 
2216, 
0562, 
0260, 



3333, 
3333, 
3771 , 
2551 . 
3771 , 
3771 , 
4553, 
0111, 
3440, 
3440, 
3440, 
1111, 
2441 , 
4221 , 



0003, 
0004, 
0013, 
0705. 
0003, 
0004, 
0500, 
0704, 
0303, 
0404, 
0505, 
0706, 
0705. 
0013, 



4174, 
7174, 
4370, 
1274, 
7274, 
7274, 
4374, 
4174, 
0174, 
1 174, 
1 174, 
4174, 
4174, 
4170, 



4007, 
4007, 
4007, 
4007 . 
4007, 
4007. 
4007, 
4007, 
4007. 
4007, 
4007, 
4007, 
4467. 
4467, 



0700, 
0700, 
0700, 
0701 , 
0701 , 
0701 , 
0321 , 
0700, 
0700, 
0700, 
070Q, 
0531 , 
0701 , 
0700, 



0200, 
0400, 
0010, 
4000, 
0000, 
0000, 
0000, 
0000, 
0400, 
0400, 
0400, 
4000, 
4000, 
0000, 



0004, 
0000, 
0000, 
0000. 
0000, 
0000, 
0004, 
0000, 
0000 . 
0000, 
0000, 
0000, 
0003, 
0005, 



0012 
0250 
0012 
1443 
0247 
0250 
0000 
0000 
0000 
1441 
1443 
0000 
0000 
0000 



U 2220, 3673,4221,0013,4170,4007,0700,0010,0000,0000 

U 2221, 2222,4553,0600,4374,4007,0331,0000,0077,7777 

U 2222, 0637,4221,0003,4174,0007,0700,0000,0000,0000 

U 2223, 2224, 4553 , 0600 , 4374 , 4007 , 032 1 , 0000 , 00 10 , 0000 

U 2224, 2225, 3770 , 0303 , 4344 , 4007 , 0700 , OOOO , OOOO , OOOO 

U 2225, 0637,4221,0003,4174,0007,0700,0000,0000,0000 

U 3407, 1505,3771 ,0003,7274,4007,0701 , OQOO , OOOO , 0247 



U 3410, 



2215,5551, 0505 , 4374 , 0007 , 0700 , OOOO , 0004 , OOOO 
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6365 
6366 
6367 
6368 
6369 
6370. 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 
6380 
6381 
6382 
6383 
6384 
6385 
6386 
6387 
6388 
6389 
6390 
6391 
6392 
6393 
6394 
6395 
6396 
6397 
6398 
6399 
6400 
6401 
6402 
6403 
6404 
6405 
6406 
6407 
6408 



; HERE TO STORE THE ANSWER 



D0CVT1 : 

=010 
BDECLP : 

= 1 10 



= 1110 

BDSET: 
=00* 
= 11* 



=0 

D0CVT3 : 



D0CVT2 : 
=0 



[ARX3_AC[ 1 3 , 
J/D0CVT2 

[BR3_[BR3+1 , 
CALL [BDSUB] 
W0RK[BDH3__[AR3 

[AR]_[BR]+W0RK[E1 ] , 

B DISP 

READ [AR] , LOAD VMA 
START READ, J/BDTBL 
W0RK[BDL3_[ARX3 
STATE_[ EDIT-DST 3 
[BR3_AC[DLEN3-1 
[AR3_W0RK[BDH3 
[ARX3_W0RK[BDL3 
TL [BR 3, #/040000 
[ARX3_[ARX3+1 , J/BDCFLG 
AC_[AR3 
AC[ 1 3_[ARX3 
AC[DLEN3_[BR3 
[ BRX 3 [BRX]-1, 3T, 



; GET LOW WORD 
; ENTER LOOP FROM BOTTOM 

;COUNT DIGITS 

; KEEP SUBTRACTING 10**C(BRX) 
;SAVE BINARY 

; OFFSET DIGIT 
;SEE WHICH MODE 

TRANSLATE, START READING TABLE 
; GO GET ENTRY FROM TABLE 
;SAVE LOW BINARY 
CALL [PUTDST3 

; UPDATE STRING LENGTH 



; ARE WE CONVERTING 1B0? 

;YES--FIX THE NUMBER AND CLEAR FLAG 



; STORE BACK NEW STRING LENGTH 
SKIP DP18 



[BR3_~1, SET FPD, 3T, J/BDECLP 
END STATE, CLR FPD, J/SKIP 



; HERE 
=0 

BDTBL: 



TO TRANSLATE 1 DIGIT 

END STATE, 

CALL [L0ADAR3 
TR [ BRX 3 , n/iimi 
[AR3_0, HOLD RIGHT, 
TL [BRX 3, #/ 100000 
[AR]_[AR] SWAP 
[AR3 0, HOLD RIGHT, 



;DON'T CHANGE BYTE POINTER IF 

; THIS PAGE FAILS 

;G0 PUT WORD IN AR 

; LAST DIGIT 
J/BDSET 

; AND NEGATIVE 

; LAST AND MINUS, USE LH 
J/BDSET 



BDABT: [ AR 3_W0RK [ BDH 3 , J/DAC 

BDCFLG: [BR )_[BR3 . AND . NOT . # , 
#/040000, HOLD RIGHT, 
J/D0CVT3 



CLEAR FLAG THAT TELLS US 
TO SUBTRACT 1 AND 
CONTINUE CONVERTING 



\ 



; T10KL.MCR[ 10, 1 141 3 15:34 27-JULY-1984 MICRO 

; EXTEND. MICE 10, 1 141 ] 1 1:35 26-JULY-1984 



U 2226, 2230,0551,0616,4374,4007,0701,0000,0000,0344 
U 2227, 2675,4443,0000,4174,4007,0700,0000,0000,0000 



U 2230, 2236,3441,1617,4174,4007,0700,0210,0000,0010 

U 2232, 2234, 1551 ,0404,6274,4007,0561 ,4000,0000,0000 

U 2234, 2235, 1111 ,0703,4174,4007,0700,4000,0000,0000 

U 2235, 341 1 ,0551 ,0616,4374,4007,0701 ,0000,0000,0373 

U 3411, 3412,3333,0016,4174,4007,0700,0200,0000,0010 

U 3412, 2236, 1551 ,0303,6274,4007,0522,4000,0000,0000 



U 2236, 0002,4551,0404,4374,0004,1700,0000,0037,7777 

U 2237 , 34 1 3 , 055 1 , 0303 , 6274 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3413, 34 1 4 , 3333 , 00 1 7 , 4 1 74 , 4007 , 0700 , 0200 , 0000 , 00 10 

U 3414, 2240,0551,0404,6274,4007,0561,0000,0000,0000 



U 2240, 0006,4551,0404,4374,0004,1700,0000,0037,7777 



U 2241 , 



2240,01 1 1 ,0703,4174,4007,0700,0000,0000,0000 
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6409 

6410 

641 1 

6412 

6413 

6414 

6415 

6416 

6417 

6418 

6419 

6420 

6421 

6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 , 

6438 

6439 

6440 

6441 



SUBROUTINE TO SUBRTACT A POWER OF 10 FROM AR ! ARX 
CALL WITH: 

AR ! ARX/ NUMBER TO BE CONVERTED 

BRX( RIGHT )/ POWER OF 10 
RETURNS: 

2 RESULT IS STILL POSITIVE 

6 RESULT WOULD HAVE BEEN NEGATIVE (RESTORE DONE) 



=0 

BDSUB: 



=0* 

BDSUB 1 ; 



=o 

CLARXO: 



=0 

BDSUB2: 



[TO]_[BRX]+#, 3T, WORK/DECLO, ; ADDRESS OF LOW WORD 
U/BDSUB 1 
J/FIXPC 



[T1]_[T0], LOAD 
CALL [CLARXO] 
[ ARX ]_[ ARX] -RAM , 
SKIP CRY 1 
EAR] EAR]-1 



;N0 INTERRUPT 
; INTERRUPT 

VMA, ;PUT IN VMA , 

;FIX UP SIGN OF LOW WORD 
3T, ; SUBTRACT 

;SEE IF OVERFLOW 
; PROCESS CARRY 



ETO]__EBRX]+#, 3T, WORK/DECHI ; ADDRESS OF HIGH WORD 
READ ETO], LOAD VMA 
[ AR ]_[ AR ] -RAM , 4T , 
SKIP DPO 



CLEAR ARXO, 
RETURN E2] 

Ear ]_E ar ]+ram 

READ [T 1 ] , LOAD VMA 
[ARX]_JARX]+RAM, 3T , 

CLEAR ARXO, 
RETURN E63 
[AR]_[AR]+1 , 

J/BDSUB2 



; PLACE IN VMA 
; SUBTRACT 
;SEE IF IT FIT 

;IT FIT, KEEP LOW WORD 
; AND RETURN 
; RESTORE 

SKIP CRY 1 



KEEP LOW WORD + 
RETURN OVERFLOW 
ADD BACK THE CARRY 
COMPLETE SUBTRACT 



15:34 27-JULY-1984 MICRO 
11 :35 26-JULY-1984 





u 


3741 , 


3472,01 1 1 ,0703,4170,4007,0700,0210,0004,0012 




u 


3751 , 


2242 ,3771, 0006 , 0276 , 6007 , 0700 , 0000 , 0000 , 0000 




u 


2242, 


3556 , 4553 , 0600 , 4374 , 4007 , 032 1 , 00 10 , 0004, 7777 




u 


2246, 


3415,3443, 0600 ,4174, 4007 , 0700 , 0200 , 0004 , 00 1 2 




u 


3415, 


34 16 , 422 1 , 001 3 , 4 1 70 , 4007 , 0700 , 0000 , 0000 , 0000 




u 


3416, 


2244 , 3770 , 0605 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 


z 


u 


2244, 


3673,0115, 0505 ,4174, 4007 , 0700 , 00 1 , 0000 , 0000 




u 


2245, 


0654 , 3333 , 0005 ,4174, 4003 , 1 70 1 , 0000 , 0000 , 0000 


o 
*: 


u 


0654, 


2250 , 3770 , 0303 , 4344 , 4007 , 0700 , 2000 , 007 1 , 0007 




u 


0655, 


225 1 , 3770 , 0303 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 




u 


d656, 


2250 , 3447 , 0303 ,4174, 4007 , 0700 , 2000 , 007 1 , 0006 




u 


0657, 


34 1 7 , 455 1 , 0303 , 4374 , 4007 , 0700 , 0000 ; 0000 ,0777 



T10KL.MCRC 10, 1 141 ] 
EXTEND . MIC [ 10, 1141] 



U 2250, 2250,3447,0303,4174,4007,0630,2000,0060,0000 
U 2251, 3417,4551,0303,4374,4007,0700,0000,0000,0777 
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EXTEND EDIT MAIN LOOP 



6442 .TOC "EXTEND -- EDIT -- MAIN LOOP" 

6443 

6444 ; HERE FOR EDIT INSTRUCTION 

6445 ; CALL WITH: 

6446 ; AR/ EO ADDRESS OF FILL, FLOAT , AND MESSAGE TABLE 

6447 ; BR/ E1 ' TRANSLATE TABLE 

6448 ; 

6449 3741: 

6450 EDIT: VMA_[AR]+1, START READ, ;FIRST GET FILL BYTE 

6451 CALL [GTFILL] ; GO GET IT 

6452 3751: [BRX]_AC ; GET PATTERN POINTER 

6453 =0** TL [ BRX ] , #/047777, ; MAKE SURE SECTION O 

6454 CALL [BITCHK] ; . . 

6455 EDITLP: VMA_[BRX], START READ ; FETCH PATTERN WORD 

6456 END STATE ; NO SPECIAL PAGE FAIL ACTION 

6457 [BR]_[BRX] SWAP ; GET PBN IN BITS 20 & 21 

6458 =0 [BR]_[BR]*4, ; .. 

6459 CALL [LOADAR] ; GET PATTERN WORD 

6460 READ [BR], 3T , DISP/DP LEFT 

6461 =1100 

6462 [ AR ]_[ AR ] SWAP, SC_7 , U/MOVPAT ; (0) BITS 0-8 

6463 [AR]_[AR] SWAP, J/MSKPAT ; ( 1 ) BITS 9-17 

6464 [AR]_[AR3*.5, SC_6 , J/MOVPAT ;(2) BITS 18-27 

6465 [ AR ]_[ AR ] . AND . ft , #/777, J/EDISP ;(3) BITS 28-35 

6466 =0 

6467 MOVPAT: [ AR ]_[ AR ] * . 5 , STEP SC , J/MOVPAT ;SHIFT OVER 

6468 MSKPAT: [ AR ]_[ AR ] . AND . # , #/777 * 
6469 



; T10KL.MCR[ 10, 1141] 15:34 27-JULY-1984 MICRO 

; EXTEND. MIC[10, 1141 J 1 1 : 35 26- JULY- 1984 

U 3417, 2252 , 3447 , 0305 ,4174, 4007 , 0700 , 2000 , 007 1 , 0002 

U 2252, 2252,3447,0505,4174,4007,0630,2000,0060,0000 

U 2253, 0661,3333,0005,4174,4003,5701,0000,0000,0000 

U 0661 , 2254, 1553,0300,4374,4007,0532,4000,0000,0005 

U 0663 , 2266 , 3333 , 0006 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 

U 0665, 3437,4443,0000,4174,4007,0700,0000,0000,0000 

U 0667 , 3437 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 067 1 , 3437 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 0673 , 2272,4553, 0600 , 4374 , 4007 , 032 1 , 0000 , 00 1 , 0000 

U 0675, 2272,4553, 0600 , 4374 , 4007 , 032 1 , 0000 , 0020 , 0000 

U 0677 , 2272 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 2254 , 3437 , 4443 , 0000 ,4174, 4007 , 0700 , OOOO , 0000 , 0000 

U 2255 , 07 1 , 3333 , 0003 ,4174, 4003 , 570 1 , 0000 , 0000 , 0000 

U 0710, 3420,01 1 1 ,0701 ,4174,4007,0700,0000,0000,0000 

U 0711, 2231,3771,0013,4370,4007,0700,0000,0000,0011 

U 07 1 2 , 0246 , 3333 , 0006 ,4174, 4007 , 0520 , 0000 , 0000 , 0000 



U 0713, 3437,4551,0606,4374,0007,0700,0000,0007,7777 
U 0714, 0715,3771,0005,1276,6007,0701,0000,0000,1443 



U 07 1 5 , 2260 , 3443 , 0500 ,4174, 4007 , 0700 , 0200 , 0004 , 00 1 2 



254) 
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6470 
6471 
6472 
6473 
6474 
6475 
6476 
6477 
6478 
6479 
6480 
6481 
6482 
6483 
6484 
6485 
6486 
6487 
6488 
6489 
6490 
6491 
6492 
6493 
6494 
6495 
6496 
6497 
6498 
6499 
6500 
6501 
6502 
6503 
6504 
6505 
6506 
6507 
6508 
6509 
6510 
651 1 
6512 
6513 
6514- 



; HERE WITH PATTERN BYTE RIGHT ADJUSTED IN AR 
EDISP: [BR]_[AR]*.5, SC_2 ;5HIFT OVER 

=0 

EDISP 1 : [BR] [BR]*. 5, STEP SC , J/ EDI SP 1 



=0001 



READ [BR], 3T, DISP/DP 

[AR]-#, #/5, 4T, 
SKIP DP18, J/EDOPR 

READ [BRX] , SKIP DPO, 
J/EDMSG 

J/EDNOP 

J/EDNOP 

J/EDNOP 

TL [BRX], #/ 100000, 
J/EDSKP 

TL [BRX], #/200000, 
J/EDSKP 



.TOC 



J/EDSKP 
"EXTEND -- 



LOOK AT HIGH 3 BITS 

(0) OPERATE GROUP 

SEE IF 0-4 

(1) MESSAGE BYTE 



;(2) UNDEFINED 
; (3) UNDEFINED 
; (4) UNDEFINED 
;<5) SKIP IF M SET 

; (6) SKIP IF N SET 

; (7) SKIP ALWAYS 



EDIT 



DECODE OPERATE GROUP" 



; HERE FOR OPERATE GROUP. SKIP IF IN RANGE 
= 

EDO PR : J/EDNOP 

READ [AR], 3T, DISP/DP 
=1000 [PC]_[PC]+1, J/EDSTOP 

STATE_[ EDIT -SRC ] , 

J/EDSEL 

READ [BRX] , SKIP DPO, 
J/EDSSIG 

[BRX]_JBRX] . AND . # , 
#/77777, HOLD RIGHT, 
J/EDNOP 
[BR ]_AC [MARK ] 
VMA_[BR] , START READ, 
J/EDEXMD 



OUT OF RANGE 
DISPATCH ON TYPE 
(O) STOP EDIT 
( 1 ) SELECT SOURCE BYTE 

(2) START SIGNIFICANCE 

(3) FIELD SEPERATOR 

(4) EXCHANGE MARK AND DEST 



o 

; T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; EXTEND. MIC[ 10, 1 141 ] 11:35 26-JULY-1984 

\ 



U 3420, 3421,7441,0605,4174,4007,0700,1000,0071,0010 

U 3421, 3422,3441,0603,4174,4007,0701,1000,0043,0000 

U 3422 , 2256 , 4553 , 0500 , 4374 , 4007 , 032 1 , 0000 , 0003 , 0000 

U 2256 , 1 5 1 5 , 3770 , 0303 , 4334 , 40 1 7 , 0700 , 0000 ,004 1 , 0000 

U 2257, 2256,0111,0703,4174,4007,0700,1000,0051,0700 



U 0246 , 3426 , 4443 , 0000 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 
U 0247 , 3437 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 ,0000 , 0000 



U 2260, 
U 2261 , 



U 3423, 
U 3424, 



3673,3772,0000, 1 275 , 5007 , 070 1 . 00 10 , 0000 , 1444 
3423 , 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0003 , 0002 



3424,3223, 0000 ,4174, 4007 , 070 1 , 0200 , 0000 , 0002 
3437,3440,0303, 1 1 74 , 4007 , 0700 , 0400 , 0000 , 1444 



254) 
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6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 
6541 
6542 
6543 
6544 
6545 
6546 
6547 



.TOC 



"EXTEND -- EDIT -- STOP EDIT" 



; HERE TO END AN EDIT OPERATION. PC IS SET TO SKIP IF NORMAL END 
; OR NON-SKIP IF ABORT 



EDSTOP: [BR]_.NOT. [ BRX ] , 
FE_S#, S0/1O 
[AR]_[BRX], 3T, FE_FE+P 
[BR ] . AND . # , 3T, 
#/030000, SKIP ADL.EO-0 



=0 

EDSTP1 ; 



. TOC 



[AR]_P, J/STAC 

[AR]_[AR]+1 , 

FE_FE . AND . S# , S#/0700, 

J/EDSTP1 



AD WILL NOT DO D . AND . NOT . A 
PRESET FE 

MOVE POINTER, UPBATE PBN 
WAS OLD NUMBER 3? 



NO- -ALL DONE 
YES- -BUMP WORD # 
KEEP ONLY FLAG BITS 
GO STOP EDIT 



■EXTEND -- EDIT START SIGNIFICANCE" 



; HERE WITH DST POINTER IN AR 
= 110 

EDSSIG: CALL [EDFLT] 
J/EDNOP 



; STORE FLT CHAR 

:D0 NEXT PATTERN BYTE 



.TOC 



"EXTEND -- EDIT -- EXCHANGE MARK AND DESTINATION" 



; HERE WITH ADDRESS OF MARK POINTER IN BR 

=0 



EDEXMD: Q_AC[DSTP] , 

CALL [LOADAR] 
START WRITE 



MEM WRITE, MEM_Q 
AC[DSTP]_[AR] , J/EDNOP 



GET DEST POINTER 
GO PUT MARK IN AR 

START WRITE. SEPERATE STEP TO AVOID 

PROBLEM ON DPM5 
PUT OLD DEST IN MARK 
PUT BACK DEST POINTER 



T 10KL . MCR[ 10, 1 141 ] 
EXTEND. MIC[ 10, 1141] 



15:34 27-JULY-1984 
1 1 :35 26-JULY- 1984 



MICRO 



U 2231, 2313,3771,0003,1276,6007,0701,0010,0000,1441 
U 2233, 0700,3447,0303,7174,4007,0700,0000,0000,0241 

U 0700, 3457,0551,0303,7274,4007,0700,0010,0000,0241 



U 0702, 2262,3333,0003,4174,4007,0621,0000,0000,0000 

U 0703, 0606,3771,0013,4370,4007,0700,0000,0000,0011 
U 0704 , 3420 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 ,0000 , 0000 



U 0705, 3464,3771,0013,4370,4007,0700,0010,0000,0013 
U 0707 , 3437 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 2262, 0705,4443,0000,4174,4007,0700,0000,0000,0000 
U 2263 , 3437 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 0606, 3426,3333,0004,7174,4007,0700,0410,0000,0246 
U 0607, 3425,3771,0003,7274,4007,0701,0000,0000,0246 



U 3425, 0705,4251,0303,4374,4007,0700,0000,0007,7777 
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EXTEND EDIT PROCESS SOURCE BYTE 

6548 .TOC " EXTEND EDIT -- PROCESS SOURCE BYTE" 
6549 

6550 =0* 

6551 EDSEL: [ AR ]_AC [ SRCP ] , ;PICK UP SRC POINTER 

6552 CALL [GETSRC] ; GET SOURCE BYTE 

6553 [AR]_[AR]*.5, W0RK[E1] ; PREPARE TO TRANSLATE 

6554 =000 [ARJ_[AR]+W0RK[E1 ] , ; GO TRANSLATE BY HALFWORDS 

6555 2T, CALL [TRNAR] ; . . 

6556 =010 

6557 EDFILL: READ [AR], ;(2) NO SIGNIFICANCE, GO FILL 

6558 SKIP AD.EO.O, ; SEE IF ANY FILLER 

6559 J/EDFIL1 ; GO TO IT 

6560 STATE_[EDIT-SRC] , ;(3) SIG START, DO FLOAT CHAR 

6561 J/EDSFLT 

6562 =100 J/EDSTOP ;(4) ABORT 

6563 =101 

6564 EDSPUT: STATE_[ EDIT-S+D ] , ;(5) NORMAL, STORE AT DST 

6565 CALL [PUTDST] ; 

6566 =111 

6567 J/EDNOP ;(7) BYTE STORED 

6568 = 
6569 

6570 ; HERE TO COMPLETE STORING FILL 

6571 =0 

6572 EDFIL1: J/EDSPUT ;ST0RE FILLER 

6573 J/EDNOP ; NO FILLER TO STORE 
6574 

6575 ; HERE TO DO FLOAT BYTE 

6576 =110 

6577 EDSFLT: WORK[ FSIG]_[ ARX ] , ; SAVE SIG CHAR 

6578 CALL [ EDFLT ] ; STORE FLOAT CHAR 

6579 [AR]_WORK[FSIG] ; RESTORE CHAR 

6580 [ AR ] E AR ] . AND . # CLR LH, ; JUST KEEP THE BYTE IN CASE 

6581 #/77777, ; DEST BYTE . GT . 15 BITS 

6582 J/EDSPUT ; GO STORE CHAR WHICH STARTED THIS AL 

6583 



o 

T10KL.MCR[ 10, 1141] 
EXTEND . MIC [ 10, 1141] 



15:34 27-JULY-1984 
11 :35 26- JULY - 1 984 



MICRO 



U 3426, 3427,3771 ,0005, 1276,6007,0701 ,0000,0000, 1443 

U 3427 , 3430 , 3443 , 0500 ,4174, 4007 , 0700 , 0200 , 0003 , 00 1 2 

U 3430, 3431 ,3771 ,0005, 1276,6007,0701 ,0000,0000, 1444 

U 3431 , 2264,3333,0005,4175,5007,0701 ,0200,0000,0002 

U 2264, 3433,4751 , 1203,4374,4007,0700,0010,0000,0002 

U 2265, 0740,3771,0003,4365,5007,0621,0200,0000,0002 



U 0740, 3464,3551 , 1313,4370,4007,0700,0010,0000,0012 

U 0741, 3432,3551,0606,4374,0007,0700,0000,0040,0000 

U 0746 , 3432 , 355 1 , 0606 , 4374 , 0007 , 0700 , 0000 , 0040 , 0000 

U 3432, 0007,3440,0606,0174,4004,1700,0400,0000,0000 



U 2266, 0760,3771,0003,7274,4007,0622,0000,0000,0244 

U 2267 , 2270 , 425 1 , 0303 , 4374 , 4007 , 0700 , 0000 , 0000 , 0077 

U 2270, 3433,0111,0703,7174,4007,0700,0010,0000,0240 

U 2271, 0760,3771,0003,4365,5007,0700,0200,0000,0002 



U 0760 , 3464 , 377 1 , 00 1 3 , 4370 , 4007 , 0700 , 00 10 , 0000 , 00 1 2 
U 0761, 3437,4443,0000,4174,4007,0700,0000,0000,0000 
U 0766 , 3437 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 3433, 



U 3434, 



3434 , 055 1 , 0303 , 7274 , 4007 ,070 1 , 0000 , 0000 , 0240 
000 1 , 3443 , 0300 ,4174, 4004 , 1 700 , 0200 , 0004 , 00 1 2 



254) 



6584 
6585 
6586 
6587 
6588 
6589 
6590 
6591 
6592 
6593 
6594 
6595 
6596 
6597 
6598 
6599 
6600 
6601 
6602 
6603 
6604 
6605 
6606 
6607 
6608 
6609 
6610 
661 1 
6612 
6613 
6614 
6615 
6616 
6617 
6618 
6619 
6620 
6621 
6622 
6623 
6624 
6625 
6626 
6627 
6628 
6629 
6630 
6631 
6632 
6633 
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SUBRUTINE TO PROCESS FLOAT CHAR 
CALL WITH: 

AR/ POINTER TO STORE @ MARK 
7 WITH FLOAT STORED 
[BR ]_AC [ MARK ] 
VMA_[ BR ] , START WRITE 
[BR]_AC[DSTP] 
MEM WRITE, MEM_[ BR ] 
[AR]_0 XWD [2] , 
CALL [EDBYTE] 
MEM READ, [AR]_MEM, 
SKIP AD.EQ.O 



RETURN 
EDFLT : 



=0 



=000 



=001 



= 110 



[ FLG ]_[ FLG ] .0R.#, 
STATE/ED I T-DST , 
HOLD LEFT, 
CALL [PUTDSTJ 
[BRX]_[BRX] .0R.#. 



ADDRESS OF MARK POINTER 
READY TO STORE 
GET DST POINTER 
STORE POINTER 
FETCH FLOAT CHAR 
GET TBL BYTE 
GET FLOAT CHAR 
SEE IF NULL 



; REMEMBER TO BACKUP DST POINTER 
WILL ALSO BACKUP SRC IF CALLED 
FROM SELECT 
STORE FLOAT 
#/400000, 



HOLD RIGHT, J/ EDFLT 1 ; NULL 
[BRX]_JBRX] .0R.#, #/400000, 
HOLD RIGHT, J/ EDFLT 1 ; MARK STORED 



EDFLT 1 : AC_[BRX] : 



.TOC 



RETURN [7] 
"EXTEND -- EDIT 



SAVE FLAGS SO WE DON'T 
TRY TO DO THIS AGAIN IF 
NEXT STORE PAGE FAILS 
AND RETURN 



MESSAGE BYTE" 



; HERE WITH SKIP ON S 
=0 

EDMSG 



=0 



=000 
EDMSG 1 : 

=001 
= 1 10 



[ AR ]_WORK [FILL] , 
SKIP AD.EQ.O, 4T, 
J/EDMSG 1 

[ AR ]_[ AR ] . AND . # CLR LH, 

if /ll 

[AR]_[AR]+1 , W0RK[EO] , 

CALL [EDBYTE] 

MEM READ, [AR]_MEM 

STATE_[ EDIT-DST] , 
CALL [PUTDST] 
J/EDNOP 
J/EDNOP 



GET FILL BYTE 
SEE IF NULL 
GO STORE 

GET OFFSET INTO TABLE 
PLUS 1 

GET TBL BYTE 
FROM MEMORY 

WHAT TO DO ON PAGE FAILS 
STORE MESSAGE BYTE 
NULL FILLER 
NEXT BYTE 



[AR]_[ARJ+WORK[EO] 
VMA_[ AR ] , START READ, 
RETURN [1] 



GET OFFSET INTO TABLE 
START MEMORY CYCLE 
RETURN TO CALLER 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

EXTEND. MIC[ 10, 1 141 3 1 1 : 35 26-JULY-1984 



U 2272, 3435,4551,0303,4374,4007,0700,0000,0000,0077 

U 2273, 3437,4443,0000,4174,4007,0700,0000,0000,0000 
U 3435, 3436,0115,0703,4174,4007,0700,0000,0000,0000 



U 3436, 3440,3333,0003,4174,4007,0701,2000,0007,0000 



U 3437, 
U 3440, 
U 3441 , 
U 3442, 
U 3443, 



3440,4443, 
3441 ,3333, 
3442,4443, 
3443,4443, 
3444,4443, 



0000,4174, 
0006,4174; 
0000,4174 , 
0000,4174, 
0000,4174, 



4007,0700, 
4007,0701 , 
4007,0700, 
4007,0700, 
4007,0700, 



2000 , 007 1 , 0000 
1000,0073,0000 
1000,0051 ,0030 
1000,0040,0000 
1000,0041 ,0010 



U 3444 , 3445 , 3777 , 0003 , 4334 , 4057 , 0700 , 2000 , 004 1 , 0000 



U 3445, 2274,4251,0303,4374,4007,0630,0000,0000,0170 



U 2274, 2276,3447,0303,4174,4007,0700,2000,0071,0000 



U 2275, 2274,3551,0303,4370,4007,0700,0000,0000,0200 

U 2276, 2276,3447,0303,4174,4007,0630,2000,0060,0000 

U 2277 , 3446 ,0111, 0306 ,4170, 4007 , 0700 , 0000 , 0000 , 0000 

U 3446 , 3447 , 3770 , 0303 , 4334 , 401 7 , 0700 , 0000 , 004 1 , 0000 

\ 

U 3447 , 3450 ,4551, 0606 , 4374 , 0007 , 0700 , 0000 , 0070 , 0000 

U 3450, 3451,4551,0303,4374,4007,0700,0000,0003,0000 

U 3451 , 3452,31 1 1 ,0306,4174,0007,0700,0000,0000,0000 

U 3452, 2246,3440,0606,0174,4007,0700,0400,0000,0000 



254) 
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6634 .TOC "EXTEND EDIT SKIP" 
6635 

6636 =0 

6637 ; HERE TO SKIP ALWAYS 

6638 EDSKP: [ AR J_[ AR 3 - AND . , 0/77, ; JUST KEEP SKIP DISTANCE 

6639 J/ EDSKP 1 ; CONTINUE BELOW 

6640 ; HERE IF WE DO NOT WANT TO SKIP 

6641 J/EDNOP 

6642 EDSKP 1 : [ AR ]_( [ AR 3 + 1 ) *2 ;GIVE 1 EXTRA SKIP 

6643 READ [AR], SCAD/A*2, ; PUT THE ADJUSTMENT 

6644 SCADA/BYTE5, 3T, LOAD SC , ; THE SC 

6645 J/EDNOP 1 ;JOIN MAIN LOOP 
6646 

6647 

6648 . TOC " EXTEND -- EDIT -- ADVANCE PATTERN POINTER" 

6649 

6650 EDNOP: SCJD ; NO SKIP 

6651 EDNOP 1 : READ [BRX 3 , 3T , FE_P ; PUT PBN IN FE 

6652 FE_FE . AND . S0 , S0/3O ;JUST BYTE 

6653 FE_FE+SC ; ADD IN ANY SKIP DISTANCE 

6654 FE_FE+S0 , S0/1O ; BUMP PBN 

6655 [ AR 3_FE , ; GET NUMBER OF WORDS 

6656 LOAD SC ; PUT MSB WHERE IT CAN BE TESTED 

6657 ; QUICKLY 

6658 C AR 3_[ AR 3 - AND . CLR LH, ; KEEP ONLY 1 COPY 

6659 #/170, SKIP/SC ; 

6660 =0 

6661 EDN1A: [ AR J_[ AR 3 * . 5 , SC_0, 

6662 J/EDN0P2 ; READY TO SHIFT OFF BYTE WITHIN 

6663 ; WORD 

6664 [AR3_[AR3 .OR.0, 0/200, ; GET THE SIGN BIT OF THE FE 

6665 HOLD LEFT, ; INTO THE AR. ONLY HAPPENS ON 

6666 J/EDN1A ; SKP 76 OR SKP 77 

6667 =0 

6668 EDN0P2: [ AR ]_[ AR 3 * - 5 , STEP SC , J/EDN0P2 

6669 [BRX3_[BRX]+[AR] , ; UPDATE WORD ADDRESS 

6670 HOLD LEFT 

6671 CAR3_P ;PUT PBN BACK IN BRX 

6672 [BRX3_[BRX3 . AND . , ; JUST KEEP FLAGS 

6673 0/700000, ; .. 

6674 HOLD RIGHT 

6675 [ AR 3__[ AR 3 - AND . , ; JUST KEEP PBN 

6676 0/030000 

6677 [BRX3„[BRX] .OR. [AR] , ; F INAL ANSWER 

6678 HOLD RIGHT 

6679 ACJBRX], J/EDITLP ;D0 NEXT FUNCTION 
6680 



o 

; T10KL.MCR[10,1141] 15:34 27-JULY-1984 MICRO 31 

; EXTEND. MICC 10, 1 141 ] 1 1 : 35 26- JULY- 1984 



U 0322 , 3464 ,3771, 0003 , 7274 , 4007 , 0700 , 00 1 , 0000 , 0244 

U 0326, 3453,3771 ,0003, 1276,6007,0701 ,0000,0000, 1443 

U 3453, 2300,01 13,0703, 1 174,4007,0521 ,0400,0000, 1443 

U 2300, 0002,4443,0000,4174,4004,1700,0000,0000,0000 

U 2301, 0322,4443,0000,7174,4007,0700,0000,0000,0244 



254) 



KS10 MICROCODE V124, 
EXTEND SUBROUTINES - 



27-JUL-84 Page 182 
- FILL OUT DESTINATION 



6681 
6682 
6683 
6684 
6685 
6686 
6687 
6688 
6689 
6690 
6691 
6692 
6693 
6694 
6695 
6696 
6697 
6698 
6699 
6700 
6701 
6702 
6703 
6704 



. TOC 



"EXTEND SUBROUTINES 



FILL OUT DESTINATION" 



CALL WITH 

AC [ DLEN ] / NEGATIVE NUMBER OF BYTES LEFT IN DEST 
FILL/ FILL BYTE 

RETURN [2] WITH FILLERS STORED 



NOTE : 



=01* 
M0VF1 : 



=0 

MOVFIL: 



THIS ROUTINE NEED NOT TEST FOR INTERRUPTS ON EACH BYTE 
BECAUSE EVERY BYTE STORE DOES A MEMORY READ. 



2T, 



[AR]_WORK[FILL] 
CALL [PUTDST] 
[ AR ]_AC [DLEN ] 
AC[DLEN]_[AR]+1 
SKIP DPO 
RETURN [2] 
WORK[ FILL ] , J/M0VF1 



3T, 



GET FILL BYTE 
PLACE IN DEST 
AMOUNT LEFT 
STORE UPDATED LEN 

AND SEE IF DONE 
DONE 

DO ANOTHER BYTE 

ENTERING HERE SAVES 150NS 

PER BYTE BUT COSTS 300NS 

PER FIELD MOVED. I ASSUME (BUT DO 

NOT KNOW) THAT THIS SPEEDS 

THINGS UP. 



T10KL.MCRC 10, 1 141 ] 15:34 27-UULY-1984 

EXTEND. MICC 10, 1 141 ] 1 1:35 26-JULY-1984 



MICRO 



U 1114, 2312,3333,0003,7174,4007,0520,0410,0000,0242 
U 1115,' 0001,4221,0013,4170,4004,1700,0000,0000,0000 
U 1116, 0716,4443,0000,7174,4003,7700,0000,0000,0241 

U 07 1 6 , 3456 , 3447 , 0303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
U 0717, 3454,3770,0303,7174,0007,0700,0000,0000,0241 



U 3454, 3455,0551,0303,7274,4007,0700,0000,0000,0241 



U 3455, 0004,4553,0300,7274,4004,1622,0000,0000,0243 



254) KS10 MICROCODE V124, 27-JUL-84 Page 183 

EXTEND SUBROUTINES -- GET MODIFIED SOURCE BYTE 

6705 . TOCEXTEND SUBROUTINES GET MODIFIED SOURCE BYTE" 

6706 

6707 ; CALL WITH: 

6708 ; SLEN = MINUS LENGTH OF STRING 

6709 ;MSK = MASK FOR BYTE SIZE (1 IF BIT MUST BE ZERO) 

6710 ;E1 = EFFECTIVE ADDRESS OF OPERATION WORD (SIGN EXTENDED IF OFFSET) 

6711 ; [AR]_W0RK[SLEN]+1 , CALL [SRCMOD] 

6712 ; RETURNS: 

6713 ; 1 LENGTH EXHAUSTED 

6714 ; 2 (EDIT ONLY) NO SIGNIFICANCE 

6715 ; 3 (EDIT ONLY) SIGNIFICANCE START: 

6716 ; 4 ABORT: OUT OF RANGE OR TRANSLATE FAILURE 

6717 ; 5 NORMAL: BYTE IN AR 

6718 ; 

6719 ; DROM B SET AS FOLLOWS: 

6720 ; O TRANSLATE 

6721 ; 1 OFFSET 

6722 ; 2 EDIT 

6723 ; 4 CVTDBT 

6724 =00 

6725 SRCMOD: WORK [ SLEN }_[ AR ] , ; PUT BACK SOURCE LENGTH 

6726 SKIP DPO, ;SEE IF DONE 

6727 CALL [GSRC] ; GET A SOURCE BYTE 

6728 END STATE, RETURN [1] ; DONE 

6729 W0RK[E1], B DISP ; OFFSET OR TRANSLATE? 

6730 = 

6731 =1110 [AR]_[AR}*.5, d/XLATE TRANSLATE 

6732 FIX [AR] SIGN, W0RK[E1] ;IF WE ARE PROCESSING FULL WORD 

6733 ; BYTES, AND THEY ARE NEGATIVE, 

6734 ; AND THE OFFSET IS POSITIVE THEN 

6735 ; WE HAVE TO MAKE BITS -1 AND -2 

6736 ; COPIES OF THE SIGN BIT. 

6737 [AR]_[AR]+W0RK[E1 ] , 2T ; OFFSET 

6738 [AR] - AND. WORK[MSK] , ; VALID BYTE? 

6739 SKIP AD.EQ.O, 4T , ;SKIP IF OK 

6740 RETURN [4] ; RETURN 4 IF BAD, 5 IF OK 
6741 



T10KL. X foc-#'[ 10, 1 141 ] "15:34 27-UULY-1984 MICRO 
EXTEND. MI C[ 10,1141] 11:35 26-JULY-1984 



U 3456, 3457,0551 , 0303 , 7274 , 4007 , 0701 , 0000 , 0000 , 024 1 

U 3457 , 2302 , 3333 , 0003 ,4174, 4007 , 0700 , 0200 , 0004 , 00 1 2 

U 2302 , 3674 , 3445 , 0303 ,4174, 4007 , 0700 , 00 10 , 0000 , 0000 

U 2303 , 2304 , 4553 , 0300 , 4374 , 4007 , 033 1 , 0000 , 0000 , 000 1 



U 2304, 
U 2305, 



0721 ,3441 ,0403,4174,4003, 1701 ,0000,0000,0000 
2304 , 3770 , 0404 , 4344 , 4007 , 0700 , 0000 , 0000 , 0000 



31 (254) 
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EXTEND SUBROUTINES TRANSLATE 



6742 
6743 
6744 
6745 
6746 
6747 
6748 
6749 
6750 
6751 
6752 
6753 
6754 
6755 
6756 
6757 
6758 
6759 



.TOC 



'EXTEND SUBROUTINES 



; HERE WITH BYTE IN AR 1-36. 



XLATE : 
TRNAR: 



= 

XLATE 1 



[AR]_[AR]+W0RK[E1 ] 
READ [AR] , LOAD VMA 
START READ 
[AR]_[AR]*2, 



CALL [LOADARX] 
TR [AR], #/1 

[AR]_[ARX], 3T, 
DISP/DP LEFT, 
J/TRNFNC 

[ARX]_[ARX] SWAP, 
J/XLATE 1 



TRANSLATE" 

FETCH TABLE ENTRY. 

; COMPUTE ADDRESS 
; FETCH WORD 

GET BACK LSB 
BIT 36 IS NOT PRESERVED 

BY PAGE FAILS 
PUT ENTRY IN ARX 
WHICH HALF? 



RH COPY TO AR 
DISPATCH ON CODE 
DISPATCH TABLE 
LH -- FLIP AROUND 
START SHIFT 



T10KL.MCR[10 f 1141] 15:34 27-JULY-1984 

EXTEND. MIC[ 10, 1141] 11:35 26-JULY-1984 



MICRO 



U 0721, 2306,3333,0006,4174,4007,0520,0000,0000,0000 

U 0723 , 0004 , 4443 , 0000 ,4174, 4004 , 1 700 , 0000 , 0000 , 0000 

U 0725, 0721,5551,0606,4374,0007,0700,0000,0010,0000 

U 0727, 0721,3551,0606,4374,0007,0700,0000,0010,0000 

U 0731, 0721,3551,0606,4374,0007,0700,0000,0020,0000 

U 0733, 0004,3551,0606,4374,0004,1700,0000,0020,0000 

U 0735, 0731,5551,0606,4374,0007,0700,0000,0010,0000 

U 0737 , 072 1 , 3551, 0606 , 4374 , 0007 , 0700 , OOOO , 0030 , 0000 



v 



254) 
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EXTEND SUBROUTINES TRANSLATE 



6760 
6761 
6762 
6763 
6764 
6765 
6766 
6767 
6768 
6769 
6770 
6771 
6772 
5 6773 
6774 
6775 
6776 
6777 
6778 
6779 
6780 
6781 
6782 
6783 
6784 
6785 
6786 
6787 
6788 
6789 
6790 
6791 
6792 
6793 
6794 
6795 
6796 



HERE ON TRANSLATE OPERATION TO PERFORM FUNCTIONS REQUIRED BY 
THE 3 HIGH ORDER BITS OF THE TRANSLATE FUNCTION HALFWORD . WE 
DISPATCH ON FUNCTION AND HAVE: 

BRX/ FLAGS 

ARX/ TABLE ENTRY IN RH 



=0001 
TRNFNC: 



TRNSIG: 



READ [BRX] , SKIP DPO, 
J/TRNRET 

RETURN [4] 

[BRX]_[BRX] . AND . NOT . # , 
#/ 100000, HOLD RIGHT, 
J/TRNFNC 

[BRX]_[BRX] .QR.#, 

#/ 100000, HOLD RIGHT, 

J/TRNFNC 

[BRX]_[BRX] .0R.#, 
#/200000, HOLD RIGHT, 
J/TRNFNC 

[BRX]_[BRX].0R.#, 
#/200000, HOLD RIGHT, 
RETURN [4] 

[BRX]_[BRX] . AND . NOT . # , 
#/ 100000, HOLD RIGHT, 
J/TRNSIG 

[BRX]_[BRX] .0R.#, 
#/300000, HOLD RIGHT, 
J/TRNFNC 



(0) NOP 

S FLAG ALREADY SET? 

(1) ABORT 

; (2) CLEAR M FLAG 

; (3) SET M FLAG 

; (4) SET N FLAG 

;(5) SET N FLAG THEN ABORT 

; (6) CLEAR M THEN SET N 

; (7) SET N AND M 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

EXTEND . MIC[ 10, 1 141 ] 11:35 26-JULY-1984 



U 2306, 0754,3333,0004,4174,4003,7530,0000,0000,0000 

U 2307, 0005,4251,0403,4374,4004,1700,0000,0007,7777 

U 0754, 0533,3771,0003,1276,6003,7701,0000,0000,1443 

U 0755, 2307,3551,0606,4374,0007,0700,0000,0040,0000 

U 0756, 0002,3771,0003,7274,4004,1701,0000,0000,0244 

U 0757, 0003,3771,0003,1276,6004,1701,0000,0000,1444 

U 0533 , 3460 ,1111, 0703 ,4174, 4007 , 0700 , 4000 , 0000 , 0000 

U 0537, 1 1 14,0551 , 0703 , 7274 , 4007 , 0701 ,0000,0000,0242 

U 3460, 2310,3770,0303, 1 1 74 , 4007 , 0520 , 0400 , 0000 , 1443 

U2310, 1114,3771, 0003 , 7274 , 4007 , 070 1 , 0000 , 0000 , 0242 

U 2311,, 1114,0551,0703,7274,4007,0701,0000,0000,0242 
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EXTEND SUBROUTINES TRANSLATE 



6797 ; HERE TO COMPLETE A TRANSLATE 
6798 

6799 =0 

6800 TRNRET: READ [ARX], SKIP DP18, ; S- FLAG IS ZERO 

6801 B DISP, SKIP DP18, ;SEE IF EDIT OR SIG START 

6802 J/TRNSS ; . . 

6803 TRNSS1: [ AR ]_[ ARX ] . AND . ft CLR LH, ;S IS SET, JUST RETURN BYTE 

6804 #/77777, RETURN [5] ; .. 
6805 

6806 =1100 

6807 TRNSS: [ AR ]_AC [ DLEN ] , ;N0 SIG ON MOVE OR D2B 

6808 B DISP, J/TRNNS 1 ;SEE IF D2B 

6809 [ BRX ] [ BRX 3 . OR . # , ;SIG START ON MOVE OR D2B 

6810 #/400000, HOLD RIGHT, 

6811 J/TRNSS 1 ; RETURN BYTE 

6812 [ AR ]_WORK [FILL] , ;EDIT--NO SIG RETURN FILL 

6813 RETURN [2] ; . . 

6814 [AR]_AC[DSTP] , ; EDIT- -START OF SIG 

6815 RETURN [3] ; . . 
6816 

6817 =1011 

6818 TRNNS1: [AR]_[AR]-1, J/TRNNS2 ; COMPENSATE FOR IGNORING SRC 

6819 [AR]_W0RK[SLEN]+1 , ;DEC TO BIN HAS NO DEST LENGTH 

6820 J/SRCMOD ; JUST UPDATE SRC LENTH 

6821 TRNNS2: AC [ DLEN ]_[ AR ] TEST, ; PUT BACK DLEN AND 

6822 SKIP DPO ; SEE WHICH IS NOW SHORTER 

6823 =0 [ AR ]_WORK[ SLEN] , ; DEST IS SHORTER. DO NOT CHANGE 

6824 J/SRCMOD ; AMOUNT LEFT 

6825 [AR]_W0RK[SLEN]+1 , ; GO LOOK AT NEXT BYTE 

6826 J/SRCMOD 
6827 



T10KL.MCR[ 10, 1 141 3 15:34 27-JULY-1984 

EXTEND . MIC [ 10, 1141] 11:35 26- JULY- 1984 



MICRO 31(254) 
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EXTEND SUBROUTINES GET UNMODIFIED SOURCE BYTE 



U 2312, 0001,3771,0003,1276,6004,1701,0000,0000,1443 

U 2313, 3461,3771,0003,1276,6007,0701,0000,0000,1441 

U 3461, 0231,3770,0305,4334,4016,7701,0000,0033,6000 

U 0231, 3463,3441,0503,4174,4007,0700,0000,0000,0000 

U 0233, 3462, 3770 ,0503, 4334, 40 17, 0700; 0000 ,0032, 6000 

U 3462 , 3463 , O 1 1 1 , 0703 , 4 1 70 , 4007 , 0700 , 0000 ,0000 , 0000 

U 3463, 2314,3440,0303,1174,4007,0700,0400,0000,1441 

U 2314, 3071 ,3333,0003,4174,4217,0701 , 1010,0073,0500 

U 2315, 0340,3333,0003,4174,4006,5701,1000,0051,0770 



6828 
6829 
6830 
6831 
6832 
6833 
6834 
6835 
6836 
6837 
6838 
6839 
6840 
6841 
6842 
6843 
6844 
6845 
6846 
6847 
6848 
6849 
6850 
6851 
6852 
6853 
6854 
6855 
6856 



.TOC 



"EXTEND SUBROUTINES 



GET UNMODIFIED SOURCE BYTE" 



CALL: 

GSRC WITH SKIP ON SOURCE LENGTH 
GETSRC IF LENGHT IS OK 

WITH: 

AC 1 / SOURCE BYTE 'POINTER 
RETURNS: 

1 IF LENGTH RAN OUT 

2 IF OK (BYTE IN AR) 



=0 

GSRC: 
GETSRC : 



=01 



[AR]_AC[DLEN] , 
RETURN [ 1 ] 
[AR]_AC[SRCP3 
IBP DP, IBP SCAD, 
SCAD DISP, 3T 
[AR3_[BR3, J/ GSRC 1 
SET P TO 36-S 
[AR]_[AR]+1 , HOLD LEFT 



GSRC 1 : AC[SRCP3 C AR] 



READ [ AR 3 
FE_P, 3T, 
READ [ AR 3 
BYTE DISP, 
FE_FE . AND . S# 
J/LDB1 



LOAD pYTE EA, 
CALL [BYTEAS] 



S#/0770, 



LENGTH RAN OUT 

RESTORE AR AND RETURN 

GET SRC PTR 

UPDATE BYTE POINTER 

SEE IF OFLOW 

NO OFLOW 

RESET P 

BUMP Y 

STORE UPDATED POINTER 
SETUP TO FIGURE OUT 

EFFECTIVE ADDRESS 
LOOK AT POINTER 
SEE IF 7 BIT 
MASK OUT P FIELD 
GO GET THE BYTE 



O' 

; T10KL.Mc6[ 10, 1 141 } 15:34 27-JULY-1984 MICRO 

; EXTEND. MIC[ 10, 1 141 ] 11:35 26-JULY-1984 



U 3464, 2316,3441,0304,4174,4007,0700,0000,0000,0000 
U 2316, 3465,3771 ,0003, 1 276 , 6007 , 0701 , 0010, 0000, 1444 

U 2317, 2320,0113,0404,4174,4007,0701 , 1000,0077,0000 



U 2320, 0360,3333,0003,4174,4006,5701,0010,0000,0000 
U 2322, 0006,4443,0000,4174,4004,1700,0000,0000,0000 
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EXTEND SUBROUTINES -- STORE BYTE IN DESTINATION STRING 

6857 .TOC "EXTEND SUBROUTINES STORE BYTE IN DESTINATION STRING 

6858 

6859 ; CALL WITH: 

6860 ; AR/ BYTE TO STORE 

6861 . ; AC4/ DESTINATION BYTE POINTER 

6862 ; RETURNS: 

6863 ; AR & AC4/ UPDATED BYTE POINTER 

6864 ; ARX/ BYTE TO STORE 

6865 ; BR/ WORD TO MERGE WITH 

6866 ; 6 ALWAYS 

6867 ; 

6868 PUTDST: [ARXj_[AR] ; SAVE BYTE 

6869 =0 [AR]_AC[DSTP] , ; GET DEST POINTER 

6870 CALL [IDST] ; BUMP DEST POINTER 

6871 AD/A+B, A/ARX, B/ARX, ;SHIFT 7-BIT BYTE TO 

6872 SCAD/A, 3T , ; NATURAL PLACE, AND PUT 

6873 SCADA/BYTE5, LOAD FE ; INTO FE 

6874 =0* READ [AR], BYTE DISP, ; GO PUT BYTE IN MEMORY 

6875 CALL [DPB1 ] ; . . 

6876 RETURN [6] ; ALL DONE 
,6877 



T10KL.MCR[ 10, 1 141] 15:34 27^ JULY- 1984 ' MICRO 31(254) 

EXTEND. MIC[ 10, 1 141 ] 11:35 26'- JULY- 1984 ■ 
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EXTEND SUBROUTINES -- UPDATE DEST STRING POINTERS 



U 3465, 2321,3770,0305,4334,4016,7701,0000,0033,6000 

U 2321 , 3467,3441 ,0503,4174,4217,0700,0000,0000,0600 

U 2323 , 3466 , 3770 , 0503 , 4334 , 40 1 7 , 0700, 0000 , 0032 , 6000 

U 3466, 3467,01 1 1 ,0703,4170,4217,0700,0000,0000,0600 

U 3467, 0230,3440,0303,1174,4006,6701,1400,0073,1444 

U 0230 , 3074 , 0553 , 0300 , 2274 , 4007 , 070 1 , 0200 , 0004 , 07 1 2 

U 0232 , 3074 , 3443 , 0300 , 4 1 74 , 4007 , 0700 , 0200 , 0004 , 07 1 2 

U 0234, 3470,0553,0300,2274,4007,0701,0200,0004,0612 

U 0236 , 3470 , 3443 ,0300 ,4174, 4007 , 0700 , 0200 , 0004 , 06 1 2 

U 3470, 3471 ,3771 .0003,4361 ,5217,0700,0200,0000,0602 

U 3471, 0230,4443,0000,2174,4006,6700,0000,0000,0000 



U 3556, 2732,4551,0202,4374,0007,0700,0000,0077,7740 
U 3557, 0004,4443,0000,4174,4004,1700,0000,0000,0000 



U 3472, 3473,3771,0003,4365,5007,0700,0200,0000,0002 
U 3473, 0010,3333,0003,7174,4004,1700,0400,0000,0244 

U 3474, 0001,4551,0303,4374,0004,1700,0000,0000,0777 



6878 
6879 
6880 
6881 
6882 
6883 
6884 
6885 
6886 
6887 
6888 
6889 
6390 
6891 
6892 
6893 
6894 
6895 
6896 
6897 
6898 
6899 
6900 
6901 
6902 
6903 
6904 
6905 
6906 
6907 
6908 
6909 
6910 
691 1 
6912 
6913 
6914 
6915 
6916 
6917 
6918 
6919 
6920 
6921 



.TOC 



'EXTEND SUBROUTINES 



UPDATE DEST STRING POINTERS" 



SUBROUTINE TO BUMP DST POINTERS 
CALL WITH: 

AR/ AC[DSTP] 

RETURN 1 WITH UPDATED POINTER STORED 

IDST: IBP DP, IBP SCAD, SCAD DISP, 3T 
=0* [AR]_[BR], LOAD DST EA, J/IDSTX 

SET P TO 36-S 

[AR]_[AR]+1 , HOLD LEFT, LOAD DST EA 
AC[DSTP]_[AR] , 3T, ;ST0RE PTR BACK 

FE_P, DISP/EAMODE ; SAVE P FOR CMPDST 

VMA_[AR]+XR, START READ, PXCT BYTE DATA, 3T , J/BYTFET 
VMA_[ AR ] , START READ, PXCT BYTE DATA, J/BYTFET 
VMA__[AR]+XR, START READ, PXCT/BI S -DST- EA , 3T , J/DSTIND 
VMA_[AR], START READ, PXCT/BIS-DST-EA, J/DSTIND 

DSTIND : MEM READ, [ AR ]_MEM , HOLD LEFT, LOAD DST EA 
EA MODE DISP, J/DSTEA 



IDSTX: 

= 100* 
DSTEA: 



HERE TO TEST ILLEGAL BITS SET 

CALL WITH: 

SKIP IF ALL BITS LEGAL 
RETURN [4] IF OK, ELSE DO UUO 



EXTEND OF COMES HERE 



3556: 
BITCHK: UUO 
3557: RETURN [4] 



; HERE TO PUT FILL IN [AR] AND W0RK[FILL] 



GTFILL: MEM READ, 
I AR ]_MEM 

WORK[FILL]_[AR] , 
RETURN [10] 



WAIT FOR DATA 
PLACE IN AR 
SAVE FOR LATER 
RETURN TO CALLER 



-SUBROUTINE TO CLEAR FLAGS IN AR 

CLRFLG: [ AR ]_[ AR ] . AND . # , ; CLEAR FLAGS IN AR 

#/000777, • ; . . 

HOLD RIGHT, RETURN [ 1 ] 



T10KL>iCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

EXTEND. MIC[ 10, 1 141 ] 1 1 : 35 26- JULY- 1984 



U 2324, 3507,3771 ,0003, 1276,6007,0701 ,0010,0000, 1441 

U 2325, 2676,3440,0505, 1 174,4007,0700,0400,0000, 1441 

U 3475, 3476,3771 ,0003,7274,4007,0701 ,0000,0000,0214 

U 3476, 2326,01 13,0703,0174,4007,0701 ,0400,0000,0000 



U 2326, 3507,3771,0003,1276,6007,0701,0010,0000,1444 
U 2327, 2676,3440,0505,1174,4007,0700,0400,0000,1444 



U 3477, 3500, 1771 ,0003,7274,4007,0701 ,4000,0000,0242 

U 3500, 2330,3771,0005,1276,6007,0522,0000,0000,1443 

U 2330, 3502,3440,0303, 1 174,4007,0700,0400,0000, 1443 

U 2331 , 2332,3441 ,0304,4174,4007,0700,0000,0000,0000 

U 2332, 3704,3551 ,0404,7274,4007,0701 ,0010,0000,0214 

U 2333, 3501,1111,0503,4174,4007,0700,4000,0000,0000 

U 3501 , 2676,3440,0303, 1 174,4007,0700,0400,0000, 1443 

U 3502, 3504,0111,0503,4174,4007,0700,0000,0000,0000 

U 3503, 3504,1771,0003,7274,4007,0701,4000,0000,0242 

U 3504 , 3505 ,3551, 0303 , 7274 , 4007 , 070 1 , 0000 , OOOO , 02 1 4 

U 3505, 2676,3440,0303,0174,4007,0700,0400,0000,0000 

U 3506, 3500,7771 ,0003,7274,4007,0701 ,0000,0000,0242 

U 3507, 0001,3770,0305,4334,4014,1700,0000,0043,6000 



1 (254) 
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EXTEND PAGE FAIL CLEANUP 



6922 .TOC " EXTEND -- PAGE FAIL CLEANUP" 

6923 

6924 ; BACK UP SOURCE POINTER 

6925 =0 

6926 BACKS: [ AR ]_AC [ SRCP ] , 

6927 CALL [BACKBP] ; BACKUP BP 

6928 AC[SRCP]_[BR] , J/CLDISP 
6929 

6930 CMSDST: [ AR ]_WORK [ SV . BRX ] ; GET OLD SRC LEN 

6931 AC_[AR]+1, 3T ; BACK UP 

6932 ; BACK UP DESTINATION POINTER 

6933 =0 

6934 BACKD: [ AR ]_AC [ DSTP ] , 

6935 CALL [BACKBP] 

6936 AC[DSTP]_[BR] , J/CLDISP 
6937 

6938 ; FAILURES DURING MOVE STRING (BACKUP LENGTHS) 

6939 STRPF: [ AR ]_- WORK [ SLEN ] ; GET AMOUNT LEFT 

6940 STRPFO: [ BR ]_AC [ DLEN ] , 4T, ;WHICH STRING IS LONGER? 

6941 SKIP DPO 

6942 =0 

6943 STRPF 1 : AC [ DLEN ]_[ AR ] , J/STPF1A ; SRC LONGER 

6944 [ARX]_[AR] ;COPY SRC LENGTH 

6945 =0 [ARX]_[ARX] .OR. WORK[SV.BRX] , ;REBUILD FLAGS 

6946 CALL [AC_ARX] ; RESET AC ] SLEN] 

6947 [AR]_[AR]-[BR] ; MAKE DEST LEN 

6948 STRPF 3 : AC [ DLEN ]_[ AR ] , ; PUT BACK DEST LEN 

6949 J/CLDISP ; DO NEXT CLEANUP 
6950 

6951 STPF1A: [ AR ]_[ AR ] + [ BR ] , J/STRPF2 
6952 

6953 PFDBIN: [ AR ]_- WORK [ SLEN ] ; RESTORE LENGTH 

6954 STRPF2: [ AR ]_[ AR ] . OR . WORK[ SV . BRX ] 

6955 PFGACO: AC_[AR], J/CLDISP ; PUT BACK SRC LEN AND FLAGS 

6956 

6957 STRPF4: [ AR ]_. NOT . WORK [ SLEN ] , J/STRPFO 
6958 

6959 BACKBP: IBP DP, SCAD/A+B , SCADA/BYTE 1 , SCADB/SIZE, ;P_P+S 

6960 RETURN [1] 
6961 



; T10KL.MCR[ 10, 1 141 3 15 : 34 ' 27- JULY- 1984 MICRO 
; INOUT.MIC[ 10, 1 141 3 09 : 17 .27- JULY- 1984 

U 3510, 351 1 ,3741 ,0104,4074,4007,0700,0000,0000,0000 
U 3511, 2334,3333,0004,7174,4007,0340,0400,0000,0425 



U 2334, 3512,0111 5 1103,4364,4007,0700,0200 ; OO24,1O16 



U 2335, 3512,01 1 1 , 1003,4364,4007,0700,0200,0024, 1016 

U 3512, 3513,3771,0002,4365,5617,0700,0200,0000,0002 

U 35 1 3 , 2336 , 4553 , 0200 , 4374 , 4007 ,032 1 , 0000 ,0070 , 0000 

U 2336, 2711,4443,0000,4174,4467,0700,0000,0001,0000 

U 2337, 2732,4551,0202,4374,0007,0700,0000,0077,7740 
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TRAPS \ 

6962 .TOC "TRAPS" 

6963 

6964 TRAP: [ARX3_PC WITH FLAGS ;SAVE THE PC WHICH CAUSED THE 

6965 WORK[TRAPPC3__[ARX3 , ; TRAP 

6966 SKIP KERNEL ;SEE IF UBR OR EBR 

6967 =0 [AR3_[AR3+[UBR3 , ; ADDRESS OF INSTRUCTION 

6968 MEM READ, ;WAIT FOR PREFETCH TO GET INTO 

6969 ; THE CACHE. MAY PAGE FAIL BUT 

6970 ; THAT IS OK 

6971 START READ, ; START FETCH 

6972 VMA PHYSICAL, ; ABSOLUTE ADDRESSING 

6973 J/TRP1 ;JOIN COMMON CODE 
6974 

6975 [AR3_[AR3+[EBR3 . ;WE COME HERE IN EXEC MODE 

6976 MEM READ, ;WAIT FOR PREFETCH TO GET INTO 

6977 * ; THE CACHE. MAY PAGE FAIL BUT 

6978 ; THAT IS OK 

6979 START READ , ; START FETCH" 

6980 VMA PHYSICAL, ; ABSOLUTE ADDRESSING 

6981 J/TRP1 ;JOIN COMMON CODE 
6982 

6983 TRP1: MEM READ, [HR}_MEM, ;PLACE INSTRUCTION IN HR 

6984 LOAD INST ; LOAD IR, XR , @ 

6985 [HR 3 . AND . # , ; TEST TO SEE IF THIS 

6986 #/700000, 3T , ; IS A UUO 

6987 SKIP ADL.EQ.O 

6988 =0 CHANGE FLAGS, ;NOT A UUO 

6989 HOLD USER/1, ; CLEAR TRAP FLAGS 

6990 U/XCT1 ;D0 THE INSTRUCTION 

6991 UUO ;D0 THE UUO 

6992 



\ / ■ v / 



o. 



T10KL.Wi<[ 10, 1 141 ] 
INPUT . MIC[ 10, 1141] 



15 : 
09: 



34 
17 



27- 
27- 



JULY- 
JULY- 



1984 
1984 



D 0700 
D 0701 



U 1701 

U 1702 

U 1703 

U 1706 

U 1707 

U 1710 

U 1711 

U 1712 

U 1713 

U 1716 

U 1717 



U 1720 
U 1726 
U 1727 



U 1730 

U 1731 

U 1732 

U 1733 

U 1734 

U 1735 

U 1736 

U 1737 

U 35.14 
U 3515 

U 3516 
U 3517 



1200, 1700,4100 
1200, 1720,4100 



2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000; 0077 , 7740 
2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
3516,3771, 0005 , 4304 , 4007 , 070 1 , 0000 , 0000 , 0000 
3514,3771, 0005 , 4304 , 4007 , 0701 , 0000, 0000 , 0000 

2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 00O0 , 0077 , 7740 
2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
3517,3441,1 405 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
3515, 344 1 , 1 405 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



2732 ,4551, 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2732 ,4551, 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 
2732,4551, 0202 , 4374 , 0007 , 0700 , 0000 , 0077 ,7740 



2732 
2732 
2732 
2732 
2732 
2732 
2732 
2732 



,4551 
,4551 
,4551 
,4551 
,4551 
,4551 
,4551 
,4551 



0202, 
0202, 
0202 , 
0202, 
0202, 
0202, 
0202, 
0202, 



4374. 
4374, 
4374. 
4374. 
4374. 
4374. 
4374. 
4374, 



0007, 

0007. 

0007, 

0007. 

0007 

0007, 

0007, 

0007, 



0700. 
0700, 
0700 . 
0700, 
0700, 
0700, 
0700, 
0700, 



0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 



0077, 
0077, 
0077, 
0077, 
0077, 
0077, 
0077, 
0077, 



3515,4251, 0505 , 4374 , 4007 , 0700 , OOOO , 0000 ,7770 
0260 ,4113, 0305 ,4174, 4007 , 0330 , 0000 , 0000 , 0000 

35 1 7 , 425 1 , 0505 , 4374 , 4007 , 0700 , 0000 , 0000 ,7770 
1 400 ,4113, 0305 ,4174, 4007 , 0330 , 0000 , 0000 , 0000 
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6993 
6994 
6995 
6996 
6997 
6998 
6999 
7000 
7001 
7002 
7003 
7004 
7005 
7006 
7007 
7(308 
7009 
7010 
701 1 
7012 
7013 
7014 
7015 
7016 
7017 
7018 
7019 
7020 
7021 
7022 
7023 
7024 
7025 
7026 
7027 
7028 
7029 
7030 
7031 
7032 
7033 



7740 
7740 
7740 
7740 
7740 
7740 
7740 
7740 



K5 i 
10 



MICROCODE V124, 27-JUL-84 
- INTERNAL DEVICES 



Page 192 



.TOC 



. DCODE 



"10 



INTERNAL DEVICES" 



700: 


I0T,AC DISP, J/GRP700 




I0T,AC DISP, J/GRP701 




.UCODE 




1701 


UUO 


;DATAI APR, 


1702 


UUO 


; BLKO APR, 


1703 


UUO 


; DATAO APR, 


1706 


[BR] APR, 


J/APRSZ ;CONSZ APR, 


1707 


[BR] APR, 


J/APRSO ;CONSO APR, 


1710 






RDERA: UUO 


; BLKI PI, 


1711 


UUO 


; DATAI PI, 


1712 


UUO 


; BLKO PI , 


1713 


UUO 


; DATAO PI , 


1716 


[BR] [PI] 


, J/CONSZ ;CONSZ PI, 


1717 


[BR] [PI] 


J/CONSO ;CONSO PI, 


1720 






GRP701: UUO 


; BLKI PAG, 


1726 


UUO 


;CONSZ PAG, 


1727 


UUO 


;CONSO PAG, 



;680I AND CACHE SWEEP STUFF 



1730 




UUO 


1731 




UUO 


1732 




UUO 


1733 




UUO 


1734 




UUO 


1735 




UUO 


1736 




UUO 


1737 




UUO 


APRSO: 


[BR] 


CONSO: 


[BR] 


APRSZ: 


[BR] 


CONSZ-: 


[BR] 



[BR]. AND. # CLR LH, #/7770_ 
~AND.[AR], SKIP ADR.EQ.O, ^ 



T10KL.MCR[ 10, 1141] 
IN0UT.MIC[ 10, 1 141 ] 



15:34 27-JULY-1984 
09: 17 27-JULY-1984 



MICRO 



U 1700, 0137,3771,0005,4374,4007,0700,0000,0001,0001 



U 0137, 3626,3771,0005,4374,0007,0700,0000,0055,0124 



U 1704, 3520,3771,0005,7274,4007,0701,0000,0000,0230 



U 3520, 
U 3521 , 
U 3522, 

U 3523, 
U 3524, 
U 2340, 
U 2341 , 
U 2342, 
U 2343, 
U 3525, 
U 2344, 
U 2345, 
U 2346, 
U 2347, 

U 2350, 
U 2351 , 

U 3526, 

U 3527, 



3521 ,5551 
3522,4551 
3523,3111 



0505,4370,4007 
0304,4374,4007 
0405,4174,4007 



,0700,0000,0000, 
,0700,0000,0000, 
,0700,0000,0000, 



3524, 
2340, 
2341 , 
2342, 
2343, 
3525, 
2344, 
2345, 
2346, 
2347, 
2350, 



4551 , 
4553. 
3111, 
4553, 
5111 , 
3771 , 
4553, 
5111, 
4553, 
3111, 
4553, 



3530,3333, 
3526,3333, 

3527, 3333 ; 

1400,3333, 



0304, 
0300, 
0405, 
0300, 
0405, 
0006, 
0300, 
0406, 
0300, 
0406, 
0300, 



4374, 
4*374, 
4174, 
4374, 
4174, 
4304, 
4374, 
4174, 
4374, 
4174, 
4374, 



4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 
4007 



,0700, 
,0331 , 
,0700. 
,0331 , 
,0700, 
,0701 , 
,0331 , 
,0700, 
,0331 , 
,0700, 
,0331 , 



0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 



0000, 
0010, 
0000, 
0004, 
0000, 
0000, 
0002, 
0000, 
0001 , 
0000, 
0003, 



0006,4174,4007, 
0005,4174,4007, 

0005,4174,4257, 

0005,7174,4007, 



,0700,0000,0000, 
, 0700 , 0000 , 0000 , 

,0700,0000,0000, 

,0700,0400,0000, 



0007 
0007 
0000 

7760 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

0000 
0000 

0000 

0230 



U 3530, 3531,3333,0006,4174,4237,0700,0000,0000,0000 
U 3531 , 3532,5551 ,0606,4370,4007,0700,0000,0000,2000 



U 3532, 2351 , 3333,0006,4174,4237,0700,0000,0000,0000 
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10 -- INTERNAL DEVICES 

7034 1700: 

7035 GRP700: 

7036 APR ID : [BR]_#, 

7037 #/4097. 

7038 137: [BR]_#, 

7039 MICROCODE 0PTI0N( INHCST )/OPT , 

7040 MICROCODE OPTION(NOCST )/OPT , 

7041 MICROCODE 0PTI0N(N0NSTD)/0PT , 

7042 MICROCODE 0PTI0N(UBABLT ) /OPT , 

7043 MICROCODE OPT ION(KI PAGE )/OPT , 

7044 MICROCODE OPT ION ( K LP AGE )/OPT , 

7045 MICROCODE VERSION/UCV, 

7046 HOLD RIGHT, 

7047 d/RTNREG 
7048 

7049 1704: 

7050 WRAPR: [ BR ]_WQRK [ APR ] 

7051 tBR]_[BR] . AND . NOT . # , ; CLEAR THE OLD PIA 

7052 #/7, HOLD LEFT ; . . 

7053 [ARX]_[AR] . AND . # , #/7 ; PUT NEW PIA IN ARX 

7054 [BR]_JBR] .OR. [ARX] ; PUT NEW PIA IN BR 

7055 [ ARX ]_[ AR ] . AND . ft , ; MASK THE DATA BITS 

7056 #/007760 ; DOWN TO ENABLES 

7057 TR [AR], #/lOOOOO ; WANT TO ENABLE ANY? 

7058 =0 [BR]__[BR] .OR. [ARX] ;YES--SET THEM 

7059 TR [AR], #/40000 ; WANT TO DISABLE ANY? 

7060 =0 [BR]_[BR] . AND. NOT. [ARX] ;YES~-CLEAR THEM 

7061 [BRX]_APR ; GET CURRENT STATUS 

7062 TR [AR], #/20000 ; WANT TO CLEAR FLAGS? 

7063 =0 [ BRX ]__[BRX ] . AND . NOT . [ ARX ] ; YES- -CLEAR BITS 

7064 TR [AR], #/10000 ; WANT TO SET ANY FLAGS? 

7065 =0 [BRX]_[BRX] .OR. [ARX] ;YES--SET FLAGS 

7066 TR [AR], #/30000 ; ANY CHANGE AT ALL? 

7067 =0 READ [BRX], ;YES--LOAD NEW FLAGS 

7068 J/WRAPR2 ; TURN OFF INTERRUPT 8080 

7069 WRAPR 1 : READ [BR]. ;FIX DPM TIMING BUG 

7070 READ [BR], ; ENABLE CONDITIONS 

7071 SET APR ENABLES 

7072 WORK[APR]_[BR] , ; SAVE FOR RDAPR 

7073 J/DONE ; ALL DONE 
7074 

7075 WRAPR2: READ [BRX], ; LOAD NEW FLAGS 

7076 SPEC/APR FLAGS ; . . 

7077 [BRX ]_[BRX] . AND . NOT . # , ; CLEAR INTERRUPT THE 8080 

7078 #/002000, HOLD LEFT ; FLAG 

7079 READ [BRX], ; LOAD NEW FLAGS 

7080 SPEC/APR FLAGS, ; .. 

7081 J/WRAPR 1 ;L00P BACK 
7082 



T10KL.MCR[ 10, 1141] 
IN0UT.MIC[ 10, 1 141 ] 



15:34 27-JULY-1984 
09: 17 27- JULY- 1984 



MICRO 31(254) 



U 1705, 3533,3771,0005,7274,4007,0701,0000,0000,0230 

U 3533, 3534,377O,O505,4344,0007,O70Q,O00O,0O00,0OOO 

U 3534, 3535,4551 , 0505 , 4374 , 0007 , 0700 , 0000 , 0000 , 7760 

U 3535, 3536,4551,0505,4370,4007,0700,0000,0000,0007 

U 3536, 3537,3771 ,0004,4304,4007,0701 ,0000,0000,0000 

U 3537 , 3540 , 425 1 , 0404 , 4374 , 4007 , 0700, OOOO , 0000 , 7770 

U 3540 , 3626 , 3 1 1 1 , 0405 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



7083 
7084 
7085 
7086 
7087 
7088 
7089 
7090 
7091 
7092 
7093 
7094 
7095 
7096 
7097 
7098 
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1705: 
RDAPR : 
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[BR]_WORK[APR] 
[ BR ]_[ BR ] SWAP, 
HOLD RIGHT 
[6R3_[BR] . AND . # , 
#/7760, 
HOLD RIGHT 
[BR,]__[BR] . AND. #, 
#/7) 

HOLD LEFT 
[ARX]_APR 

[ARX]_[ARX] .AND.# CLR LH 

#/007770 

[ BR ]_[BR ] .OR. [ARX] , 
J/RTNREG 



;PUT ENABLES IN BOTH 
; HALVES 

;SAVE ENABLES IN LH 



SAVE PIA IN RH 



READ THE APR FLAGS 

; MASK OUT JUNK 
KEEP 8 FLAGS 
MASH THE STUFF TOGETHER 
RETURN 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

INOUT.MICC 10, 1141] 09:17 27-JULY-1984 



U 1723, 354 1 , 3443 , 0300 ,4174, 4007 , 0700 , 0200 , 0004 , 00 1 2 

U 3541, 2352,3771,0003,4365,5007,0521,0200,0000,0002 

U 2352, 2354,4551 ,0303,4374,0007,0321 ,0000,0010,0000 

U 2353, 3542,4551,1111,4374,0007,0700,0000,0077,0077 

U 3542 , 2354 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 00 10 , 0000' 

U 2354, 3543,4551,0305,4374,4007,0700,0000,0001,7777 

U 2355, 1400,31 1 1 ,031 1 ,4174,0477,0700,0000,0000,0000 

U 3543, 2356,4221 ,0005,4174,0007,0700,2000,0071 , 0O07 

U 2356 , 2356 , 3445 , 0505 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 

U 2357, 3544,4551,1111,4374,0007,0700,0000,0077,7774 

U 3544, 3545,4221 ,001 1 ,4170,4007,0700,0000,0000,0000 

U 3545,- 3546,3111,0511,4174,4007,0700,0000,0000,0000 

U 3546, 2426,3111,0311,4174,0477,0700,0000,0000,0000 
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7099 .TOC "10 -- INTERNAL DEVICES EBR & UBR" 
7100 

7101 1723: 

7102 WRUBR: VMA__[AR], ; LOAD E INTO VMA 

7103 START READ ; START MEMORY 

7104 MEM READ, ;WAIT FOR DATA 

7105 [ AR ]_MEM , 3T , ; PUT IT INTO THE AR 

7106 . SKIP DPO ;SEE IF WE WANT TO LOAD 

7107 ; AC BLOCK NUMBERS 

7108 =0 [ AR ]_.[ AR ] . AND . # , ;NO--CLEAR JUNK IN AR 

7109 #/ 100000, ; LEAVE ONLY LOAD UBR 

7110 HOLD RIGHT, ; IN LEFT HALF 

7111 SKIP ADL.EQ.O, 3T, ;SEE IF WE WANT TO LOAD 

7112 J/ACBSET ;SKIP AROUND UBR LOAD 

7113 [UBR ]_[UBR 3 . AND . # , ; MASK OUT THE OLD 

7114 #/770077, ; AC BLOCK NUMBERS 

7115 HOLD RIGHT ; IN THE LEFT HALF 

7116 [ AR 3 . AND . # , ;SEE IF WE WANT TO LOAD 

7 117 #/ 100000, 3T, ; UBR ALSO 

7118 SKIP ADL.EQ.O 

7119 =0 

7120 ACBSET : [ BR 3_C AR 3 - AND . # , ;COPY UBR PAGE NUMBER 

7121 #/ 17777, ; INTO BR 

7122 J/SETUBR ; GO LOAD UBR. 
'7123 [UBR 3_[UBR 3 . OR . [ AR 3 , ; DO NOT LOAD UBR 

7124 ; PUT AC BLOCK # IN 

7125 HOLD RIGHT, ; THE LEFT HALF 

7126 LOAD AC BLOCKS, ; LOAD HARDWARE 

7127 J/DONE . ; ALL DONE 

7128 SETUBR: [BR3__0, ; CLEAR BR LEFT 

7129 SC_7, ;PUT THE COUNT IN SC 

7130 HOLD RIGHT 

7131 =0 

7132 STUBRS: [ BR 3_J BR 3 *2 , ;SHIFT BR OVER 

7133 STEP SC, ; 9 PLACES 

7134 J/STUBRS 

7135 [UBR 3_[UBR ] . AND . # , ; MASK OUT OLD UBR 

7136 #/777774, ; BITS IN 

7137 HOLD RIGHT ; LEFT HALF 

7138 [UBR3_0, ; CLEAR RIGHT HALF 

7139 HOLD LEFT 

7140 [UBR3_[UBR3 -OR. [BR] ; PUT IN PAGE TABLE ADDRESS 

7141 [UBR 3__[ UBR 3 . OR . [ AR 3 , ; PUT IN AC BLOCK # 

7142 HOLD RIGHT, ; IN LEFT HALF 

7143 LOAD AC BLOCKS, ; TELL HARDWARE 

7144 U/SWEEP ; CLEAR CACHE 
7145 



; T10KL.J^CR[ 10, 1 141 3 15:34 27-JULY-1984 MICRO 

; INOUT.MICt 10, 1 141 ] 09:17 27-JULY-1984 



U 1724, 2360,3445,0303,4174,4007,0700,2000,0071,0006 
U 2360 , 2360 , 3445 , 0303 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 



U 2361 , 3547,3771 ,0005,7274,4007,0701 ,0000,0000,0230 

U 3547, 3550,4551,0505,4370,4007,0700,0000,0074,7777 

U 3550 , 2362 , 4553 ,0300 , 4374 , 4007 , 032 1 , 0000 , 0000 , 0020 

U 2362 , 2363,3551, 0505 , 4370 , 4007 , 0700 , 0000 , 0003 , 0000 
HAPPEN 

U 2363, 3551,3333,0005,4174,4257,0700,0000,0000,0000 

U 3551, 3552,3333,0005,7174,4007,0700,0400,0000,0230 



NABLE 

ERNAL FLAG 
BIT O 



U 3552 , 2426 , 344 1 , 03 10 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 



U 1725, 2364,3447, 1005,4174,4007,0700,2000,007 1 ,0006 

U 2364 , 2364 , 3447 , 0505 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 
U 2365, 3553,4551,0505,4374,4007,0700,0000,0006,3777 



U 3553, 3626,4221,0005,4174,0007,0700,0000,0000,0000 



31(254) 



KS10 MICROCODE V124, 27-JUL-84 Page 196 
10 -- INTERNAL DEVICES -- EBR & UBR 



;D0 A SHIFT OVER 8 MORE 



7146 1724: 

7147 WREBR: [AR]_[AR]*2, SC_6 

7148 =0 

7149 WREBR 1 : [AR]_[AR]*2, STEP SC , J/WREBR 1 ;SKIP WHEN = -1 

7150 .IF/FULL ; DO NOT ENABLE PAGING IN SMALL 

7151 ; MICROCODE. 

7152 [BR]_WORK[APR] 

7153 [ BR ]_[ BR ] . AND . # , #/747777, HOLD LEFT 

7154 [ AR ] . AND . # , #/20, 3T , SKIP ADL.EQ.O 



7155 =0 



;7165 

; 7166 
7167 
7168 
; 7169 
;7170 
7171 
7172 
7173 
7174 
7175 
7176 
7177 
7178 
7179 
7180 
7181 
7182 
7183 
7184 
7185 



[BR3_[BR3 .0R.#, #/030000, HOLD LEFT 



;BIT 22 - TRAP ENABL 
;SET - ALLOW TRAPS T 



7156 READ [BR], SET APR ENABLES 

7157 W0RK[APR3_[BR] 

7158 . ENDI F/FULL 
7159 

;7160 . I F/KI PAGE 

;7161 . I F/KLPAGE 

;7162 [ EBR ] [ AR ] ; NOTE : SHIFTED LEFT 9 BITS 

;7163 [EBR]. AND. #, #/40, 3T , SKIP ADL.EQ.O ;BIT 21 - KL PAGING 

;7164 =0 [EBR3_[EBR] . OR . # , #/400000, HOLD RIGHT, J/SWEEP ;YES, SET IN 

[EBR3_[EBR3 . AND . NOT . # , #/400000, HOLD RIGHT, J/SWEEP ;N0, cl 



. ENDI F/KLPAGE 
. ENDI F/KIPAGE 

. I FNOT/KLPAGE 

[ EBR 3_[ AR 3 , J/SWEEP 
. ENDI F/KLPAGE 

. I FNOT/KI PAGE 

[ EBR 3_[ AR 3 , J/SWEEP 
. ENDI F/KI PAGE 



;MUST BE KI ONLY 

;S0 INTERNAL FLAG ISN'T USED 



;MUST BE KL ONLY 

;S0 INTERNAL FLAG ISN'T USED 



1725: 

RDEBR: 

=0 

RDEBR 1 : 



[BR3_[EBR3*-5, SC_6 

[BR3_[BR3*-5, STEP SC , J/RDEBR 1 

[BR ] [ BR 3 . AND . # , #/63777 ; MASK TO JUST EBR 

[BRl^O, ; CLEAR LEFT HALF 

HOLD RIGHJ, ; BITS 

J/RTNREG ; RETURN ANSWER 



T10KL.MCR[ 10, 1 141 3 15:34 27- JULY- 1984 ■ MICRO 

INOUT.MIC[ 10, 1 141 ] 09:17 27-JULY-1984 



U 1721, 
U 2366, 



2366,3441 , 1 105,4174,4007,0700,0000,0000,0000 
2370 , 3447 , 0506 ,4174, 4007 , 0700 , 20 10 , 007 1 , 0006 



U 2367, 3626,4551,0505,4374,0007,0700,0000,0050*7700 



U 3554, 
U 3555, 



3555 , 344 1 , 1 1 05 , 4 1 74 , 4007 , 0700 , 0000 , 0000 , 0000 
2370 , 3447 , 0506 ,4174, 4007 , 0700 , 2000 , 007 1 , 0006 



U 2370 , 2370 , 3447 , 0606 ,4174, 4007 , 0630 , 2000 , OO60 , 0000 
U 2371, 3560,4551,0606,4374,4007,0700,0000,0001,7777 
U 3560, 0001,3441,0605,4170,4004,1700,0000,00.00,0000 
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; 7186 1721: 

; 7187 RDUBR: [BR]_[UBR3 

; 7188 =0 [BRX]_[BR]*.5 f SC_6, CALL [ GTPCW 1 3 

; 7189 [BR ]_[BR 3 • AND . # , ; JUST RETURN USEFUL 

; 7190 #/507700, HOLD RIGHT, ; BITS 

; 7191 J/RTNREG 

; 7192 

; 7193 

; 7194 GETPCW: [BR3_[UBR3 

; 7195 [BRX3_[BR3*-5, SC_6 

; 7196 =0 

; 7197 GTPCW 1 : [ BRX 3_J BRX 3 * - 5 , STEP SC, J/GTPCW1 

; 7198. [ BRX 3_[ BRX ] . AND . # , U / Mill 

; 7199 [BR3_[BRX3, HOLD LEFT, RETURN [13 

; 7200 



\ 



\ 



T10KL. 
INOUT, 



O. 



MIC[ 10 



1 141 ] 
1141] 



15:34 27-JULY-1984 
09: 17 27-JULY-1984 



MICRO 



D 0702, 1216, 1760,4700 



U 1760, 3626,3771 ,0005,7274,4007,0701 ,0000,0000,0215 

U 1761 , 3626,3771 , 0005 , 7274 , 4007 , 0701 , 0000 , 0000 , 02 1 6 

U 1762, 3626,3771 ,0005,7274,4007,0701 ,0000,0000,0220 

U 1763, 3626,3771,0005,7274,4007,0701,0000,0000,0217 

U 1766, 3626,3771,0005,7274,4007,0701,0000,0000,0227 

U 1 767 , 2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 



U 1 770 , 356 1 , 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0004 , 0002 

U 3561 , 3562,3771 ,0003,4365,5007,0700,0200,0000,0002 

U 3562 , 1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 5 

U 1771, 3563 , 4443 , 0000 ,4174, 4007 ,0700 , 0200 , 0004 , 0002 

U 3563 , 3564 , 377 1 , 0003 , 4365 , 5007 , 0700, 0200, 0000 , 0002 

U 3564 , 1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 6 

U 1772, 3565,4443,0000,4174,4007,0700,0200,0004,0002 

U 3565 , 3566 ,3771, 0003 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 3566 , 1 400 , 3333 , 0003 ,7174, 4007 , 07OO , 0400 , 0000 , 0220 

U 1773, 3567,4443,0000,4174,4007,0700,0200,0004,0002 

U 3567 , 3570 ,3771, 0003 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 3570 , 1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 7 

U 1776, 3571,4443,0000,4174,4007,0700,0200,0004,0002 

U 3571 , 3572,3771 ,0003,4365,5007,0700,0200,0000,0002 

U 3572 , 1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 ,0227 

U 1777, 2732,4551,0202,4374,0007,0700,0000,0077,7740 



(254) 
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7201 
7202 
7203 
7204 
7205 . 
7206 
7207 
7208 
7209 
7210 
721 1 
7212 
7213 
7214 
7215 
7216 
7217 
7218 
7219 
7220 
7221 
7222 
7223 
7224 
7225 
7226 
7227 
7228 
7229 
7230 
7231 
J 232 
7233 
7234 
7235 
7236 
7237 
7238 
7239 
7240 
7241 



. TOC 



702: 



'10 



INTERNAL DEVICES 



KL PAGING REGISTERS' 



1772 : 
WRPUR: 



1773: 
WRCSTM: 



1776: 
WRHSB : 



1777: 



. DCODE 

IOT,AC DISP, 
.UCODE 



J/GRP702 



1760: 






GRP702 : 






RDSPB : 


[BR]_WORK[SBR] , 


J/RTNREG 


1761 : 






RDCSB : 


[BR]_WORK[CBR] , 


J/RTNREG 


1762 : 






RDPUR : 


[BR]_WORK[PUR] , 


J/RTNREG 


1763: 






RDCSTM: 


[BR]_WORK[CSTM] 


, J/RTNREG 


1766: 






RDHSB: 


[BR] WORK [ HSBADR ] , J/RTNREG 


1767 : 


UUO 




1770: 






WRSPB : 


START READ 






MEM READ, [AR] 


MEM 




WORK[SBR]_[AR] , 


J/DONE 


1771 : 






WRCSB: 


START READ 






MEM READ, [AR] 


MEM 




WORK[CBR] [AR], 


J/DONE 



START READ 

MEM READ, [AR]_MEM 

WORK[PUR]_[AR] , J/DONE 

START READ 

MEM READ, [ AR ]_MEM 

WORK[CSTM]_[AR] , J/DONE 

START READ 

MEM READ, [ AR ]_MEM 

WORK[HSBADR ]_[ AR ] , J/DONE 

UUO 



T10KL.MCR[ 10, 1 141 ] 
INOUT.MICC 10, 1 141 ] 



15:34 27-JULY-1984 
09:17 27- JULY- 1984 



MICRO 



U 3573, 3574,3771,0003,7274,4117,0701,0000,0000,0301 

U 3574, 3575,4751,12O5,4374,40O7 T O70O,0OO0,OO01,OOOO 

U 3575, 3576,0111,0503,4174,4007,0700,0000,0000,0000 

U 3576, 2372,3770,0303,4174,0007,0520,0000,0000,0000 



U 2372 , 3577 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 030 1 

U 2373 , 2374 , 377 1 , 0003 , 7274 , 4007 ,0701 , OOOO, OOOO , 0300 

U 2374, 3605,01 1 1 ,0703,4174,4007,0700,0010,0000,0000 

U 2376 , 2372,4221, 0003 ,4174, 4007 , 0700 , OOOO , 0000 , OOOO 

U 3577, 3600,3771 ,0003,7274,4007,0701 ,0000,0000,0303 

U 3600, 2400, 1 1 1 1 ,0503,4174,4007,0421 ,4000,0000,0000 



U 2400, 0002,3333,0003,7174,4004,1700,0400,0000,0303 

U 2401, 3601,3771,0003,7274,4007,0701,0000,0000,0302 

U 3601, 3602,3771,0005,4304,4007,0701,0000,0000,0000 

U 3602 , 3603 , 355 1 , 0505 , 4374 , 4007 , 0700 , OOOO , OOOO , 0040 



U 3603, 



2400 , 3333 , 0005 ,4174,4237, 0700 , OOOO , OOOO , OOOO 
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7242 .TOC "10 -- INTERNAL DEVICES TIMER CONTROL" 

7243 
7244 

7245 ; BEGIN [ 123] 

7246 TICK: [ AR 3_W0RK[TIME 1 3 , ; GET LOW WORD 

7247 SPEC/CLRCLK ; CLEAR CLOCK FLAG 

7248 ; END [1233 

7249 TOCK: [BRj_0 XWD [100003 ;2M2 UNITS PER MS 

7250 [AR3_[AR3+[BR3 INCREMENT THE TIMER 

7251 FIX [ AR 3 SIGN, SKIP DPO ;SEE IF IT OVERFLOWED 

7252 =0 

7253 T0CK1: WORK [TIME 1 ]__[AR3 , ; STORE THE NEW TIME 

7254 J/T0CK2 * ;SKIP OVER THE OVERFLOW CODE 

7255 [AR3_WORK[TIME03 ; GET HIGH WORD 

7256 =0* [AR3_[AR3+1 ;BUMP IT 

7257 CALL [ WRTIM 1 3 ; STORE BACK IN RAM 

7258 [AR3_0, ; CAUSE LOW WORD WORD 

7259 J/T0CK1 ; TO GET STORED 

7260 T0CK2: [ AR 3_W0RK [ TTG 3 

7261 [AR3„[AR3-[BR3 , ; COUNT DOWN TIME TO GO 

7262 SKIP AD.LE.O ;SEE IF IT TIMED OUT 

7263 =0 

7264 T0CK3 : WORK [ TTG ]_[ AR 3 , ; SAVE NEW TIME TO GO 

7265 RETURN [2] ; ALL DONE 

7266 [AR3_W0RK[ PERIOD 3 

7267 [BR3__APR ; GET CURRENT FLAGS 

7268 [BR3_[BR3 -0R.#, #/40 ;SET TIMER INTERRUPT FLAG 

7269 READ [BR 3, ; PLACE ON DP AND 

7270 SPEC/APR FLAGS, ; LOAD INTO HARDWARE 
727'1 J/T0CK3 ; ALL DONE 

7272 

) 



T 1 OKL . MCR [10,1141] 15:34 27-JULY-1984 MICRO 

INOUT.MIC[ 10, 1 141 ] 09:17 27-JULY-1984 



U 1 774 , 3604 , 4443 , 0000 ,4174, 4007 , 0700 , 0200 , 0004 , 0002 

U 3604 , 1 1 20 , 377 1 , 0003 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 1 120, 3674,01 1 1 ,0702,4170,4007,0700,0210,0004,0012 

U 1121, 3605,4551 ,0404,4370,4007,0700,0010,0077,0000 

U 1123, 1 400 , 3333 , 0004 ,7174, 4007 , 0700 , 0400 , 0000 , 030 1 

U 3605, 0002,3333,0003,7174,4004,1700,0400,0000,0300 

U 1764, 3606,4451 , 1205,4324,4007,0700,0000,0000,0000 

U 3606, 3607,4451 , 1204,4324,4007,0700,0000,0000,0000 

U 3607, 3610,4451,1206,4324,4007,0700,0000,0000,0000 

U 3610, 2402 ,6113, 0405 ,4174, 4007 , 062 1 , 0000 , 0000 , 0000 

U 2402, 2403,3441,0604,4174,4007,0700,0000,0000,0000 

U 2403, 3611,3771,0005,7274,4007,0701,0000,0000,0300 

U 361 1 , 1 124,0551 , 0404 , 7274 , 4007 , 067 1 , 0000 , 0000 , 0301 



U 1124, 3574 , 377 1 , 0003 , 7274 ,4117, 0700 , 00 10 , 0000 , 030 1 

U 1125, 3612,3333, 0002 ,4174, 4007 , 0700 , 0200 , 0003 , 00 1 2 

U 1126, 1 764 , 4443 , 0000 ,4174, 4007 , 0700 , OOOO , 0000 , 0000 

U 3612, 3613,3333,0005,4175,5007,0701,0200,0000,0002 

U 3613, 3614,01 1 1 , 0702 , 4 170, 4007 , 0700, 0200, 0003 , 001 2 

U 36 1 4 , 1 400 , 3333 , 0004 ,4175, 5007 , 070*1 , 0200 , 0000 , 0002 
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7070 

/ <c / o 


Tnr 


n Tn TKITFDMAI HPUTPFQ - 

1 U IINICKINML UtlVlV-filo 


-- WPTTMP & PnTTMF" 


7 1 A 








7275 


1774: 






7276 


udt T MF ■ 


CTADT RPAD 
O 1 MM KlMU 


fptph wnpn AT F 


7277 




MEM READ, 


WAIT FOR DATA 


7278 




[AR] MEM 


PUT WORD IN AR 


7279 


= 00 


VMA [HR]+1, 


BUMP E 


/ ZOv 




START READ, 


START MEMORY 


728 1 




CALL [L0ADARX] 


PUT DATA IN ARX 


7282 




[ARX] [ARX] . AND . # , 


CLEAR PART HELD IN 


70P Q 
/ *Lg> <j 




#/770000, 


HARDWARE COUNTER 


I ZoH- 




HOLD LEFT, CALL [WRTIM1] 


70QC 


— 4 A 

— 1 1 


WORK [ T IME 1 ] [ARX] , 


IN WORK SPACE 


700C 

/ Zoo 




J/DONE ; NEXT INSTRUCTION 


7287 








7288 


WRT TM1 • 
W rs 1 1 ivi | . 


W0RK[TIMEO] [AR], 


SAVE THE NEW VALUE 


79 QQ 




RETURN [2] 












729 1 


1 764 " 






7292 




[BR] TIME 


READ THE TIME 


7 293 




[ARX] TIME 


AGAIN 


7294 




[BRX] TIME 


AGAIN 






[BR] .XOR. [ARX] , 


SEE IF STABLE 


7296 




SKIP AD.EQ.O 




79Q7 




[ARX] [BRX] 


NO THEN NEXT TRY MUST BE 


7298 




[BR] W0RK[TIMEO] 




7 299 




[ARX] [ARX]+W0RK[TIME1 ] , 


;COMBINE PARTS 


7 0AA 
/ o UU 




SKIP/-1 MS 


SEE IF OVERFLOW HAPPENED 


7QA 4 


-AA 
~\J\J 


SPEC/CLRCLK, 


CLEAR CLOCK FLAG 


7 QAO 




[AR] W0RK[TIME1], 2T , 


GET LOW WORD FOR TOCK 


1 u>\JO 




CALL [TOCK] 


UPDATE CLOCKS 






READ [HR] , LOAD VMA, 


DID NOT OVERFLOW 


7305 




START WRITE, J/RDTIM1 


STORE ANSWER 


7306 




J/RDTIME 


TRY AGAIN 


7307 








7308 


RDTIM1 : 


MEM WRITE, MEM [BR] 




7309 




VMA [HR]+1, LOAD VMA, START WRITE 


7310 




MEM WRITE, MEM [ARX], J/DONE 


731 1 









T 10KL . MCR [ 10, 1141] 15:34 27-JULY-1984 MICRO 31(254) 

INOUT.MIC[ 10, 1 141 ] 09:17 27-JULY-1984 



U 1775, 3615,4443,0000,4174,4007,0700,0200,0004,0002 

U 3615, 3616,3771,0003,4365,5007,0700,0200,0000,0002 

U 3616, 36 17, 3333, 0Q03, 7 174, 4007, 0700, 0400, 0000, 0302 

U 3617, 1 400 , 3333 , 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 0303 



U 1765, 3626,3771 ,0005,7274,4007,0701 ,0000,0000,0302 



7312 
7313 
7314 
7315 
7316 
7317 
7318 
7319 
7320 
7321 
7322 
7323 
7324 
7325 



KS10 MICROCODE V124, 27-JUL-84 Page 201 
10 -- INTERNAL DEVICES WRINT & RDINT 

. TOC "10 -~ INTERNAL DEVICES WRINT & RDINT" 



1775: 

WRINT: START READ 

MEM READ, [ AR ]_MEM 
W0RK[PERI0D]_[AR] 
W0RK[TTG]_[ AR 3 , 
J/DONE 



1765: 
RDINT: 



[BR]_W0RK[PERI0D] , 
J/R.TNREG 



T10KL.MCR[ 10, 1 141] 
IN0UT.MIC[ 10, 1141] 



15:34 27-JULY-1984 
09: 17 27-JULY-1984 



MICRO 



U 1715, 3626,3441 , 1405,4174,4007,0700,0000,0000,0000 



U 



U 1714, 
U 2404, 
U 2405, 
U 2406, 
2407, 
U 3620, 
U 3621 , 
U 2410, 
U 2411 , 
U 2412, 
U 2413, 
U 2414, 
U 2415, 
U 2416, 
U 2417, 
U 2420, 
U 2421 , 
U 0404, 
U 0405, 



2404, 
2405, 
2406, 
2732, 
3620, 
3621 , 
2410, 
241 1 , 
2412, 
2413, 
2414, 
2415, 
2416, 
2417, 
2420, 
2421 , 
0404, 
0405, 
3623, 



4553 
4221 
4553 
4551 
4551 
3770 
4553 
5111 
4553 
3111 
4553 
3551 
4553 
5551 
4553 
311 1 
4553 
5111 
3770 



0300 , 
0014, 
,0300, 
0202, 
0305, 
,0505, 
, 0300 , 
0514, 
,0300, 
,0514, 
,0300, 
, 1414, 
, 0300 , 
,1414, 
, 0300 , 
,0514, 
, 0300 , 
,0514, 
,1416, 



4374 
4174 
4374 
4374 
4374 
4344 
4374 
4174 
4374 
4174 
4374 
4370 
4374 
4370 
4374 
4170 
4374 
4170 
4344 



4007 , 
, 4007 , 
, 4007 , 
, 0007 , 
, 4007 , 
, 0007 . 
,4007, 
, 0007 . 
, 4007 , 
, 0007 , 
, 4007 , 
, 4007 , 

, 4007 ; 

, 4007 . 
, 4007 , 
, 4007 
, 4007 , 
,4007, 
, 4007 , 



0331 , 
0700, 
0331 , 
0700, 
0700, 
0700, 
0331 , 
0700, 
0331 , 
0700, 
0331 , 
0700, 
033 1 , 
0700, 
0331 , 
0700, 
0331 , 
0700, 
0700. 



0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 

oooo, 

0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0000, 
0010, 



0001 
0000 
0074 
0077 
0000 
0000 
0002 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 

oooo 

0000 



oooo 
oooo 
oooo 

7740 
0177 

oooo 
oooo 
oooo 

,4000 

oooo 

,0200 
,0200 
,0400 
,0200 
,2000 
,0000 
, 1000 
,0000 
,0000 



U 0415, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



U 3622, 3623,3770, 1416,4344,4007,0700,0000,0000,0000 
U 3623 , 3624 , 244 1 , 07 1 6 , 4 1 70 , 4007 , 0700 , 4000 , OOOO , OOOO 
U 3624, 3625,4111,1416,4174,4007,0700,0000,0000,0000 



U 3625, 0010,7443, 1600,4174,4434, 1700, 0000;0000, OOOO 



254) 



7326 
7327 
7328 
7329 
7330 
7331 
7332 
7333 
7334 
7335 
7336 
7337 
7338 
7339 
7340 
7341 
7342 
7343 
7344 
7345 
7346 
7347 
7348 
7349 
7350 
7351 
7352 
7353 
7354 
7355 
7356 
7357 
7358 
7359 
7360 
7361 
7362 
7363 
7364 
7365 



KS10 M 
10 -- 

.TOC 

1715: 
RDPI : 

1714: 
WRPI : 
= 

=0 



=0 
=0 
=0 
=0 
=0 

= 0**0 
PIEXIT : 
= 1**1 
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"10 -- INTERNAL DEVICES -- RDPI & WRPI' 



[BR]_[PI ] , J/RTNREG 



TR [AR], PI.CLR/1 
[PI ]_0 

TR [AR], PI.MBZ/17 
UUO 

[BR]_[AR] .AND.#,#/177 
[BR]_[BR] SWAP, HOLD RIGHT 
TR [AR], PI.DIR/1 

[PI ]_[PI ] . AND. NOT. [BR] , HOLD RIGHT 

TR [AR], PI.REO/1 

[PI ]_[PI ] .OR. [BR] , HOLD RIGHT 

TR [AR], PI.TSN/1 

[PI ]_[PI ] .OR. #,PI .ON/1 , HOLD LEFT 
TR [AR], PI.TSF/1 

[PI]_[PI].AND.N0T.#,PI.0N/1, HOLD LEFT 

TR [AR], PI.TCN/1 

[PI ]__[PI ] .OR. [BR] , HOLD LEFT 

TR [AR], PI.TCF/1 

[PI ]_[PI ] . AND. NOT. [BR] , HOLD LEFT 
CALL LOAD PI 



DONE 



SUBROUTINE TO LOAD PI HARDWARE 
CALL WITH: 

CALL LOAD PI 
RETURNS 10 WITH PI HARDWARE LOADED 



LOADPI: [TO]_[PI] SWAP 
LDPI2: [T0]_-1, HOLD LEFT 
[TO]_[TO] .AND. [PI ] 
.NOT. [TO] , LOAD PI , 
RETURN [10] 



PUT ACTIVE CHANS IN LH 
DONT MASK RH 

ONLY REQUEST CHANS THAT ARE ON 
RELOAD HARDWARE 
RETURN TO CALLER 
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INOUT.MIC[ 10, 1 141 ] 09:17 27-JULY-1984 10 INTERNAL DEVICES -- SUBROUTINES 



U 3626, 3627,3443,0300,4174,4007,0700,0200,0003,0012 
U 3627 , 1 400 , 3333 , 0005 ,4175, 5007 , 070 1 , 0200 , 0000 , 0002 



7366 
7367 
7368 
7369 
7370 
7371 
7372 



.TOC 



'10 -- INTERNAL DEVICES SUBROUTINES" 



; HERE WITH SOMETHING IN BR STORE IT @AR 
RTNREG: VMA_[AR}, START WRITE 

MEM WRITE, MEM_[BR 3 , J/DONE 




; T10KL,MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; INOUT.MIC[ 10, 1141] 09:17 27-JULY- 1984 



U 1722, 3630 , 3443 , 0300 ,4174,4147, 0700 , 0200 , 0000 , 00 1 

U 3630, 2422,4221,0003,4174,4007,0700,0000,0000,0000 

U 2422 , 3634 ,3771, 0003 , 4374 , 4007 , 0700 , 001 O , 0037 ,7377 

U 2423, 3631,3771,0005,4374,4247,0700,0000,0000,1001 

U 3631, 2424,3333,0003,4174,4247,0700,0000,0000,1000 



I U 2424, 2424,1111,0503,4174,4247,0630,6000,0060,1000 

- U 2425, 2431,3333,0003,4174,4007,0700,0000,0000,0000 

z 
(- 
o 



I U 2426, 3634,3771,0003,4374,4007,0700,0010,0037,7377 

1 U 2427, 3632,3771,0005,4374,4347,0700,0000,0000,1001 

I U 3632, 2430,3333,0003,4174,4347,0700,0000,0000,1000 



2430, 1111 ,0503,4174,4347,0630,6000,0060, 1000 
3633 , 4223 , 0000 ,7174, 4007 , 0700 , 0400 , 0000 , 0424 
1 400 , 4223 , 0000 ,7174, 4007 , 0700 , 0400 , 0000 ,0423 



000 1 , 444.3 , 0000 ,4174, 4004 , ,1 700 , 2000 , 007 1 , 0375 



U 2430, 
U 2431 , 
U 3633, 

U 3634, 
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7373 ;CACHE SWEEP 
7374 

7375 1722: 

7376 CLRPT: VMA_[AR], ; PUT CORRECT ADDRESS IN VMA 

7377 LOAD PAGE TABLE ; GET SET TO WRITE PAGE TABLE 

7378 [AR]_0 ; CLEAR ENTRY 

7379 =0 [AR]_#,#/377377, ; INITIAL VMA VALUE 

7380 CALL [SSWEEP] ; LOAD THE SC 

7381 [BR]_#, #/1001, ; CONSTANT TO KEEP ADDING 

7382 CLRCSH ; START TO CLEAR CACHE 

7383 READ [AR], CLRCSH ;FIRST THING TO CLEAR 

7384 =0 

7385 CLRPTL: [ AR ]_[ AR ] - [ BR ] , ; UPDATE AR (AND PUT ON DP) 

7386 CLRCSH, ; SWEEP ON NEXT STEP 

7387 STEP SC, ;SKIP IF WE ARE DONE 

7388 J/CLRPTL ; LOOP FOR ALL ENTRIES 

7389 READ [AR], J/ZAPPTA ; CLEAR LAST ENTRY 
7390 

7391 =0 

7392 SWEEP: [ AR ]_# ,#/377377, ; INITIAL VMA VALUE 

7393 CALL [SSWEEP] ; LOAD NUMBER OF STEPS INTO SC 

7394 [BR]_#, #/1001 , ; CONSTANT TO KEEP ADDING 

7395 SWEEP ; START SWEEP 

7396 READ [AR], SWEEP ;FIRST THING TO CLEAR 

7397 =0 

7398 SWEEPL: [ AR ]_[ AR ] - [ BR ] , ; UPDATE AR (AND PUT ON DP) 

7399 SWEEP, ; SWEEP ON NEXT STEP 

7400 STEP SC, ;SKIP IF WE ARE DONE 

7401 J/SWEEPL ; LOOP FOR ALL ENTRIES 

7402 ; CLEAR LAST ENTRY AND 

7403 ZAPPTA: WORK [ PTA . U ]_0 ; FORGET PAGE TABLE ADDRESS 

7404 WORK [ PTA. E]_0, ; FORGET PAGE TABLE ADDRESS 

7405 J/DONE ; ALL DONE 
7406 

7407 SSWEEP: SC_S#, S#/375, ; NUMBER OF STEPS 

7408 RETURN [1] ; RETURN 
7409 



; T10KL.MCR[10, 1141] 
; INOUT.MIC[ 10, 1 141 3 



0770 , 3773 , 0000 , 4074 , 4003 , 1 70 1 , 0000 , 0000 , 0000 
3635 , 355 1 , 1 4 1 4 , 4370 , 4007 , 0700 , 0000 , 0004 , 0000 
3636 , 355 1 , 1 4 1 4 , 4370 , 4007 , 0700 , 0000 , 0002 , 0000 
3637.3551 , 1414.4370,4007,07.00,0000,0001 ,0000 
3640 ,355 1 , 1 4 1 4 , 4370 , 4007 , 0700 , 0000 , 0000 , 4000 
3641 ,3551 , 1414,4370,4007,0700,0000,0000,2000 
3642,3551 , 1414,4370,4007,0700,0000,0000, 1000 
3643 ,3551,1414, 4370 , 4007 , 0700 , 0000 , 0000 , 0400 
3644 ,4751,1 206 , 4374 , 4007 , 0700 , 0000 , 0000 , 000 1 
3644 ,4751,1 206 , 4374 , 4007 , 0700 , 0000 , OOOO , 0002 
3644 ,4751,1 206 , 4374 , 4007 ,0700 , 0000 , 0000 , 0003 
3644 ,4751,1 206 , 4374 , 4007 , 0700 , 0000 , 0000 , 0004 
3644 ,4751,1 206 , 4374 , 4007 , 0700 , 0000 , 0000 , 0005 
3644 , 475 1 , 1 206 , 4374 , 4007 , 0700 , 0000 , 0000 , 0006 
3644 ,4751,1 206 , 4374 , 4007 , 0700 , 0000 , 0000 , 0007 



3645 , 425 1 , 1 403 , 4374 , 4007 , 0700 , 0000 , 0007 ,7577 
3646 , 7443 , 0300 ,4174,4437, 0700 , OOOO , 0000 ,0000 
2432 , 4223 , 0000 , 4364 , 4277 , 0700 , 0200 , 0000 , 00 10 



3701 ,4571 , 1203,4374,4007,0700,0010,0024, 1300 



2434 ,3771, 0003 , 4364 , 4007 , 033 1 , 0200 , 0000 , 0002 
3655 ,4221, 0004 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
3647 , 3445 , 0603 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3647 , 3650 , 055 1 , 0303 , 4370 , 4007 , 070 1 , 0000 , 0000 , 0040 

U 3650, 365 1,0111, 1003 ,4174, 4007 , 0700 , OOOO , 0000 , 0000 



15:34 27- JULY- 1984 MICRO 
09: 17 27-JULY-1984 



U 0770, 
U 0771 , 
U 0772, 
U 0773, 
U 0774, 
U 0775, 
U 0776, 
U 0777, 
U 3635, 
U 3636, 
U 3637, 
U 3640, 
U 3641 , 
U 3642, 
U 3643, 



U 3644, 
U 3645, 
U 3646, 



U 2432, 



U 2433, 
U 2434, 
U 2435, 
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7410 ;WE COME HERE EITHER FROM NEXT INSTRUCTION DISPATCH OR PAGE FAIL 

7411 ; LOGIC . IN ALL CASES, THE CURRENT INSTRUCTION IS CORRECTLY SETUP 

7412 ; TO RESTART PROPERLY. 
7413 

7414 ;FIRST SET THE CORRECT PI IN PROGRESS BIT 

7415 ; [FLG]_[FLG] .OR.0,FLG.PI/ 1 , HOLD RIGHT, 

7416 ; J/PI ;SET PI CYCLE AND PROCESS PI 

7417 =1000 

7418 PI: AD/D, DBUS/PI NEW, ; LOOK AT NEW LEVEL 

7419 DISP/DP LEFT, 3T , ;DISPATCH ON IT 

7420 J/PI ;G0 TO 1 OF NEXT 7 PLACES 

7421 =1001 [PI]_[PI].OR.#, 0/040000, HOLD LEFT, J/PIP1 

7422 =1010 [PI]_[PI].OR.#, 0/020000, HOLD LEFT, J/PIP2 

7423 =1011 [PI3_[PI].0R.#, 0/010000, HOLD LEFT, J/PIP3 

7424 =1100 [Pi]_[PI}.OR.0, 0/004000, HOLD LEFT, J/PIP4 

7425 =1101 [PI3_[PI]-OR.0, 0/002000, HOLD LEFT, J/PIP5 

7426 =1110 [PI]_[PI].OR.#, 0/001000, HOLD LEFT, J/PIP6 

7427 =1111 [PI]_[PI] .OR.0, 0/000400, HOLD LEFT, J/PIP7 

7428 PIP1: [BRX3_0 XWD [1], J/PI 10 ; REMEMBER WE ARE AT LEVEL 1 

7429 PIP2: [BRX]_0 XWD [23, J/PI10 ; REMEMBER WE ARE AT LEVEL 2 

7430 PIP3: [BRX3_0 XWD [33, J/PI 10 ; REMEMBER WE ARE AT LEVEL 3 

7431 PIP4: [BRX3_0 XWD [4], J/PI 10 ; REMEMBER WE ARE AT LEVEL 4 

7432 PIP5: [BRX3_0 XWD [53, J/PI 10 ; REMEMBER WE ARE AT LEVEL 5 

7433 PIP6: [BRX3_0 XWD [6], J/PI 10 ; REMEMBER WE ARE AT LEVEL 6 

7434 PIP7: [BRX]_0 XWD [73, J/PI 10 ; REMEMBER WE ARE AT LEVEL 7 
7435 

7436 PI10: [ AR ] [PI 3 . AND . CLR LH, ; TURN OFF PI SYSTEM 

7437 0/077577 ; TILL WE ARE DONE 

7438 . NOT - [ AR ] , LOAD PI ; 

7439 ABORT MEM CYCLE ;N0 MORE TRAPS 

7440 =0 [ AR 3__VMA 10 READ, ; SETUP TO READ WRU BITS 

7441 WRU CYCLE/ 1 , ; . . 

7442 CALL [ STRTIO 3 ; START THE CYCLE 

7443 MEM READ, ;WAIT FOR DATA 

7444 [AR3_I0 DATA, 3T , ; PUT DATA IN AR 

7445 SKIP ADR.EO.O ;SEE IF ANYONE THERE 

7446 =0 [ARX3„0, J/VECINT ; YES - -VECTORED INTERRUPT 

7447 [AR3_[BRX]*2 ;N*2 

7448 [AR3_[AR]+0, 0/40, 3T , ; 2*N+40 

7449 HOLD LEFT ; . . 

7450 [AR3_[AR3+[EBR3 , ; ABSOULTE ADDRESS OF 

7451 J/PI40 ; INTERRUPT INSTRUCTION 

7452 



T10KL*,.^[ 10, 1141] 
INOUT.MICC 10, 1141] 



15:34 27-JULY-.1984 
09: 17 27-UULY-1984 



MICRO 



U 3651, 3652,3443,0300,4174,4007,0700,0200,0024,1016 

U 3652, 3653,3771,0003,4365,5007,0701,0200,0020,0012 

U 3653 , 2436 , 6553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 0025 , 4340 

U 2436, 2440,6553,0300,4374,4007,0321,0000,0026,4000 

U 2437, 3654,4521 , 1205,4074,4007,0700,0000,0000,0000 

U 3654, 0060,4223,0000,4174,4467,0700,0000,0000,0004 



U 2440, 0104,4751,1217,4374,4007,0700,0000,0000,0101 

U 2441, 0470,4443,0000,4174,4007,0700,0200,0023,0002 

U 0470 , 3702 , 374 1 , O 1 05 , 4074 , 4007 , 0700 , 00 1 O , 0000 , OOOO 

GS 

U 0474, 3677,3771,0003,4374,0007,0700,0010,0000,0000 

U 0475, 2677,3441,0301,4174,4467,0700,0000,0000,0004 



254) 
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7453 


; HERE 


7454 


PI40: 


7455 


PI50: 


7456 




7457 




7458 


=0 


7459 




7460 




7461 




7462 




7463 


; IF WE 


7464 




7465 




7466 




7467 




7468 


=0 


7469 


PIJSR: 


7470 




7471 


=0*0 


7472 




7473 


= 1*0 


7474 




7475 


= 1*1 


7476 




7477 




7478 




7479 





INTERRUPT 
VMA PHYSICAL READ 
[AR]_MEM, LOAD VMA, 
EXEC 



ITH ABSOLUTE ADDRESS OF 
VMA_[ AR ] , 
MEM READ, 
3T, FORCE 
[AR] .XOR.# 
[AR] .XOR. # 
[BR ]_FLAGS 

AD/ZERO, LOAD FLAGS, 
J/PIXPCW 



#/254340, 
#/264000, 



3T, SKIP 
SKIP ADL. 



INSTRUCTION IN [AR] 
FETCH THE INSTRUCTION 
FETCH INSTRUCTION 
E IS EXEC MODE 
ADL. EQ.O 

EQ.O, 3T, J/PIUSR 
;SAVE FLAGS 



HALT HERE ON A VECTORED INTERRUPT 
TO/ WHAT WE READ FROM BUS AS VECTOR 
ARX/ EPT+ 100+DEVICE 

BR/ ADDRESS OF ILLEGAL INSTRUCTION 
BRX/ VECTOR (MASKED AND SHIFTED) 



ENTER EXEC MODE AND ASSUME 
WE HAVE AN XPCW 
WE HAVE 



HALT [ILLII] 
START WRITE, 
[BR]_PC WITH 
CALL [STOBR] 
[AR] #, #/0, 



FORCE EXEC 
FLAGS, 

HOLD RIGHT, 



CALL [INCAR] 
[PC]_[AR], LOAD FLAGS, 
J/PISET 



NOT A JSR OR XPCW 
PREPARE TO STORE OLD PC 
OLD PC 

STORE OLD PC 

; PREPARE TO CLEAR FL 

BUMP POINTER 
NEW PC 

CLEAR PI CYCLE & START 
INTERRUPT PROGRAM 



; T10KL.MCR[ 10, 1 141 ] 15:34 27- JULY- 1984 ' 1 MICRO 

; INQUT.MICf 10, 1 141 ] 09 : 17 27-UULY- 1984 

U 3655, 2442,3445,0303,4174,4007,0530,0000,0000,0000 

U 2442, 3655,0111,1504,4174,4007,0700,0000,0000,0000 

U 2443, 2444,4571,1203,4374,4007,0700,0000,0024,1240 

U 2444, 3701,3111,0403,4174,4007,0700,0010,0000,0000 

U 2445 , 2446 , 377 1 , 00 1 6 , 4364 , 4007 , 0700 , 0200 ,0000 , 0002 

U 2446, 3676,0551 , 1005,4374,4007,0701 ,0010,0000,0100 

U 2447, 3656,0111,0504,4174,4007,0700,0200,0024,1016 

U 3656, 2450,3771 ,0005,4365,5007,0331 ,0200,0000,0002 

U 2450, 3657,4557,1606,4374,4007,0701,0000,0000,0774 

U 2451, 0104,4751,1217,4374,4007,0700,0000,0000,0102 

U 3657 , 3660 , 3447 , 0606 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 3660 , 3652,0111, 0605 ,4174, 4007 , 0700 , 0200 , 0024 , 00 1 2 



\ ) 
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/ 



7480 ; HERE TO PROCESS A VECTORED 

7481 ; AR/ WRU BITS (BIT 18 

7482 ; ARX/ O 

7483 VECINT: [ AR ]_[ AR ] *2 , 

7484 SKIP DP18 

7485 =0 [ARX]__[ARX] + [XWD1] , 
7486, J/VECINT 

7487 [AR]_VMA 10 READ, 

7488 VECTOR CYCLE/1 

7489 =0 [AR]_[AR] .OR. [ARX] , 

7490 CALL [STRTIO] 

7491 MEM READ, 

7492 - [T03_I0 DATA 

7493 =0 [BR]_[EBR]+#, 3T , 0/100 

7494 CALL [CLARXL] 

7495 [ARX]_[ARX]+[BR] , 

7496 VMA PHYSICAL READ 

7497 MEM READ, [BR ]__MEM , 3T , 

7498 SKIP ADR.EQ.O 

7499 =0 [BRX]_([T0].AND.#)*.5, 

7500 #/774, J/VECIN 1 

7501 HALT [ILLINT] 

7502 VECIN1: [BRX]_JBRX] * . 5 

7503 [BR]_JBR] + [BRX] , 

7504 LOAD VMA, FORCE EXEC, 

7505 START READ, d/PISO 
7506 



INTERRUPT. AT THIS POINT: 
FOR DEVICE O) 



SHIFT LEFT (UNSHIFTED ON DP) 
ANYONE THERE? 
NO- -BUMP BOTH HALVES 
KEEP LOOKING 
SETUP FOR VECTOR CYCLE 

PUT IN UNIT NUMBER 
START CYCLE 

WAIT FOR VECTOR (SEE DPM5) 
GET VECTOR 

;EPT+100 
CLEAR ARX LEFT 
EPT+ 100+DEVICE 
FETCH WORD 
GET POINTER 
SEE IF NON-ZERO 
3T, ; OK- -MAKE VECTOR MOD 400 
; AND SHIFT OVER 



SHIFT 1 MORE PLACE 
ADDRESS OF WORD TO USE 
FORCE EXEC VIRTUAL ADDRESS 
GO GET INSTRUCTION 



T10KL.MCR[ 10, 1 141 ] 
IN0UT.MIC[ 10, 1 141 ] 



15:34 27-JULY-1984 
09: 17 27-JULY-1984 



U 2452, 3661 ,3771 ,O0O5,4374,4OO7,0700,OO00,O004,0OO0 

U 2453 , 0004 , 4443 , 0000 ,4174, 4004 , 1 700 , 0000 , 0000 , 0000 

U 3661, 2454,4113,0514,4174,4007,0330,0000,0000,0000 

U 2454, 0004,5111,0514,4170,4004,1700,0000,0000,0000 

U 2455, 3661,3447,0505,4174,4007,0700,0000,0000,0000 
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7507 
7508 
7509 
7510 
751 1 
7512 
7513 
7514 
7515 
7516 
7517 
7518 
7519 
7520 
7521 
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. TOC 



"PRIORITY INTERRUPTS 



DISMISS SUBROUTINE ' 



; SUBROUTINE TO DISMISS THE HIGHEST PI IN PROGRESS 
; RETURNS 4 ALWAYS 



TR [PI], #/077400 



; ANY PI IN PROGRESS? 



;DISMISS: 
=0 

JEN1: [BR]_#, PI.IP1/1, J/DSMS1 ; YES- -START LOOP 
RETURN [4] ;N0--JUST RETURN 

DSMS1: [PI ] .AND. [BR] , SKIP ADR . EQ . 

=0 [PI ]_[PI 3 - AND. NOT. [BR] , HOLD LEFT, RETURN [4] 

[BR]_[BR]*.5, J/DSMS1 




T10KL . MCR[ 10,1141] 15:34 27- JULY- 1984 * MICRO 

INOUT.MIC[ 10, 1 141 ] 09:17 27-JULY-1984 



D 0710, 
D 07 1 1 , 
D 0720, 
D 0721 , 



1210, 16 
1214, 16 
1200, 16 
1204, 16 



14,0100 
14,0100 
14,0100 
14,0100 



U 1614, 2456 , 4443 , 0000, 4 1 74 , 4007 , 0700 , 00 10 , 0000 , 0000 
U 1617, 0014,4551,0305,0274,4003,7700,0000,0000,0000 



D 0712, 1210,1460,0100 

D 0713, 1210, 1461 ,0100 

D 0722, 1200,1460,0100 

D 0723, 1200,1461,0100 



U 1460, 2456,4443,0000,4174,4007,0700,0010,0000,0000 
U 1463, 1 400 , 3440 , 0303 ,0174, 4007 , 0700 , 0400 , 0000 ,0000 



U 1461 , 2466,3771 ,0005,0276,6007,0700,0000,0000,0000 



D 0714, 1210, 1644,0100 

D 0715, 1214, 1644,0100 

D 0724, 1200, 1644,0100 

D 0725, 1204,1644,0100 



U 1644, 2456,3441,0306,4174,4007,0700,0010,0000,0000 

U 1647; 1013,3441, 0305 ,4174, 4003 , 7700 , 0000 ,0000 , 0000 

U 1013, 3662,3551,0505,0274,4007,0700,0000,0000,0000 

U 1017, 3662,5551,0505,0274,4007,0700,0000,0000,0000 



U 3662, 



2466 , 3441, 0603 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 
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7522 


.TOC 


"EXTERNAL 10 INSTRUCTIONS" 


7523 












7524 






. DCODE 






7525 


710 




IOT, WORD-TNE , 


J/TIOX 


7526 


71 1 




IOT, WORD-TNN, 


J/TIOX 


7527 


720 




IOT, TNE, 


J/TIOX 


7528 


721 




IOT, TNN, 


J/TIOX 


7529 






.UCODE 






7530 












7531 


1614 








7532 


TIOX 


CALL [IORD] 






7533 


1617 


[BR]_[AR] . AND. AC, TEST 


DISP 


7534 












7535 






.DCODE 






7536 


712 




IOT, B/10, 


J/RDIO 


7537 


713 




IOT, B/10, 


J/WRIO 


7538 


722 




IOT, B/0, 


J/RDIO 


7539 


723 




IOT, B/0, 


J/WRIO 


7540 






.UCODE 






754 1 












7542 


1460 








7543 


RDIO 


CALL [IORD] 






7544 


1463 


AC_[AR], J/DONE 






7545 












7546 


1461 








7547 


WRIO 


[BR]_AC, J/IOWR 






7548 












7549 






.DCODE 






7550 


714 




IOT, B/10, 


J/BIXUB 


7551 


715 




IOT, B/14, 


J/BIXUB 


7552 


724 




IOT, B/0, 


J/BIXUB 


7553 


725 




IOT, B/4, 


J/BIXUB 


7554 






.UCODE 






7555 












7556 


1644 








7557 


BIXUB: [BRX] [AR], 




SAVE EFFECTIVE ADDRESS 


7558 






CALL [IORD] 




GO GET THE DATA 


7559 


1647 


[BR] [AR], 




COPY DATA ITEM 


7560 






B DISP 




SEE IF SET OR CLEAR 


7561 


=1011 [BR] [BR]. OR. AC, 




SET BITS 


7562 






J/BIXUB 1 




GO DO WRITE 


7563 






[BR] [BR] .AND. NOT. AC, 




CLEAR BITS 


7564 






J/BIXUB 1 




GO DO WRITE 


7565 












7566 


BIXUB 1 : [AR] [BRX] , 


; RESTORE ADDRESS 


7567 






J/IOWR 






7568 













o 

T10KL>rcR{ 10, 1141] 
IN0UT.MIC[ 10, 1141] 



15:34 27-JULY-1984 
09: 17 27-JULY-1984 



MICRO 



U 2456 , 2476 , 4443 , 0000 ,4174,4137, 0700 , 00 10 , 0000 , 0000 
U 2457, 0067,4443,0000,4174,4003,7700,0000,0000,0000 



U 0067, 2460,4571 , 1205,4374,4007,0700,0000,0024, 1220 
U 0077, 2460,4571,1205,4374,4007,0700,0000,0024,1200 



U 2460, 3671 , 31 13,0305,4174,4007,0701 ,0210,0000,0036 



U 2461 , 1027,3771 ,0005,4364,4003,7700,0200,0000,0002 
U 1027, 2462,4553,03O0,4374,4OO7,0331,0O00,O000,0001 
U 1037, 0003,3441,0503,4174,4004,1700,0000,0000,0000 



U 2462, 2464,3447,0505,4174,4007,0700,2000,0071,0005 

U 2463, 0003,4551,0503,4374,4004,1700,0000,0000,0377 

U 2464, 2464,3447,0505,4174,4007,0630,2000,0060,0000 

U 2465 , 0003 , 455 1 , 0503 , 4374 , 4004 , 1 700 , OOOO , 0000 ,0377 
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7569 ; SUBROUTINE TO READ FROM AN 10 DEVICE 

7570 ; CALL WITH: 

7571 ; SECTION O EFFECTIVE ADDRESS' IN AR 

7572 ; INSTRUCTION IN HR 

7573 ; RETURN 3 WITH WORD OR BYTE IN AR 

7574 ; 

7575 =0 

7576 I0RD: CLR 10 BUSY, ; CLEAR BUSY 

7577 CALL [IDEA] ;C0MPUTE 10 EA 

7578 B DISP 

7579 =10111 [BR ]__VMA 10 READ, ; BYTE MODE 

7580 10 BYTE/1, ;SET BYTE FLAG 

7581 J/I0RD1 ;G0 DO C/A CYCLE 

7582 =11111 [BR]_VMA 10 READ ; WORD MODE 

7583 = 

7584 =0 

7585 I0RD1: VMA_[ AR ] . OR . [ BR ] WITH FLAGS, 

7586 CALL [IOWAIT] ;WAIT FOR THINGS COMPLETE 

7587 MEM READ, ; MAKE SURE REALLY READY 

7588 [BR]_IO DATA, ; PUT DATA IN BR 

7589 B DISP ;SEE IF BYTE MODE 

7590 =0111 TR [AR], #/1, J/I0RD2 ; BYTE MODE SEE IF ODD 

7591 [ AR ]_[ BR ] , RETURN [3] ; ALL DONE 
7592 

7593 ; HERE ON WORD MODE 

7594 =0 

7595 I0RD2: [ BR ]__[ BR ] * . 5 , SC_5 , ; LEFT BYTE 

7596 J/I0RD3 ; GO SHIFT IT 

7597 [ AR ]__[ BR ] . AND . # , ; MASK IT 

7598 #/377, RETURN [3] ; ALL DONE 
7599 

7600 =0 

7601 I0RD3: [ BR ]_[ BR ] * . 5 , ;SHIFT OVER 

7602 STEP SC, J/I0RD3 ; 

7603 [AR]_[BR] . AND . # , ; MASK IT 

7604 #"/377, RETURN [3] ; ALL DONE 
7605 



; T10KL.MCR[ 10, 1141] 15:34 27-JULY-1984 MICRO 
; INOUT.MIC[ 10, 1141} 09:17 27-JULY-1984 



U 2466 , 2476 , 4443 ; 0000 ,4174,4137, 0700 , 00 10 , 0000 , 0000 

U 2467, 0227,4443,0000,4174,4003,7700,0000,0000,0000 

U0227, 2472,4553, 0300 , 4374 , 4007 , 033 1 , 0000 , 0000 , 000 1 

U 0237, 3663,4571 , 1204,4374,4007,0700,0000,0021 , 1200 

U 3663 , 2470 , 3 1 1 3 , 0304 ,4174, 4007 , 070 1 , 0200 , 0000 , 0036 

U 2470, 3671,3333,0005,4175,5007,0701,0210,0000,0002 

U 2471, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



U 2472 , 2474 , 3445 , 0505 ,4174, 4007 , 0700 , 2000 , 007 1 , 0005 

U 2473, 3663,4571 , 1204,4374,4007,0700,0000,0021 , 1220 

U 2474, 2474,3445,0505,4174,4007,0630,2000,0060,0000 

U 2475, 3663,4571,1204,4374,4007,0700,0000,0021,1220 



1 (254) 
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7606 ; ROUTINE TO- WRITE TO AN 10 DEVICE 

7607 ; CALL WITH : 

7608 ; SECTION EFFECTIVE ADDRESS IN AR 

7609 ; INSTRUCTION IN HR 

7610 ; WORD OR BYTE IN BR 

7611 ; RETURNS BACK TO USER 

7612 ; 

7613 =0 

7614 IOWR: CLR 10 BUSY, ; CLEAR BUSY 

7615 CALL [IOEA] ;COMPUTE 10 EA 

7616 B DISP 

7617 =10111 TR CAR], #/ 1 , J/I0WR2 ; BYTE MODE 

7618 =11111 [ARX]_VMA 10 WRITE ;SETUP FLAGS 

7619 = 

7620 I0WR1: VMA_[ AR ] . OR . [ ARX ] WITH FLAGS 

7621 =0 MEM WRITE, MEM_[BR], ; SEND DATA 

7622 CALL [IOWAIT] ;WAIT FOR DATA 

7623 DONE ; RETURN 
7624 

7625 ; HERE FOR BYTE MODE 

7626 =0 

7627 I0WR2: [BR]_[BR]*2, SC_5 , ;ODD--MOVE LEFT 

7628 J/I0WR3 ; 

7629 [ARX]_VMA 10 WRITE, ; SETUP FLAGS 

7630 10 BYTE/1, J/I0WR1 ; 
7631 

7632 =0 

7633 I0WR3: [BR ]_JBR ] *2 , STEP SC , ;SHIFT LEFT 
'7634 J/I0WR3 ; KEEP SHIFTING 

7635 [ARXJlVMA 10 WRITE, ; SETUP FLAGS 

7636 10 BYTE/1, J/I0WR1 ; 
7637 



o 

; T10KL^wR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; INOUT.MIC[ 10, 1 141 ] 09 : 1 7 27- JULY- 1984 



U 2456 , 2476,4443, 0000 ,4174,4137, 0700 , 00 1 , 0000 , 0000 
U 2457 , 0067 , 4443 , 0000 ,4174, 4003 , 7700 , 0000 , 0000 , 0000 



U 0067, 2460,4571 , 1205,4374,4007,0700,0000,0024, 1220 
U 0077, 2460,4571 , 1205,4374,4007,0700,0000,0024, 1200 



U 2460, 3671 , 3 1 1 3 , 0305 , 4 1 74 , 4007 , 0701 ,0210,0000,0036 



U 2461 , 1027,3771 ,0005,4364,4003,7700,0200,0000,0002 
U 1027 , 2462 , 4553 , 0300 , 4374 , 4007 , 033 1 , OOOO , 0000 , 000 1 
U 1037, 0003,3441,0503,4174,4004,1700,0000,0000,0000 



U 2462, 2464 , 3447 , 0505 ,4174, 4007 , 0700 , 2000 , 007 1 , 0005 

U 2463, 0003,4551,0503,4374,4004,1700,0000,0000,0377 

U 2464 , 2464 , 3447 , 0505 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 

U 2465, 0003,4551,0503,4374,4004,1700,0000,0000,0377 
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7569 
7570 
7571 
. 7572 
7573 
7574 
7575 
7576 
7577 
7578 
7579 
7580 
7581 
7582 
7583 
7584 
7585 
7586 
7587 
7588 
7589 
7590 
7591 
7592 
7593 
7594 
7595 
7596 
7597 
7598 
7599 
7600 
7601 
7602 
7603 
7604 
7605 



; SUBROUTINE TO READ FROM AN 10 DEVICE 
; CALL WITH: 

SECTION O EFFECTIVE ADDRESS IN AR 
; INSTRUCTION IN HR 

; RETURN 3 WITfi WORD OR BYTE IN AR 



=0 

IORD: 



= 101 1 1 



=11111 
=0 

I0RD1 : 



=01 1 1 



CLR 10 BUSY, 
CALL [IOEA] 
B DISP 

[ BR ]__VMA 10 READ, 
10 BYTE/1 , 
J/I0RD1 

[BR ]_VMA 10 READ 



; CLEAR BUSY 

; COMPUTE 10 EA 

BYTE MODE 
SET BYTE FLAG 
GO DO C/A CYCLE 
WORD MODE 



VMA_[AR] .OR. [BR] WITH FLAGS, 



CALL [IOWAIT] 
MEM READ, 
[BR]_IO DATA, 
B DISP 

TR [AR], #/1, J/I0RD2 
[ AR ]_[ BR ] , RETURN [3] 



; HERE ON WORD MODE 
=0 

I0RD2: [BR]_[BR]*.5, SC_5 , 
J/I0RD3 

[ AR ]_[BR ] . AND . # , 
#/377, RETURN [3] 



WAIT FOR THINGS COMPLETE 
MAKE SURE REALLY READY 
PUT DATA IN BR 
SEE IF BYTE MODE 
BYTE MODE SEE IF ODD 
ALL DONE 



LEFT BYTE 
GO SHIFT IT 
MASK IT 
ALL DONE 



=0 

I0RD3 : 



[BR]_[BR]*.5, 
STEP SC, J/I0RD3 
[ AR ]_[ BR ] . AND . # , 
#/377, RETURN [3] 



SHIFT OVER 

MASK IT 
ALL DONE 



T 10KL . MCR [ 10, 1141] 
INOUT.MICt 10, 1141] 



15:34 27- JULY- 1984 
09: 17 27 -JULY -1984 



MICRO 



U 2466, 2476,4443,0000,4174,4137,0700,0010,0000,0000 

U 2467, 0227,4443,0000,4174,4003,7700,0000,0000,0000 

U 0227, 2472,4553,0300,4374,4007,0331,0000,0.000,0001 

U 0237, 3663,4571 , 1204,4374,4007,0700,0000,0021 , 1200 

U 3663 , 2470 , 3 1 1 3 , 0304 ,4174, 4007 , 070 1 , 0200 , 0000 , 0036 

U 2'470, 3671 ,3333,0005,4175,5007,0701 ,0210,0000,0002 

U 2471, 0110,3443,0100,4174,4156,4700,0200,0014,0012 



U 2472 , 2474 , 3445 , 0505 , 41 74 , 4007 , 0700 , 2000 , 007 1 , 0005 

U 2473, 3663,4571,1204,4374,4007,0700,0000,0021,1220 

U 2474, 2474,3445,0505,4174,4007,0630,2000,0060,0000 

U 2475, 3663,4571 , 1 204 , 4374 , 4007 , 0700 , OOOO, 002 1 , 1220 
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7606 ;.ROUTINE TO WRITE TO AN 10 DEVICE 

7607 ; CALL WITH: 

7608 . ; SECTION EFFECTIVE ADDRESS IN AR 

7609 ; INSTRUCTION IN HR 

7610 ; WORD OR BYTE IN BR 

7611 ; RETURNS BACK TO USER 

7612 ; 

7613 =0 

7614 IOWR: CLR 10 BUSY, ; CLEAR BUSY 

7615 CALL [IOEA] ;C0MPUTE 10 EA 

7616 B DISP 

7617 =10111 TR [AR], #/ 1 , J/I0WR2 ; BYTE MODE 

7618 =11111 [ARX]_VMA 10 WRITE ;SETUP FLAGS 

7619 = 

7620 I0WR1: VMA_J AR ] . OR . [ ARX ] WITH FLAGS 

7621 =0 MEM WRITE, MEM__[BR ] , ; SEND DATA 

7622 CALL [IOWAIT] ;WAIT FOR DATA 

7623 DONE ; RETURN 
7624 

7625 ; HERE FOR BYTE MODE 

7626 =0 

7627 I0WR2: [BR]_[BR]*2, SC_5 , ;0DD--M0VE LEFT 

7628 J/I0WR3 ; . . 

7629 [ARX]__VMA 10 WRITE, ; SETUP FLAGS 

7630 10 BYTE/1, J/I0WR1 ; 
7631 

7632 =0 

7633 I0WR3: [BR]_[BR]*2, STEP SC , ;SHIFT LEFT 

7634 J/I0WR3 ; KEEP SHIFTING 

7635 [ARX]_VMA 10 WRITE, ; SETUP FLAGS 

7636 10 BYTE/1, J/I0WR1 ; 
7637 



T10KV>iCR[ 10,1141] 
IN0UT..MIC[ 10, 1141] 



15:34 27-JULY-1984 
09: 17 27-JULY- 1984 



MICRO 



U 2476, 3673, 1 1 13,0701 ,4170,4007,0700,4210,0004,0012 

U 2477, 3664,7441,0306,4174,4007,0700,0000,0000,0000 

U 3664, 2500,4553,0600,4374,4007,0321,0000,0070,0000 

U 2500, 2502,4553,0200,4374,4007,0321,0000,0000,0020 

U 2501 , 2500,4713, 1203,7174,4007,0700,0400,0000,0422 

U 2502, 3665,3771,0003,7274,4007,0701,0000,0000,0422 

U 2503 , 1 055 , 4443 , 0000 ,2174, 4006 , 6700 , OOOO , 0000 , 0000 

U 1 055 , 2506 ,3771, 0004 , 2274 , 4007 , O 1 20 , 0000 , 0000 , 0000 

U 1057, 0001,3771,0003,7274,4124,1701,0000,0000,0422 



U 3665 , 3666 , 3333 , 0002 ,4174,4217, 0700 , 0000 , 0000 , 0000 

U 3666, 2504,4553,0200,4374,4007,0321,0000,0000,0017 

U 2504 , 2505 , 055 1 , 0303 , 2270 , 4007 , 070 1 , 0000 , 0000 , 0000 

U 2505, 3667,3443,0300,4174,4007,0700,0200,0004,0012 

U 3667, 0001,3771,0003,4365,5124,1700,0200,0000,0002 



U 2506, 0001,0551,0403,7274,4124,1701,0000,0000,0422 
U 2507, 3670,0551,0403,7274,4007,0701,0000,0000,0422 

U 3670, 0001,4221,0003,4174,0124,1700,0000,0000,0000 
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7638 ; HERE TO COMPUTE 10 EFFECTIVE ADDRESS 

7639 ; CALL WITH: 

7640 ; SECTION EFFECTIVE ADDRESS IN AR 

7641 ; INSTRUCTION IN HR 

7642 ; RETURN 1 WITH EA IN AR 

7643 ; 

7644 =0 

7645 IOEA: VMA_[PC]-1, ; GET INSTRUCTION 

7646 START READ, ; . . 

7647 CALL [LOADAR] ; PUT WORD IN AR 

7648 [BRX]_.NOT. [AR] ;SEE IF IN RANGE 700-777 

7649 TL [BRX ] , #/700000 ; . . 

7650 =0 

7651 I0EA1: TL [HR], #/20, J/I0EA2 ; INDIRECT? 

7652 W0RK[YSAVE]_[AR] CLR LH, ; DIRECT 10 INSTRUCTION 

7653 J/I0EA1 ;SAVE Y FOR EA CALCULATION 

7654 =0 

7655 I0EA2: [ AR ]_WORK [ YSAVE ] , ;<s>--GET SAVED Y 

7656 J/IOEAI ; GET Y AND GO 

7657 EA MODE DISP ;WAS THERE INDEXING? 

7658 =1101 [ARX]_XR, SKIP ADL.LE.O, ; SEE IF LOCAL OR GLOBAL INDEXING 

7659 2T, J/IOEAX ; 

7660 [AR]_WORK[YSAVE] , ; JUST PLAIN 10 

7661 CLR 10 LATCH, RETURN [1] 
7662 

7663 IOEAI: READ [HR], DBUS/DP. ; LOAD XR FLOPS IN CASE 

7664 LOAD INST EA ; THERE IS INDEXING 

7665 TL [HR], #/17 ;WAS THERE ALSO INDEXING 

7666 =0 [AR]_[AR]+XR, 3T , HOLD LEFT ; YES- -ADD IN INDEX VALUE 

7667 VMA_[ AR ] , START READ ; FETCH DATA WORD 

7668 MEM READ, [ AR ]_MEM , ; GO GET DATA WORD 

7669 CLR 10 LATCH, RETURN [1] 
7670. 

7671 =0 

7672 IOEAX: [ AR ]_[ ARX ]+WORK [ YSAVE ] , ; GLOBAL INDEXING 

7673 CLR 10 LATCH, RETURN [1] 

7674 [AR]_[ARX]+WORK[YSAVE] ;LOCAL INDEXING 

7675 [AR]_0, HOLD RIGHT, 

7676 CLR 10 LATCH, RETURN [1] 
7677 



; T10KL.MCR[10 f 1141] 15:34 27-JULY-1984 MICRO 

; INOUT.MICf 10, 1 141 ] 09:17 27-UULY-1984 



U 367 1 , 1 1 30 , 377 1 , 00 1 6 , 4354 , 4007 , 0650 , 2000 , 007 1 , 0200 

U 1 1 30 , 3672 , 3333 , 00 1 6 , 7 1 74 , 4 127 , 0700 , 0400 , OOOO , 02 10 

U 1131, 1 1 30 , 4443 , 0000 ,4174, 4006 , 7653 , 2000 , 0060 , 0000 

U 1132, 3672,3333,0016,7174,4127,0700,0400,0000,0210 

U 1133, 25 1 3 , 3333 , 00 1 6 , 7 1 74 , 4007 , 0700 , 0400 , 0000 , 02 1 

U 3672 , 25 10 , 4443 , 0000 ,4174, 4007 , 0650 , 2000 , 007 1 , 0777 



U 2510, 2512, 4443 , 0000 ,4174,4127, 0630 , 2000 , 0060 , 0000 
U 2511, 0001,4443,0000,4174,4004,1700,0000,0000,0000 



U 2512, 2510,4443,0000,4174,4127,0653,0000,0000,0000 
U 2513, 1563,4571 , 1206,4374,4007,0700,0000,0020,0000 



( 
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7678 ;WAIT FOR 10 TO COMPLETE 

7679 ; RETURNS 1 OR PAGE FAILS 

7680 ; 

7681 IOWAIT: SC_S#, S#/200, ; DELAY 

7682 [TO]_VMA, ; GET VMA 

7683 SKIP/-IO BUSY ;SEE IF BUSY YET 

7684 =00 

7685 I0W1: CLR 10 LATCH, ; WENT BUSY 

7686 WORK[SV. VMA]_[TO] , ; MAKE SURE SV.VMA IS SETUP 

7687 U/I0W2 ;WAIT FOR IT TO CLEAR 

7688 SC_SC-1, SCAD DISP, 5T , ;SEE IF DONE YET 

7689 SKIP/-IO BUSY, ; . . 

7690 J/I0W1 ; BACK TO LOOP 

7691 CLR 10 LATCH, ; WENT BUSY AND TIMEOUT 

7692 WORK[SV. VMA]_[TO] , ; MAKE SURE SV.VMA IS SETUP 

7693 J/I0W2 ; 

7694 WORK[SV. VMA]_[TO] , ; MAKE SURE SV.VMA IS SETUP 

7695 J/I0W5 ;G0 TRAP 
7696 

7697 I0W2: SC_S#, S#/777, ; GO TIME 10 

7698 SKIP/-IO BUSY ; . . 

7699 =0 

7700 I0W3: CLR 10 LATCH, ; TRY TO CLEAR LATCH 

7701 STEP SC, U/I0W4 ;STILL BUSY 

7702 RETURN [1] ; IDLE 
7703 

7704 . =0 

7705 I0W4: CLR 10 LATCH, 5T , ; TRY TO CLEAR LATCH 

7706 SKIP/-IO BUSY, ;SEE IF STILL BUSY 

7707 J/I0W3 ; . . 

7708 I0W5: [ BRX ]_[ 200000 3 XWD O, J/HARD 
7709 



T10KL.MCRE 10, 1 141 ] 
IN0UT.MIC[ 10, 1141] 



15:34 27-JULY-1984 
09: 17 27-JULY-1984 



MICRO 



U 3673, 0001,3771,0003,4365,5004,1700,0200,0000,0002 

U 3674, 0001,3771,0004,4365,5004,1700,0200,0000,0002 

U 3675, 0001,3772,0000,4365,5004,1700,0200,0000,0002 

U 3676, 0001,4221,0004,4174,0004,1700,0000,0000,0000 

U 3677, 0001,0111,0703,4174,4004,1700,0000,0000,0000 

U 3700, 0001,3445,0505,4174,4004,1700,0000,0000,0000 

U 3701, 0001,3443,0300,4174,4004,1701,0200,0000,0036 

U 3702, 0004,3333,0005,4175,5004,1701,0200,0.000,0002 

U 3703, 0OO1,3333,O0O1,4175,5OO4 ? 1701,O2OO,OO00,O002 

U 3704, 0001,3440,0404,0174,4004,1700,0400,0000,0000 
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7710 
771 1 
7712 
7713 
77 14 
7715 
7716 
7717 
7718 
7719 
7720 
7721 
7722 
7723 
7724 
7725 
7726 
7727 
7728 
7729 
7730 
7731 
7732 
7733 
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. TOC 



" SMALL SUBROUTINES' 1 



; HERE ARE A COLLECTION ON 1 -LINE SUBROUTINES 
LOADAR: MEM READ, [ AR ]_MEM , ; FROM MEMORY TO AR 

RETURN [1] ; RETURN TO CALLER 

LOADARX: MEM READ, [ ARX ]_MEM , RETURN [1] 

LOADQ : MEM READ, 0_MEM, RETURN [1] 

CLARXL: [ARX]_0, HOLD RIGHT, RETURN [1] 

INCAR: [AR]_[AR]+1 , RETURN [1] 

SBRL: [BR]__[BR]*2, RETURN [1] 

STRTIO: VMA_[ AR ] WITH FLAGS, RETURN [1] 

STOBR: MEM WRITE, MEM_[ BR ] , RETURN [4] 

STOPC: MEM WR I TE , MEM_[ PC ] , RETURN [1] 

AC ARX: AC_[ARX], RETURN [1] 



T10KL.MCR[ 10, 1141] 15:34 27-JULY-1984 

IN0UT.MIC[ 10, 1 141 ] 09:17 27- JULY - 1 984 



D 


0703, 


0003, 1650,2100 


D 


0706 , 


0006, 1650,2100 


D 


0707, 


0007, 


1650,2100 


D 


07 16 , 


0006, 1651 ,2100 




07 1 7 


0007, 1651 ,2100 


D 


0726, 


0006 


1659,2100 


Q 


0727 


OO* * 






'0 , 

^ 










Ov 








r 




D 


07 3" , 






D 


! ' 




, - - >0 


o 


07 4 t . 






D 


07 42 . 




■ : 1 00 





0'* 3 




4,21 GO 


D 






W ,2100 


D 


r - To , 




,2100 


D 


u , J C , 


•j J06 , 


16 ,4.2100 


D 


- * 




fi ? 54, 2100 


D 


07 oO , 


0000 . 


16^5,2 100 


D 


C 7 5 1 


CO0 1 , 


1655,2100 


D 


07 52 


0002 , 


3,2 100 


D 


7 53 , 


on no , 


1655,2 100 


D 


Q'lhA , 


0004 , 


1655,2100 




../u5 ! 


0005 


1655,2100 


u 


0756, 


0006. 


1655,2100 





0757, 


0007, 


1655,2100 


D 


0760, 


0000, 1656,2100 


D 


0761 , 


000 1 , 


1656,2100 


D 


0762, 


0002 , 


■^656, 2100 


D 


0763 , 


0O03, 1656,2 100 


D 


0764, 


0004, 


1656,2100 


D 


0765, 


0005, 


1656,2100 


D 


0766 , 


0006, 


1656,2100 


D 


0767, 


0007, 


1656,2100 



31 
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7734 


.TOC 


"UNDEFINED 10 


INSTRUCTIOI 


7735 










7736 




. DCODE 






7737 


703: 


I , 


B/3, 


J/I0T700 


7738 


706 : 


I , 


B/6, 


J/I0T7OO 


7739 




I , 


B/7, 


U/I0T700 


7740 










774 1 


716 : 


I , 


B/6 , 


J/I0T71O 


7742 




I , 


B/7 , 


J/I0T7 10 


7743 










7744 


726 : 


I , 


B/6 , 


J/I0T720 


7745 




I , 


B/7 ', 


J/I0T720 


7746 










7747 


730 : 


I , 


B/0, 


i J / T 0T71O 

KJ / Awl / O W 


7748 




I 5 


B/1 ' 


U/I0T73O 


7749 




I ' 


B/2 , 


J/I0T730 


7750 




I , 


B/3 , 


U/I0T730 


775 1 




I , * 


B/4 , 


U/I0T73O 


7752 




I , 


B/5 , 


J/I0T73O 


7753 




I , 


B/6 , 


U/I0T730 


7754 




I , 


B/7, 


J/I0T730 


7755 










7756 


740: 


I , 


B/0, 


J/I0T740 


7757 




I , 


B/1 , 


J/I0T740 


7758 




I , 


B/2, 


J/I0T740 


7759 




I , 


B/3 , 


J/I0T74O 


7760 




I , 


B/4 , 


J/I0T740 


776 1 




I , 


B/5 , 


J/I0T74O 


7762 




I, 


B/6 , 


J/I0T74O 


7763 




I , 


B/7 , 


J/I0T740 


7764 










7765 


750 : 


I , 


B/0, 


.j / T0T750 


7766 




I , 


B/1 ' 


J/I0T75O 


7767 




I f 


B/2 


.1/ T0T75O 


7768 




I f 


B/3 , 


U/I0T750 


7769 




I , 


B/4 , 


J/I0T750 


7770 




I , 


B/5 , 


J/I0T750 


777 1 




I , 


B/6 , 


J/I0T750 


7772 




I , 


B/7, 


J/I0T750 


7773 










7774 


760: 


I , 


B/0, 


J/I0T760 


7775 




I , 


B/1, 


J/I0T76O 


7776 




I , 


B/2, 


J/I0T76O 


7777 




I , 


B/3, 


J/I0T760 


7778 




I , 


B/4, 


J/I0T76O 


7779 




I , 


B/5, 


J/I0T760 


7780 




I , 


B/6, 


J/I0T760 


7781 




I , 


B/7, 


J/I0T76O 


7782 











r 



T10KL.MCR[ 10, 1 141 3 
IN0UT.MIC[ 10, 1 141 ] 



15:34 27 -JULY -1984 
09: 17 27-JULY-1984 
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0770 


OOOO 1657 2 1 OO 

Vwvv , 1 V O / * * WW 


7783 


770 : 






077 1 


OOO 1 1 RR 7 9 i OO 

WWW I , I w «J / , *L i UU 


7784 








0772 


OOOO 1f» ^7 1OO 

WWW«£. , IwO f | 6 1 WW 


7785 




T ' 


D 


0773 


0003 1657 2 100 


7786 




j ' 


D 


0774 


0004 1 R 7 9 1 OO 

W WWH- , I u O / , £. I ww 


7787 




T ' 


n 


077R 


OOOR 1fiR7 01 AO 


7700 




T ' 

j: ' 


n 


A77C 
w f / O , 


WwwO , lOO / 1 ww 


770Q 






p 


0777 


nnn7 1RR7 01 on 

www / , I V) vJ / , <tL I WW 


7790 












770 ^ 
/ / y 1 




.UCODE 








77Q0 












77QO 


1650: 




i < 

u 




9700 nonO 4Q7/1 AAA7 A7AA AAAA AA77 77/iA 
£IO£,*t03 1 , \J<£.\J<L j H<5 f *+ , www / , W / WW , WWWW , WW 11,11 M- w 


7704 


IOT700: 


UU0 








7795 


1651 : 










7796 


I0T710: 










■ 7797 


. I FNOT/UBABLT 








• 7798 




UU0 








7799 


. I F/UBABLT 


( 1 


Hem 


AC7A aaai onnn 4-17/1 4nn7 n7nn oono nnnn nnnn 

UO ' W » £ f*+*+*5 , WWWW , *+ 1 / *+ , ^+ WW / , W / WW , WWWW , WWWW , WWWW 


70AA 
/ O WW 




J/BLTX 








7RA 4 

/ ow 1 


. ENDI F/UBABLT 








7802 


1652 : 




u 


1652 


07qo 4RR1 nono 4^74 nnn7 n7on ooon 0077 7740 

*L/O*£,H-0iJ I , U/U/ , *tO / *t , Www / . w / WW , WWWW , WW 11,11 H\J 


/ w 


I0T720: 


UUO 








7804 


1653 : 




1 1 

u 


1 uOO , 


0700 4CC-1 00r>0 A">*7 A AAH7 A7AH nnnn AA77 Tl ACS 
Z / o*i, foo 1 ,vjZw««i,*+o/ / +, www / , w / ww , wwwv/ , ww / / , / / 


/ oua 


I0T730: 


UU0- 








7QAC 


1654 : 




U 


1 654 , 


2732 4551 0202 4374 0007 0700 OOOO 0077 7740 


7807 


I0T740: 


UUO 








7808 


1655: 




U 


1655, 


2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 


7809 


I0T750: 


UUO 








7810 


1656 : 




U 


1656, 


2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 


781 1 


I0T760: 


UUO 








7812 


1657 : 




U 


1657, 


2732 , 455 1 , 0202 , 4374 , 0007 , 0700 , 0000 , 0077 , 7740 


7813 


I0T77O: 


UUO 








7814 







B/0, 
B/1, 
B/2, 
B/3, 
B/4, 
B/5, 
B/6, 
B/7, 



J/I0T770 
J/I0T770 
J/I0T770 
J/I0T770 
J/I0T770 
J/I0T770 
J/I0T77O 
J/I0T770 



;G0 TO COMMON CODE FOR UBABLT INSTRS 



T10KL 
INOUT 



.MCR[ 10, 1141] 
,MIC[ 10, 1 141 ] 



15:34 27-JULY-1984 
09: 17 27- JULY- 1984 



MICRO 



D 0704, 1200,1754,0100 
D 0705, 1200,1755,0100 



U 1754 , 3705 , 3443 , 0300 , 41 74 , 4207 , 0700 , 0200 , 0004 , 00 1 2 

U 3705, 1515,3771,0003,4365,5007,0700,0200,0000,0002 

U 1755, 3706 , 3443 , 0300 ,4174, 4207 , 0700 , 0200 , 0003 , 00 1 2 

U 3706 , 1516, 377 1 , 0003 , 0276 , 6007 , 0700 , OOOO , 0000 , 0000 
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7815 .TOC "UMOVE AND UMOVEM" 

7816 

7817 . DCODE 

7818 704: IOT, J/UMOVE 

7819 ' IOT, J/UMOVEM 

7820 .UCODE 
7821 

-7822 1754: 

7823 UMOVE: VMA_jAR], 

7824 START READ, 

7825 SPEC/PRE V 
7826. MEM READ, 

7827 [ AR ]_MEM , 

7828 U/STAC 
7829 

7830 1755: 

7831 UMOVEM: VMA__[AR], 

7832 START WRITE, 

7833 SPEC/PREV 

7834 [AR]_AC, 

7835 J/STMEM 
7336 



LOAD VMA 
START MEMORY 
FORCE PREVIOUS 
WAIT FOR MEMORY 
PUT DATA IN AR 
GO PUT AR IN AC 



LOAD VMA 
START MEMORY 
FORCE PREVIOUS 
FETCH AC 
STORE IN MEMORY 



; T10KL.toctf[ 10, 1 141 3 15:34 27-JULY-1984 MICRO 31(254) KSTu MICROCODE V124, 27-JUL-84 Page 218 

; INOUT.MIC[ 10, 1 141 ] 09:17 27-JULY-1984 UMOVE AND UMOVEM 









7837 


; HERE 


WITH HALT CODE IN THE T1 










7838 


=010* 












7839 


HALTED 


: WORK [ SV . ARX 3 [ ARX 3 , 


;SAVE TEMP REGISTER 


u 


0104 , 


3711,3333, 0004 ,7174, 4007 , 0700 , 04 1 , 0000", 02 1 2 


7840 




CALL [SAVVMA3 


;PUT VMA IN W0RK[SV.VMA3 








784 1 


= 1 10* 


ABORT MEM CYCLE, 


; ABORT CYCLE IN PROGRESS 


u 


01 14, 


3710,4223,0000,4364,4277,0700,0210,0000,0010 


7842 
7843 


= 111* 


CALL [WRTHSB3 


; WRITE HALT STATUS BLOCK 


u 


0116, 


3707 4221 0004 4174 4007 0700 0200 002 1 1016 


7844 
7845 


PWRON : 


[ARX3_0, VMA PHYSICAL 


WRITE ; STORE HALT CODE 


u 


3707, 


25 1 4 , 3333 , 00 1 7 , 4 1 75 , 5007 , 070 1 , 0200 , 0000 , 0002 


7846 




MEM WRITE , MEM [T1 3 


; IN LOCATION .0 








7847 


=0 


NEXT [ARX] PHYSICAL WRITE , 


u 


2514, 


3703,01 1 1 ,0704,4170,4007,0700,0210,0023, 1016 


7848 




CALL [STOPC] 




u 


2515, 


0005 , 4443 , 0000 , 4 1 74 , 4 1 07 , 0700 , 0000 , 0000 , 0074 


7849 
7850 
7851 


H1 : 


SET HALT, J/HALTLP 


; TELL CONSOLE WE HAVE HALTED 








7852 


4 : 


UNHALT, 


; RESET CONSOLE 


u 


0004, 


25 16 , 4443 , 0000 , 4 1 74 , 4 107 , 0640 , 0000 , 0000 , 0062 


7853 
7854 


5 : 


SKIP EXECUTE, J/CONT 


;SEE IF CO OR EX 


u 


0005 , 


0004 , 4443 , 0000 ,4174, 4007 , 0660 , 0000 , 0000 , 0000 


7855 
7856 
7857 


HALTLP 
=0 


: SKIP/-C0NTINUE, J/4 


;WAIT FOR CONTINUE 








7858 


CONT : 


VMA [PC 3, 


; LOAD PC INTO VMA 








7859 




FETCH, 


; START READ 


u 


25 16, 


1 ? 4 - O 1 00 4 •> 74 , 4007 , 0700 , 0200 , 00 1 4 , 00 1 2 


7860 




J/XCTGO 


;D0 THE INSTRUCTION 


I J 


25 17 , 


?'-: ' . v/ 1 , ' 2 . ; i 7 4 , 4007 , 0700 , 0000 , 0024 , 1200 


7861 




[ AR 3 VMA 10 READ 


;PUT FLAGS IN AR 








7862 


=0 


F AR 3* [ AR 3 -OR. #, 


;PUT IN ADDRESS 








7863 




#/200000, * HOLD LEFT, 


; OF CSL REGISTER 


u 


2 520, 


3 7t " ? 03'J'J , 4; 70 , 4007 , 0700 , 00 1 , 0020 , 0000 


7864 




CALL [ STRTIO 3 










7865 


CONT 1 : 


MEM READ, 


;WAIT FOR DATA 








7866 




[ HR 3 MEM, 


;PUT IN HR 








7867 




LOAD INST, 


; LOAD IR, ETC. 


u 


2521 , 


2 7 . v ' 1 ,0002,4365,5617,0700,0200,0000,0002 


7868 
7869 




J/XCT1 


;G0 DO THE INSTRUCTION 
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7870 
7871 
7872 
7873 
7874 
7875 
7876 
7877 
7878 
7879 
7880 
7881 
7882 
7883 
7884 
7885 
7886 
7887 
7888 
7889 
7890 
7891 
7892 
7893 
7894 
7895 
7896 
7897 
7898 
7899 
7900 
7901 
7902 
7903 
7904 
7905 
7906 
7907 
7908 
7909 



.TOC " WRITE HALT STATUS BLOCK" 
; THE HALT STATUS BLOCK LOOKS LIKE: 



oo r 




MAG 




01 ! 




PC 




02 ! 




HR 




03! 




AR 




04! 




ARX 




OS ! 




BR 




06! 




BRX 




07! 




ONE 




10! 




EBR 




1 1 ! 




UBR 




12! 




MASK 




13! 




FLG 




14! 




PI 




15! 




XWD1 




16! 




TO 




17! 




T1 






VMA FLAGS 


f 


VMA 



o 

; T10KL.MCR[ 10, 1 141 ] 15:34 27- JULY- 1984 MICRO 

; INQUT.MIC[ 10, 1.141 ] 09:17 27- JULY- 1984 



U 0001, 3711,3333,0004,7174,4007,0700,0410,0000,0212 

U 0011, 0024,3771,0004,7274,4007,0701,0000,0000,0227 

U 0024, 3713,4223,0000,4364,4277,0700,0210,0000,0010 

U 0026 , 2515,4443, 0000 , 4 1 74 , 4 1 07 , 0700 , 0000 , 0000 , 0074 



U 3710, 2522,3771,0004,7274,4007,0422,0000,0000,0227 

U 2522 , 37 1 3 , 3333 , 00 1 2 , 4 1 74 , 4437 , 0700 , 0000 , 0000 , 0000 

U 2523, 0002,3771,0004,7274,4004,1701,0000,0000,0212 

U 3711, 3712,3771,0004,4354,4007,0700,0000,0000,0000 

U 3712, 0010,3333,0004,7174,4004,1700,0400,0000,0210 



254) 



7910 
791 1 
7912 
7913 
7914 
7915 
7916 
7917 
7918 
7919 
7920 
7921 
7922 
7923 
.7924 
7925 
7926 
7927 
7928 
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; START AT 1 TO DUMP 2901 REGISTERS INTO MAIN MEMORY 
1: WORK[SV. ARX]_[ARX] , ; SAVE TEMP REGISTER 

CALL [SAVVMA] ; WORK [ SV . VMA ]_VMA 

1 1 : [ ARX ]_W0RK [ HSBADR 3 

=10* ABORT MEM CYCLE, CALL [DUMP] 

SET HALT, J/H1 



WRTHSB: [ ARX ]_W0RK [ HSBADR ] , ; 

SKIP AD.LE.O, 4T 
=0 READ [MASK], LOAD PI, 

J/DUMP 

[ARX]_W0RK[SV.ARX] , 
RETURN [2] 



T ADDRESS OF HSB 
;SEE IF VALID 
; TURN OFF PI SYSTEM 
; AND GO TAKE DUMP 

;D0 NOT DUMP ANYTHING 



SAVVMA: [-ARX]_VMA 

WORK[SV. VMA]_[ARX] , 
RETURN [10] 
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; 7929 

U 3713, 2375,3333,O004,4174 5 4O07,O700,O2OO,OO21,1O16 ; 7930 

U 2375, 2741,3333,0000,4175,5007,0701,0210,0000,0002 ; 7931 

U 2377, 3714,3333,0001,4175,5007,0701,0200,0000,0002 ; 7932 

U 3714, 2524,0111,0704,4170,4007,0700,0200,0023,1016 ; 7933 

U 2524, 2741,3333,0002,4175,5007,0701,0210,0000,0002 ; 7934 

U 2526, 2525,3333,0003,4175,5007,0701,0200,0000,0002 ; 7935 

U 2525, 2741,3333,0003,7174,4007,0700,0410,0000,0211 ; 7936 

U 2527, 2530,3771,0003,7274,4007,0701,0000,0000,0212 ; 7937 

U 2530, 2741,3333,0003,4175,5007,0701,0210,0000,0002 ; 7938 

U 2532, 3715,3333,0005,4175,5007,0701,0200,0000,0002 ; 7939 

U 3715, 2531,0111,0704,4170,4007,0700,0200,0023,1016 ; 7940 

U 21531, 2741,3333,0006,4175,5007,0701,0210,0000,0002 ; 794-1 

U 2533, 3716,3333,0007,4175,5007,0701,0200,0000,0002 ; 7942 

U 3716, 2534,01 1 1 ,0704, 4170,4007, 0700, 0200;0023, 1016 ; 7943 

U 2534, 2741 ,3333,0010,4175,5007,0701 ,0210,0000,0002 ; 7944 

U 2536, 3717,3333,0011,4175,5007,0701,0200,0000,0002 ; 7945 

U 3717, 2535,0111,0704,4170,4007,0700,0200,0023,1016 ; 7946 

U 2535, 2741,3333,0012,4175,5007,0701,0210,0000,0002 ; 7947 

U 2537, 3720,3333,0013,4175,5007,0701,0200,0000,0002 ; 7948 

U 3720, 254O,0111,O7O4,417O,4O07,O7OO,O20O,O023,1O16 ; 7949 

U 2540, 2741,3333,0014,4175,5007,0701,0210,0000,0002 ; 7950 

U 2542, 3721,3333,0015,4175,5007,0701,0200,0000,0002 ; 7951 

U 3721, 2541,0111,0704,4170,4007,0700,0200,0023,1016 ; 7952 

U 2541, 2741,3333,0016,4175,5007,0701,0210,0000,0002 ; 7953 

U 2543, 2544,3333,0017,4175,5007,0701,0200,0000,0002 ; 7954 

U 2544, 2741,3771,0003,7274,4007,0701,0010,0000,0210 ; 7955 

U 2546, 3722,3333,0003,4175,5007,0701,0200,0000,0002 ; 7956 

U 3722, 3723,3771,0003,7274,4007,0701,0000,0000,0211 ; 7957 

U 3723, 3724,3771,0004,7274,4007,0701,0000,0000,0210 : 7958 

U 3724, 3725,3443,0400,4174,4007,0700,0200,0000,0010 ; 7959 

; 7960 

U 3725, 0006,3771,0004,7274,4004,1701,0000,0000,0212 ; 7961 

; 7962 



;DUMP OUT THE 2901 

DUMP: READ [ARX], VMA PHYSICAL WRITE 

=0* MEM WRITE, MEM_[ MAG ] , CALL [NEXT] 

MEM WRITE, MEM_[PC] 
NEXT [ARX] PHYSICAL WRITE 

=0* MEM WRITE, MEM_[HR], CALL [NEXT] 

MEM WRITE, MEM_[AR] 

=0* WORK [ SV . AR ]_[ AR ] , CALL [NEXT] 

[AR]__W0RK[SV. ARX] 

=0* MEM WRITE, MEM_[AR], CALL [NEXT] 

MEM WRITE, MEM_[BR] 
NEXT [ARX] PHYSICAL WRITE 

=0* MEM WRITE, MEM_[BRX], CALL [NEXT] 

MEM WRITE, MEM_[ONE] 
NEXT [ARX] PHYSICAL WRITE 

=0* MEM WRITE, MEM_[EBR], CALL [NEXT] 

MEM WRITE, MEM_[UBR] 
NEXT [ARX] PHYSICAL WRITE 

=0* MEM WRITE, MEM_[ MASK ] , CALL [NEXT] 

MEM WRITE, MEM_[FLG] 
NEXT [ARX] PHYSICAL WRITE 

=0* MEM WRITE, MEM_[PI], CALL [NEXT] 

MEM WRITE, MEM_[XWD1] 
NEXT [ARX] PHYSICAL WRITE 

=0* MEM WRITE, MEM_[TO], CALL [NEXT] 

MEM WRITE, MEM__[T1] 

=0* [AR]_WORK[SV. VMA] , CALL [NEXT] 

MEM WRITE, MEM_[ AR ] 

HSBDON : [ AR ]_W0RK [ SV . AR ] 

[ARX]_W0RK[SV. VMA] 
VMA_[ARX] 

[ARX]_W0RK[SV. ARX] , 
RETURN [6] 



n. 
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7963 
7964 
7965 
7966 
7967 
7968 
7969 
7970 
7971 
7972 
7973 
7974 
7975 
7976 
7977 
7978 
7979 
7980 
7981 
7982 
7983 
7984 
7985 
7986 
7987 
7988 
7989 
7990 
7991 
7992 
7993 
7994 
7995 
7996 
7997 
7998 
7999 
8000 
8001 
8002 
8003 
8004 
8005 
8006 
8007 



. NOB IN 

.TOC "PAGE FAIL REFIL LOGIC " 

WHEN THE CPU CAN NOT COMPLETE A MEMORY REFERENCE BECAUSE THE PAGE 
TABLE DOES NOT CONTAIN VALID INFORMATION FOR THE VIRTUAL PAGE INVOLVED 
THE HARDWARE CALLS THIS ROUTINE TO RELOAD THE HARDWARE PAGE TABLE. 

THIS CODE WILL EITHER DO THE RELOAD OR GENERATE A PAGE FAIL FOR THE 
SOFTWARE. THE INFORMATION LOADED CONSISTS OF THE PHYSICAL PAGE NUMBER, 
THE CACHE ENABLE BIT AND THE WRITE ENABLE BIT. 

;THIS LOGIC USES MANY VARIABLES. THEY ARE DESCRIBED BRIEFLY HERE: 



THING 

OLD VMA 

OLD AR 

OLD ARX 

OLD BR 

OLD BRX 

KL PAGING BIT 



W BIT 
C BIT 

PI CYCLE 
MAP FLAG 
CLEANUP CODE 

SPT BASE 

CST BASE 

CST MASK 

CST DATA (PUR) 

PAGE TABLE ADDRESS 

PHYSICAL PAGE # (PPN) 

CST ENTRY 

SPT ENTRY 

PAGE TABLE ENTRY 

PAGE NUMBER 

PAGE FAIL WORD 

. IF/INHCST 

SKIP NO CST 
. ENDI F/INHCST 



WHERE KEPT 
WORKSPACE WORD 210 
WORKSPACE WORD 2 1 1 
WORKSPACE WORD 212 
WORKSPACE WORD 213 
WORKSPACE WORD 214 
EBR BIT 1 (IN 2901 ) 



FLG BIT 4 
FLG BIT 6 

FLG BIT 5 
FLG BIT 18 
FLG BITS 32-35 

WORKSPACE WORD 215 

WORKSPACE WORD 216 

WORKSPACE WORD 217 

WORKSPACE WORD 220 

AR 

AR 

AR 

AR 

AR 

BR 

BRX 



USE 

SAVES VMA 
SAVES AR 
SAVES ARX 
SAVES BR 
SAVES BRX 

INDICATES KL STYLE (TOPS-20) PAGING 

INSTEAD OF KI STYLE (TOPS- 10 AND DIAGNOSTIC) 

MODE PAGING 

PAGE CAN BE WRITTEN 

DATA IN THIS PAGE MAY BE PUT 

INTO CACHE 

STORING OLD PC DURING PI 
MAP INSTRUCTION IN PROGRESS 
WHAT TO DO SO INSTRUCTION MAY BE 
RESTARTED 

ADDRESS OF SHARED-POINTER-TABLE 
ADDRESS OF CORE - STATUS -TABLE 
BITS TO KEEP ON CST UPDATE 
BITS TO SET ON CST UPDATE 
WHERE THIS PAGE TABLE IS LOCATED 
RESULT OF THIS PROCESS 
CORE STATUS TABLE ENTRY 
WORD FROM SPT 
WORD FROM PT 

INDEX INTO CURENT PAGE TABLE 
WHAT HAPPENED (ALSO MAP RESULT) 



' AD/D , DBUS/RAM , RAMADR/ # , WORK/CBR , DT/4T , SKIP/ADEOO " 
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; 8008 ; 

; 8009 ; 

.; 8010 ; 

; 8011 ; KL10 PAGING - WORD FORMATS 

; 8012 ; 

; 8013 ;Section Pointer 

; 8014 ; 

; 8015 ;The section pointer is found in the user or exec section table. 

; 8016 ;(Part of UPT or EPT . ) 

; 8017 ; 

; 8018 ;Section pointer provides (via the SPT) the physical address of 

; 8019 ;the PAGE TABLE for the given section. 

; 8020 ; 

; 8021 ; Code: No-access (trap) 

; 8022 ; 1 Immediate 

• 8023 ; 2 Share 

; 8024 ; 3 Indirect 

; 8025 ; 4-7 Unused, reserved 

; 8026 ; 

; 8027 ; 12 3 4 5 6 18 35 

; 8028 ; + + - + - + _ + - + --------_ + ----- + 

; 8029 ; !C0DE1P!W! ! C !///////// ! PAGE TABLE IDENTIFIER ! 

; 8030 ; !010 ! ! ! ! !/////////! (SPT INDEX) ! 

; 8031 ; + - + - + - + - + - + -. + + 

; 8032 ; 

; 8033 ; NORMAL SECTION POINTER (Code =2) 

; 8034 ; 

; 8035 ; 2 3 4 5 6 9 .18 35 

; 8036 ; + + - + - + - + - + --- + - - + + 

; 8037 ; !C0DE!P!W! ! C !//./! SECTION ! SECTION TABLE ■ IDENTIFIER ! 

; 8038 ; !011 ! ! ! ! !///!TABLE INDEX! (SPT INDEX) ! 

; 8039 ; + + - + - + - + - + + - + - + 

; 8040 ; 

; 8041 ; INDIRECT SECTION POINTER (Code =3) 

; 8042 
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8043 
8044 
8045 
8046 
8047 
8048 
8049 
8050 
8051 
8052 
8053 
8054 
8055 
8056 
8057 
8058 
8059 
8060 
8061 
8062 
8063 
8064 
8065 
8066 
8067 
8068 
8069 
8070 
8071 
8072 
8073 
8074 
8075 



PAGE POINTERS 

FOUND IN PAGE TABLES 

1 2 3 4 5 6 

+ +-+-+-+-+ - + 

!CODE!P!W! !C!////! 
!001 ! ! ! ! !////! 
+ + - + - + - + - + + 



12 



PHYSICAL ADDRESS OF PAGE 



35 

- - + 

f 
I 

- - + 



IMMEDIATE POINTER (code field = 1) 

B12-35 give PHYSICAL ADDRESS OF PAGE 

if B12-17 >< 0, page not in core-trap 
if B12-17 = 0, B23-35 give CORE PAGE 

NUMBER of page, B18-22 MBZ 



2 3 6 

+ + + + 

!C0DE ! SAME AS!/////////! 
!010 ! IMMED. !/////////! 



18 



35 



SPT INDEX 



SHARED POINTER (code field = 2) 

B18-35 Give SPT INDEX (SPTX). SPTX + SPT BASE 
ADDRESS = physical core address of word 
holding physical address of page. 



T10KL 
PAGEF 

8076 
8077 
8078 
8079 
8080 
8081 
•8082 
8083 
8084 
8085 
8086 
8087 
8088 
8089 
8090 
8091 
8092 
8093 
8094 
8095 
8096 
8097 
8098 
8099 
8100 
8101 
8102 
8103 
8104 



.MCRt 10, 1 141 ] 
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12 3 6 9 17 18 35 

!CODE!SAME AS !///! PAGE ! PAGE TABLE IDENTIFIER! 
!011 ! IMMED , !///!NUMBER ! (SPT INDEX) ! 

INDIRECT POINTER (code field = 3) 

This pointer type causes another pointer to be fetched 
and interpreted. The new pointer is found in word N 
(B9-17) of the page addressed by C(SPT, + 5PTX ) . 



SPT ENTRY 

Found in the SPT, i.e., when fetching C(SPT +SPTX) 

12 35 



!////////////////////! 
I////////////////////! 



PHYSICAL ADDRESS OF PAGE ! 

OR PAGE TABLE ! 



B12-35 Give PHYSICAL ADDRESS of page. 

The base address (physical core address) of the SPT 
resides in one AC of the reserved AC block. 



C 



.a 
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8105 
8106 
8107 
8108 
8109 
81 10 
811 1 
8112 
8113 
81 14 
81 15 
8116 
8117 
8118 
81 19 
8120 
8121 
8122 
8123 
8124 
8125 
8126 
8127 
8128 
8129 
8130 
8131 
8132 
8133 
8134 
8135 
8136 
8137 
8138 
8139 
8140 
8141 
8142 



PHYSICAL STORAGE ADDRESS 

Found in B12-35 of IMMEDIATE POINTERS and SPT ENTRIES. 

12 17' 18 23 35 

! !MBZ ! CORE PAGE NUMBER! 

! ! ! IF B12-17 = O ! 

If B12-17 = O, then B23-35 are CORE PAGE NUMBER (i.e., 
B14-26 of physical core address) of page and B18-22 
MBZ. If B12-17 >< O, then address is not core and 
pager traps. 



CORE STATUS TABLE ENTRY 

Found when fetching C(CBR + CORE PAGENO) 
5 



O 

+ + - 

! CODE ! 
+ -f - 



32 34 35 

f- + - + 

! !M! 
(- + - + 



BO-5 are code field: 

O - unavailable, trap 
1 -77 - avai Table 

B32-34 reserved for future hardware specification. 
B35 is "modified" bit, set on any write ref to page. 
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8143 
8144 
8145 
8146 
8147 
8148 
8149 
8150 
8151 
8152 
8153 
8154 
8155 
8156 
8157 
8158 
8159 
8160 
8161 
8162 
8163 
8164 
8165 
8166 
8167 
8168 
8169 
8170 
8171 
8172 
8173 
8174 
8175 
8176 
8177 
8178 
8179 
8180 
8181 
8182 
8183 
8184 



QUANTITIES IN HARDWARE REGISTERS 
SPT SPT Base Register 

14 35 

+ : + 

! PHYSICAL CORE WORD ADDRESS ! 
+ . - + 

CBR CST Base Register 

14 35 

4. + 

! PHYSICAL CORE WORD ADDRESS ! 

■ +. + 

CSTMSK CST Update Mask 

32 35 
+ _ ; . _ — + + - + 

! MASK ! 1 1 1 S 1 ! 

+ , - + + - + 

ANDed with CST word during update 
(B32-35 must be all 1's to preserve existing CST information) 
CSTDATA CST Update Data 

32 34 35 

4. ■ + + - + 

! DATA !000!0! 
+ _ - + + - + 

IORed with CST word during update 

(B32-35 must be all O's to preserve existing CST information) 

All unspecified bits and fields are reserved for future 
specification by DEC. 
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D 0257, 1215, 1553,0100 



U 1553, 3726,3551,0303,4374,0007,0700,0000,0016,0000 

U 3726 , 3727 , 377 1 , 0006 , 4354 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3727, 3730,4551,0606,4374,0007,0700,0000,0040,0000 

U 3730 , 3731, 3333 , 0006 , 7 1 74 , 4007 , 0700 , 0400 , 0000 , 02 1 

U 3731, 3732,3771,0005,7274,4007,0701,0000,0000,0230 

U 3732 , 2550 , 4553 , 0500 , 4374 , 4007 , 033 1 , 0000 , 0003 , 0000 

U 2550 , 3747 , 377 1 , 00 1 3 , 4370 , 4007 , 0700 , 0000 , 0040 , 0002 

U 2551, 0100,3440,0303,0174,4156,4700,0400,0000,0000 



U 3777 , 3733 , 3333 , 0003 , 7 1 74 , 4007 , 0700 , 0400 , OOOO , 02 1 1 

U 3733 , 3734 , 3333 , 0006 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 4 

U 3734 , 3735,3771, 0006 , 4354 , 4007 , 0700 , 0000 , 0000 , 0000 

U 3735 , 3736 , 3333 , 0006 , 7 1 74 , 4007 , 0700 , 0400 , 0000 , 02 10 

U 3736 , 1 060 , 3333 , 0004 ,7174, 4007 , 0370 , 0400 , 0000 , 02 1 2 



U 1060, 1060,3773,0000,4304,4003, 1702,0000,0000,0000 

U 1 06 1 , 1572,3333, 0005 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 3 

U 1063, 3737,3771,0006,4374,4007,0700,0000,0000,0000 

U 1065, 1563,4571 , 1206,4374,4007,0700,0000,0037,0000 

U 1067, 1563,4571 , 1206,4374,4007,0700,0000,0037,0000 

U 1070, 3747,3333,0005,7174,4007,0700,0400,0000,0213 

U 1 07 1 , 1572,3333, 0005 , 7 1 74 , 4007 , 0700 , 0400 , 0000 , 02 1 3 

U 1 072 , 3747 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 ,0000 , 02 1 3 

U 1073, 3747,3333,0005,7174,4007,0700,0400,0000,0213 



U 3737, 
U 3745, 



3745 , 3333 , 0006 ,7174, 4007 , 0700 , 0400 , 0000 , O 1 60 
3746 , 3333 , 0006 ,7174, 4007 , 0700 , 0400 , 0000 ,0161 



254) 



KSlO MICROCODE V124, 27-JUL-84 
PAGE FAIL REFIL LOGIC 



Page 228 



8185 
8186 
8187 
8188 
8189 
8190 
8191 
8192 
8193 
8194 
8195 
8196 
8197 
8198 
8199 
8200 
8201 
8202 
8203 
8204 
8205 
8206 
8207 
8 208 
8209 
8210 
821 1 
8212 
8213 
8214 
8215 
8216 
8217 
8218 
8219 
8220 
8221 
8222 
8223 
8224 
8225 
8226 
8227 
8228 
8229 
8230 
8231 
8232 
8233 
8234. 
8235 
8236 
8237 
8238 
8239 
8240 



257: 



1553: 
MAP: 



.BIN 

. DCODE 

IOT, 

.UCODE 



AC, 



J/MAP 



[ AR ]_[ AR ] .0R.#, 
#/ 160000, 
HOLD RIGHT 
[BRX]_VMA 

[BRX]_[BRX] . AND . ft , 
0/400000, HOLD RIGHT 
WORK[SV. VMA]_[BRX] 
[BR]_WORK[APR] 
TR [BR], #/030000 
STATE_[ MAP ] , J/PFMAP 
AC [AR], NEXT INST 



ASSUME PHYSICAL REF 
FAKE ANSWER 

PUT VMA AND FLAGS IN BRX 
JUST KEEP USER BIT 



;SAVE IN WORKSPACE 
; GET APR FLAGS 
; PAGING ENABLED? 
=0 STATE [MAP], J/PFMAP ;YES--D0 REAL MAP 

; NO- -RETURN VIRTUAL ADDRESS 
.-HARDWARE COMES HERE ON PAGE TABLE NOT VALID (OR INTERRUPT) WHEN 
; STARTING A MEMORY REFERENCE. MICOWORD ADDRESS OF INSTRUCTION DOING 
; MEM WAIT IS SAVED ON THE STACK. 
3777 : 

PAGE-FAIL: 

WORK [SV.AR]_[AR] 
I TRAP : WORK [ SV. BRX ]_[ BRX] 

[BRX]_VMA 

WORKfSV. VMA]_[BRX] 
WORK[SV. ARX]_[ARX] , 
SKIP IRPT 



=0000 
PFD: 



DBM/PF DISP, DBUS/DBM, 
AD/D, DEST/PASS, 4T, 
DISP/DP LEFT, J/PFD 



=0001 
=001 1 

=0101 
=01 1 1 
= 1000 
= 1001 
= 1010 
= 101 1 

BADDATA : 



[BRX]_I0 DATA, 
AD PARITY OK/0, 
J/BADDATA 



;SEE IF INTERRUPT (SAVE DISPATCH) 

; BRING CODE TO 2901 'S 
;PUT ON DP 18-21 
;DISPATCH ON IT 
;(1) INTERRUPT 
WORKfSV. BR]_[BR] , J/PFPI 1 

;(3) BAD DATA FROM MEMORY 
; GET THE BAD DATA 
; DO NOT LOOK AT PARITY 
;SAVE IN AC BLK 7 
; (5) NXM ERROR 
[BRX]_[370000] XWD O, J/HARD 

; (7) NXM & BAD DATA 
[BRX]__[370000] XWD O, J/HARD 

; ( 10) WRITE VIOLATION 
WORK[SV.BR]_[BR] , J/PFMAP 

;[123] (11) 1 ms timer and movsrj 
WORK [ SV . BR ]_[ BR ] , J/PFPI 1 

; ( 12) PAGE NOT VALID 
WORK[SV.BR]_[BR] , J/PFMAP 

; (13) EXEC/USER MISMATCH 
WORKfSV. BR ]_[ BR] , J/PFMAP 



WORK[BADWO]_[BRX] 
W0RK[BADW1 ]_[BRX] 



;SAVE BAD WORD 
; AGAIN 



; T10KL . MCR[ 10,1141] 15:34 27-JULY-1984 MICRO 31(254) KS10 MICROCODE V124, 27-JUL-84 Page 228-1 

; PAGEF .MIC[ 10, 1 141 3 12:32 26-JULY-1984 PAGE FAIL REFIL LOGIC 

U 3746, 1563,4571,1206,4374,4007,0700,0000,0036,0000 ; 8241 [BRX]_[ 360000] XWD 0, J/HARD 

; 8242 



\ J 



. r ^ 

v j 

T10KL.MCR[ 10, 1 141 3 15:34 27-JULY-1984 MICRO 

PAGEF.MICC 10, 1 141 ] 12:32 26-JULY-1984 



U 3747, 3750,4223,0000,4364,4277,0700,0200,0000,0010 



U 3750, 3752,3551,1313,4374,0007,0700,0000,0002,4000 
U 3752, 2552,4553,0600,4374,4007,0321,0000,0002,0000 



U 2552, 2553,3551 ,0606,4374,0007,0700,0000,0001 ,0000 

U 2553, 3753,4551 ,0606,4374,0007,0700,0000,0041 , 1000 

U 3753, 3755,6551,0606,4374,0007,0700,0000,0000,1000 

U 3755, 2554,3441,0605,4174,4007,0700,2000,0071,0007 

U 2554, 2554,3447,0505,4174,4007,0630,2000,0060,0000 

U 2555 , 3756 ,4251, 0505 , 4374 , 4007 , 0700 , 0000 , 0000 ,0777 



U 3756, 2556,3333,0006,4174,4007,0520,0000,0000,0000 



54) KS10 MICROCODE V124, 27-UUL-84 Page 229 
PAGE FAIL REFIL LOGIC 

8243 ;WE HAVE SAVED AR, ARX, BR AND BRX. WE MERGE IN HERE FROM MAP 

8244 ; INSTRUCTION , SAVE THE VMA AND START THE PAGE FAIL WORD. 

8245 PFMAP: ABORT MEM CYCLE ; CLEAR PAGE FAIL 

8246 [ FLG 3_[ FLG 3 . OR . # , ; PRESET W AND C TO 1 

8247 FLG.W/1, FLG.C/1, ;BITS INVOLVED 

8248 HOLD RIGHT ; LEAVE RH ALONE 

8249 TL [BRX 3 , WRITE TEST/1 ;IS THIS A WRITE TEST? 

8250 =0 [BRX3_[BRX] . OR . # , 

8251 #/ 10000, 

8252 HOLD RIGHT ;YES--TURN INTO WRITE REF 

8253 [BRX 3_[ BRX 3 - AND . # , ; START PAGE FAIL WORD 

8254 2/411000, ;SAVE 3 INTERESTING BITS 

8255 HOLD RIGHT ; SAVE VIRTUAL ADDRESS 

8256 ;USER ADDR (400000) 

8257 ;WRITE REF (010000) 

8258 ; PAGED REF (001000) 

8259 [BRX3_[BRX3 -XOR.#, ;FIX BIT 8 

8260 #/1000, HOLD RIGHT 

8261 [BR]_[BRX3, ;COPY VIRTUAL ADDRESS 

8262 SC_7 ; PREPARE TO SHIFT 9 PLACES 

8263 =0 

8264 PF25: [ BR 3_[ BR 3 * - 5 , ; R I GHT ADJUST PAGE # 

8265 STEP SC, ; COUNT SHIFT STEPS 

8266 J/PF25 ; LOOP FOR 9 

8267 [BR 3_[ BR 3 • AND . # CLR LH , ; MASK TO 9 BITS 

8268 #/777 ; . . 

8269 . I F/KLPAGE 

8270 . I F/KI PAGE 

8271 TL [EBR3, ;KI MODE REFILL? 

8272 #/40 ; FLAG BIT 

8273 =0 

8274 - ENDI F/KI PAGE 

8275 READ [BRX], ;USER REF? (KL MODE) 

8276 SKIP DPO, ; . . 

8277 J/PF30 ;CONTINUE AT PF30 

8278 . ENDI F/KLPAGE 

8279 . IF/KIPAGE 

8280 [ARX3_[BR3*-5, ;KI10 MODE REFILL 

8281 J/KIFILL ; GO HANDLE EASY CASE 

8282 . ENDI F/KI PAGE 
8283 



T10KL.MCR[ 10, 1 141 ] 
PAGEF . MIC [ 10, 1 141 ] 



15:34 27-JULY-1984 

12:32 26-JULY-1984 



MICRO 



U 2556, 2562,3771,0004,7274,4007,0622,0000,0000,0423 

U 2557 , 2560 ,3771, 0004 , 7274 , 4007 , 0622 , 0000 , 0000 , 0424 

U 2560, 1 134,01 13,0405,4174,4007,0700,0200,0024, 1016 

U 2561, 3757,0551,1103,4374,4007,0701,0000,0000,0540 

U 2562, 1 134,01 13,0405,4174,4007,0700,0200,0024, 1016 

U 2563 1 3757,0551,1003,4374,4007,0701,0000,0000,0540 

U 3757, 3760,3443,0300,4174,4007,0700,0200,0024, 1016 

U 3760 , 1 000 ,3771, 0003 , 4365 , 5007 , 0700 , 0200 , 0000 , 0002 

U 1000 , 1 503 ,4443, OOOO ,4174, 4007 , 0700 , 20 1 O , 007 1 , 0007 

U 1001, 2566,4553,0300,4374,4007,0321,0000,0000,0077 

U 1002 , 2243 , 055 1 , 0303 , 7274 , 4007 , 070 1 , 0000, 0000 , 02 1 5 

U 1003, 151 1 ,0551 ,0303,7274,4007,0701 ,0010,0000,0215 

U 1007 , 2564 , 4553 , 0300 , 4374 , 4007 , 032 1 ,0000 , 0000 , 0077 

U 2564, 2670,4553,1300,4374,4007,0321,0000,0001,0000 

U 2565 , 1010, 3445 , 0303 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 



U 1010, 
U 1011, 
U 1015, 



1010, 3445 , 0303 ,4174 ,4007 , 0630 , 2000 , 0060 , 0000 
1511,4443, 0000 , 4 1 7 4 , 4007 , 07 00 , 00 1 , 0000 , 0000 
1 000 , 4443 , 0000 , 4174, 4007 , 0700 , 0000 , 0000 , 0000 



254) KS10 MICROCODE V124, 27-JUL-84 Page 230 
PAGE FAIL REFIL LOGIC 

8284 . I F/KLPAGE 

8285 ; HERE IN T0PS-2O MODE 

8286 ;PICK UP CORRECT SECTION POINTER 

8287 =0 

8288 PF30: [ ARX 3_W0RK[ PTA . E 3 , ; EXEC MODE 

8289 SKIP AD.EQ.O, 4T , ;SEE IF VALID 

8290 U/PF35 ; CONTINUE BELOW 

8291 [ARX3_WORK[PTA.U3 , ;USER MODE 

8292 SKIP AD.EQ.O, 4T ;SEE IF VALID 

8293 =0 VMA_[ARX3 + CBR3 , -.POINTER VALID 

8294 VMA PHYSICAL READ, ; START MEMORY 

8295 J/PF77 ; CONTINUE BELOW 

8296 [AR3_[UBR3+#, 3T , ;USER MODE 

8297 #/540, ; OFFSET TO UPT 

8298 J/PF40 ;G0 GET POINTER 
8299 

8300 =0 

8301 PF35: VMA_[ ARX 3 + [ BR 3 , ;POINTER VALID 

8302 VMA PHYSICAL READ, ; START MEMORY 

8303 J/PF77 ; CONTINUE BELOW 

8304 EAR3_EEBR3+#, 3T, ;EXEC MODE 

8305 #/540 ; OFFSET TO EPT 

8306 PF40: VMA_[AR3, ; LOAD THE VMA 

8307 START READ, ; START THE MEMORY CRANKING 

8308 VMA PHYSICAL ; ABSOLUTE ADDRESS 

8309 MEM READ, ;WAIT FOR MEMORY 

8310 [ AR 3_MEM ;POINT POINTER IN AR 

8311 ;L00K AT SECTION POINTER AND DISPATCH ON TYPE 

8312 =000 

8313 PF45: SC_7 , ; FETCH SECTION POINTER 

8314 CALL [SETPTR3 ; FIGURE OUT POINTER TYPE 

8315 SECIMM: TL [ AR 3 , ; IMMEDIATE POINTER 

8316 #/77, ; TEST FOR 12-17 = O 

8317 U/PF50 ;CONTINUE AT PF50 

8318 [AR3_[AR3+W0RK[SBR3 , ; SHARED SECTION 

8319 J/SECSHR ; GO FETCH POINTER FROM SPT 

8320 [AR3„[AR3+WORK[SBR] , ; INDIRECT SECTION POINTER 

8321 CALL [RDPT3 ; GO FETCH SPT ENTRY 

8322 =111 TL [ AR 3 , ;12 TO 17 = O? 

8323 #/77 ; . . 

8324 = 

8325 =0 PAGE FAIL TRAP ; NO 

8326 [AR3__[AR3*2, ;FIRST SHIFT 

8327 STEP SC ; SC WAS LOADED AT PF45 

8328 =0*0 

8329 PF60: [ARj_[AR]*2, ;C0NVERT TO ADDRESS OF 

8330 STEP SC, ; SECTION TABLE 

8331 J/PF60 

8332 CALL [ RDPT 3 ; READ SECTION TABLE 

8333 =1*1 U/PF45 ; TRY AGAIN 

8334 = 
8335 



T10KL.fiTCR[ 10, 1141] 
PAGEF .MICC 10, 1141] 



15:34 27-UULY-1984 
12:32 26-JULY-1984 



MICRO 31(254) 



U 2243, 1511 ,4443,0000,4174,4007,0700,0010,0000,0000 
U 2247, 2566,4553,0300,4374,4007,0321,0000,0000,0077 



U 2566, 2670,4553, 1 300 , 4374 , 4007 , 032 1 ,0000,0001 ,0000 
U 2567 , 2545 ,4251, 0304 , 4374 , 4007 , 0700 , 0000 , 0000 ,3777 



U 2545 , 1 502 , 344 1 , 0403 ,4174, 4007 , 0700 , 00 1 O , 0000 , 0000 
U 2547, 2570,3551,0303,7274,4007,0701,0000,0000,0220 



U 2570, 2634, 3773,0000, 7274 , 4007 , 0622 , 00 10 , 0000 , 02 1 6 
U 2574, 2572,4443,0000,4174,4007,0700,2000,0071,0007 



U 2572, 2572, 3445 , 0404 ,4174, 4007 , 0630 , 2000 , 0060 , 0000 



r 



KS10 MICROCODE V124, 27-JUL-84 Page 231 
PAGE FAIL REFIL LOGIC 

;STILL . I F/KLPAGE 

; HERE FOR SHARED SECTION. AR GETS THE ADDRESS OF PAGE TABLE 

=0* * 

SECSHR: CALL [RDPT] ; READ WORD FROM SPT 

TL [AR], #/77 ; TEST FOR BITS 12-17 = O 

; HERE WITH ADDRESS OF PAGE TABLE IN AR AND SKIP ON 
; BITS 12 THRU 17 EQUAL TO ZERO 

=0 

PF50: PAGE FAIL TRAP 

[ARX]_[AR] . AND . # CLR LH 

#/3777 
. IFNOT/NOCST 
=0* [AR]_[ARX], 

CALL [UPCST] 
PF70: [AR] [ AR ] . OR . WORK [ PUR ] 



BITS 12-17 .NE. O 

; PAGE NUMBER OF PAGE TABLE 

1 1 BIT PHYSICAL PAGE # 



. IFNOT/INHCST 

=0** START NO TEST WRITE, 

CALL [IBPX] 
. ENDI F/INHCST 
. IF/INHCST 

=0** SKIP NO CST, 

CALL [WRCST] 
. ENDIF/INHCST 

SC_7 

=0 

PF75: [ARX]_[ARX]*2, 
STEP SC, 
J/PF75 



COPY ADDRESS 
UPDATE CSTO 
PUT IN NEW AGE AND 
USE BITS 



; START MEMORY WRITE 
;G0 STORE IN MEMORY 



;SEE IF A CST 

; AND GO WRITE IN MEMORY 

;THIS CAN BE BUMMED 

; CONVERT PAGE NUMBER TO 
; PAGE ADDRESS 
;LOOP OVER 9 STEPS 



T10KL . MCR[ 10, 1141] 15:34 27-JULY-1984 MICRO 

PAGEF.MIC[10,1141] 12:32 26-UULY-1984 



U 2573 , 1040 , 3333 , 0006 , 4 1 74 , 4007 , 0520, 0000 ,0000 , OOOO 

U 1 040 , 2650 , 377 1 , 0003 , 7274 , 4007 , 0622 , 00 10 , 0000 ,0423 

U 1041 , 2650,3771 ,0003,7274,4007,0622,0010,0000,0424 

U 1042 , 1 047 , 3333 , 0004 ,7174, 4007 , 0700 , 0400 , 0000 ,0423 

U 1043 , 1047 , 3333 , 0004 ,7174, 4007 ,0700 , 0400 , 0000 , 0424 



U 1047, 1 134,01 13,0405,4174,4007,0700,0200,0024, 1016 

U 1 1 34", 1 503 ,3771, 0003 , 4365 , 5007 , 0700 , 02 1 , 0000 , 0002 

U 1135, 1 1 40 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 0000 , 0077 

U 1136, 2571,0551,0303,7274,4007,0701,0000,0000,0215 



1(254) KS10 MICROCODE V124, 27-JUL-84 Page 232 
PAGE FAIL REFIL LOGIC 

; 8367 ;STILL . I F/KLPAGE 

; 8368 ;WE NOW HAVE THE ADDRESS OF THE PAGE TABLE ENTRY. GO 

; 8369 ; READ IT AND START ANALYSIS 

; 8370 

; 8371 ;IF WE ARE HERE FOR THE FIRST TIME FOR THE USER OR EXEC SAVE THE 

; 8372 ; ADDRESS OF THE PAGE TABLE IN PTA . E OR PTA . U SO THAT WE DO NOT 

; 8373 ; HAVE TO DO THE SECTION LOOKUP EVERY TIME. 

; 8374 READ [BRX], SKIP DPO ;USER OR EXEC REF? 

; 8375 =000 [ AR ]_WORK [ PTA . E ] , ; EXEC MODE 

; 8376 SKIP AD.EQ.O, 4T , ;SEE IF SET YET 

; 8377 CALL [SHDREM] ; SHOULD WE REMEMBER PTR 

;*8378 [AR]_WORK[PTA.U] , ;USER MODE 

; 8379 SKIP AD.EQ.O, 4T , ;SEE IF SET YET 

; 8380 CALL [SHDREM] ; SHOULD WE REMEMBER PTR 

; 8381 WORK[PTA.E]_[ARX] , ; SAVE FOR EXEC 

; 8382 U/PF76 ;CONTINUE BELOW 

; 8383 WQRK[PTA.U]__[ARX] , ; SAVE FOR USER 

; 8384 U/PF76 ; CONTINUE BELOW 

; 8385 =111 

; 8386 PF76: VMA_[ ARX ] + [ BR ] , ; READ PAGE POINTER 

; 8387 START READ, 

; 8388 VMA PHYSICAL 

; 8389 = 

; 8390 =00 

; 8391 PF77: MEM READ, ; START ANALYSIS OF POINTER 

; 8392 [ AR ]_MEM , 

; 8393 CALL [SETPTR] 

; 8394 PTR I MM : TL [AR], ; IMMEDIATE POINTER 

; 8395 #/77, ;CHECK FOR BITS 0-5 

; 8396 U/PF80 ; GO TO PF80 

; 8397 [AR]_[AR]+WORK[SBR] , ; SHARED POINTER 

; 8398 J/PTRSHR ; GO TO READ SPT 

; 8399 



o 



rs 



T10KL.M'CR[ 10, 1 141 ] 
PAGEF . MIC [ 10, 1 141] 



15:34 27-JULY-1984 
12:32 26-JULY-1984 



MICRO 31(254) 



U 1137, 2576 , 3770 , 0305 , 4344 , 4007 , 0670 , 0000 , 0000 , 0000 
U 2576, 2610,3333,0003,7174,4007,0700,0400,0000,0426 

U 2577 , 2600 ,4251, 0505 , 4374 , 4007 , 0370 , 0000 , 0000 ,0777 



U 2600 , 1000 , 455 1 , 0303 , 4374 , 0007 , 0700, 0000, 0027 , 7000 
U 2601, 2670,4553,1300,4374,4007,0321,0000,0001,0000 



U 2571 , 151 1 ,4443,0000,4174,4007,0700,0010,0000,0000 

U 2575 , 1 1 40 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 0000 , 0077 

U 1 140, 2670,4553, 1300,4374,4007,0321 ,0000,0001 ,0000 

U 1141 , 1502,4251 ,0304,4374,4007,0700,0010,0000,3777 



U 1143, 3761,3551,0606,4374,0007,0700,0000,0010,0000 
U 3761 , 2602,4553, 1300,4374,4007,0321 ,0000,0002,0000 



U 2602, 3762,3551,0606,4374,4007,0700,0000,0002,0000 

U 2603, 2604,4553,0600,4374,4007,0321,0000,0003,0000 
U 2604, 2670,4553,1300,4374,4007,0321,0000,0001,0000 



U 2605, 2613,3551 ,0303,7274,4007,0701 ,0000,0000,0220 



U 2610, 3574,3771,0003,7274,4117,0701,0010,0000,0301 
U 2612, 1 137,3771 ,0003,7274,4007,0701 ,0000,0000,0426 



8400 
8401 
8402 
8403 
8404 
8405 
8406 
8407 
8408 
8409 
8410 
841 1 
8412 
8413 
8414 
8415 
8416 
8417 
8418 
8419 
8420 
8421 
8422j 
8423 
8424 
8425 
8426 
8427 
8428 
8429 
8430 
8431 
8432 
8433 
8434 
8435 
8436 
8437 
8438 
8439 
8440 
8441 
8442 
8443 
8444 
8445 
8446 
8447 
8448 
8449 
8450 
8451 
8452 
8453 
8454 
8455 



KS10 MICROCODE V124, 27-JUL-84 
PAGE FAIL REFIL LOGIC 

;STILL . I F/KLPAGE 

; INDIRECT POINTER. CHANGE PAGE 

PTRIND: [ BR ]_[ AR ] SWAP, 

SKIP/-1 MS 
=0 WORK[SV. AR1 ]_[ AR] , 

J/PFTICK 

[BR ]_[BR ] . AND. # CLR LH, 
#/777, 
SKIP IRPT 
=0 [AR]_[AR3 . AND . # , 

#/277000, 
HOLD RIGHT, 
J/PF45 

PAGE FAIL TRAP 

=0* * 

PTRSHR: CALL [ RDPT 3 
TL [AR], 

U/ll 



Page 233 



AND LOOK FOR PAGE TABLE 
PUT IN RIGHT HALF 
DID CLOCK GO OFF 
YES- -UPDATE CLOCK 

UPDATE PAGE # AND RESTART 
MASK FOR PAGE # 
SEE IF THIS IS A LOOP 
CHANGE INDIRECT POINTER 
INTO SHARE POINTER 

GO BACK AND TRY AGAIN 
POINTER LOOP 



;G0 LOOK AT POINTER 
;BITS 12-17 .EO. O? 



r ^HERE WITH FINAL POINTER. SKIP IF 12-17 NOT EQUAL TO ZERO 
f^OO 

( PF80: PAGE FAIL TRAP ; NO- -TAKE A TRAP 

l\T . IFNOT/NOCST 

[ARX3_[AR] ■ AND . # CLR LH , ; SAVE PHYSICAL PAGE # [ j j ) 
#/3777, ; MASK TO 13 BITS K 1 { F / N OC^T** 

r€. CALl ^ [UPCST 3 -UPDATE CSTO — ~ ~(j 



£endif/nocs 



HERE WE HAVE CST ENTRY IN AR , PAGE FAIL WORD IN BRX 
; AT WRITABLE AND WRITTEN BITS 

[BRX3_[BRX3 -0R.#, 
#/ 100000, HOLD RIGHT 
TL [ FLG 3 , FLG.W/1 
[BRX]_[BRX3 . OR . # , 
#/020000, 
J/PF100 
TL [ BRX 3 



rVS^- M££ rt$4p 
GO LOOK 



PF90: 



=0 



TRANSLATION IS VALID 

IS THIS PAGE WRITABLE? 
YES- - INDICATE THAT IN PFW 



NOT WRITE VIOLATION 
IS THIS A WRITE REF? 



WRITE TEST/1, WRITE CYCLE/1 



PAGE FAIL TRAP 



;WRITE VIOLATION 



;PUT IN NEW AGE 
;G0 TO STORE CST ENTRY 



=0 

PF107: 

.IFNOT/NOCST 

[AR]_[AR3 .OR. WORK [PUR 3 . 

J/PF1 10 
. ENDI F/NOCST 
. I F/NOCST 
PFDONE: TR [FLG], 

#/ 400000, 

U/PF140 
. ENDI F/NOCST 

=0* 

PFTICK: [AR]_W0RK[TIME1 ] , 

SPEC/CLRCLK, CALL [TOCK] 

[ AR 3_W0RK [ SV . AR 1 3 , ^RESTORE AR 

J/PTRIND ;G0 TRY AGAIN 



; UPDATE TIMER 



; T10KL.MCR[ 10, 1141] 15:34 27 - JULY - 1 984 MICRO 

; PAGEF .MIC[ 10, 1 141] 12:32 26- JULY- 1984 



U 1137, 2576 ,3770, 0305 ,4344, 4007 , 0670 , 0000 , OOOO . 0000 
U 2576, 2610,3333, 0003 ,7174, 4007 , 0700 , 0400 , 0000 , 0426 

U 2577, 2600 ,4251, 0505 ,4374, 4007 , 0370 , 0000 , 0000 ,0777 



U 2600 , 1 000 ,4551, 0303 , 4374 , 0007 , 0700 , 0000 , 0027 , 7000 
U 2601 , 2670,4553, 1300,4374,4007,0321 ,0000,0001 ,0000 



U 2571 , 1511 ,4443,0000,4174,4007,0700,0010,0000,0000 

U 2575, 1 140,4553,0300,4374,4007,0321 ,0000,0000,0077 

U 1 140, 2670,4553, 1300,4374,4007,0321 ,0000,0001 ,0000 

U 1141, 1502,4251 ,0304,4374,4007,0700,0010,0000,3777 



U 1 143, 3761 ,3551 ,0606,4374,0007,0700,0000,0010,0000 
U 3761 , 2602,4553, 1300,4374,4007.0321 ,0000,0002,0000 



U 2602 , 3762 , 355 1 , 0606 , 4374 , 4007 , 0700 , 0000 , 0002 , 0000 

U 2603 , 2604 , 4553 , 0600 , 4374 , 4007 , 032 1 , 0000 , 0003 , 0000 
U 2604, 2670,4553, 1300,4374,4007,0321 ,0000,0001 ,0000 



U 2605, 2613,3551 ,0303,7274,4007,0701 ,0000,0000,0220 



U 2610, 
U 2612, 



3574,3771 ,0003,7274,41 17,0701 ,0010,0000,0301 
1 137,3771 ,0003,7274,4007,0701 ,0000,0000,0426 



(254) 



KS10 MICROCODE V124, 27- JUL-84 Page 233 
PAGE FAIL REFIL LOGIC 



8400 
8401 
8402 
8403 
8404 
8405 
8406 
8407 
8408 
8409 
8410 
841 1 
8412 
8413 
8414 
8415 
8416 
8417 
84 18 
8419 
8420 



; STILL . I F/KLPAGE 

; INDIRECT POINTER . CHANGE PAGE 

PTRIND: [BR] [ AR ] SWAP, 

SKIP/-1 MS 
=0 WORK [ SV . AR 1 ]_[ AR] , 

J/PFTICK 

[BR]_[BR] . AND. ft CLR LH , 
0/777, 
SKIP IRPT 
= E AR ]_[ AR ] . AND . # , 

#/277000, 
HOLD RIGHT, 
J/PF45 

PAGE FAIL TRAP 



AND LOOK FOR PAGE TABLE 
PUT IN RIGHT HALF 
DID CLOCK GO OFF 
YES- -UPDATE CLOCK 

UPDATE PAGE $ AND RESTART 
MASK FOR PAGE # 
SEE IF THIS IS A LOOP 
CHANGE INDIRECT POINTER 
INTO SHARE POINTER 



= 0+* 
PTRSHR : 



CALL [RDPT] 
TL [AR], 

0/77 



GO BACK 
POINTER 



;G0 LOOK 
;BITS 12- 



AND TRY 
LOOP 



AGAIN 



AT POINTER 

17 .EO. 07 



HERE WITH FINAL POINTER. SKIP IF 12-17 NOT EQUAL TO ZERO 



PF90: 



=0 



8421/^00 
8422( PF80: PAGE FAIL TRAP 
8423\' . IFNOT/NOCST 

8424 ^ [ ARX]_[AR] .AND. CLR LH , 

8425 #/3777, 

8426 pL CAL L. [UPC STj 

8427 f. END I F/NOCST *- 
8428 
8429 
8430 
8431 
8432 
8433 
8434 
8435 
8436 
8437 
8438 
8439 
8440 
8441 
8442 
8443 
8444 
8445 
8446 
8447 
8448 
8449 
8450 
8451 
8452 
8453 
8454 
8455 



; NO - -TAKE A TRAP 

;SAVE PHYSICAL PAGE 
; MASK TO 13 BITS 
; UPDATE CSTO . 



l^ENDIF/NOCSl 

There we have cst entry in ar, 
; at writable and written bits 

[BRX]_[BRX] .0R.#, 
#/ 100000, HOLD RIGHT 
TL [ FLG ] , FLG.W/1 
[BRX]_[BRX] .0R.#, 
#/020000, 
J/PF 100 
TL [BRX], 

WRITE TEST/1, WRITE CYCLE/1 
PAGE FAIL TRAP ; WRITE VIOLAT 



PAGE FAIL WORD IN BRX 



TRANSLATION 

IS THIS PAGE 
YES- - INDICAT 



I — o 

tM££ h&ife 

GO LOOK 



;NOT WRITE 
; IS THIS A 



VI 
WR 



= 
PF 107 : 

. IFNOT/NOCST 

[ AR ]_[ AR ] 
J/PF 1 10 

'. ENDI F/NOCST 

. I F/NOCST 

PFDONE: TR [FLG], 
§/ 400000, 
J/PF 140 

. ENDI F/NOCST 
f 

=0* 

PFTICK : 



OR . WORK [ PUR ] , 



;PUT IN NEW A 
;G0 TO STORE 



( |js. «]*T i<0<> 



[AR]_W0RK[TIME1 ] , ; UPDATE TIMER 

SPEC/CLRCLK, CALL [TOCK] 
[ AR ]_WORK [ SV . AR 1 ] , ; RESTORE AR 

J/PTRIND ;G0 TRY AGAIN 



JLdL 

7 I <V«>i!-f 



) 



5t* 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 31(254) KS10 MICROCODE V124, 27-JUL-84 Page 233- 

PAGEF . MIC [ 10, 1 141 ] 12:32 26- JULY- 1984 PAGE FAIL REFIL LOGIC 



8456 



o 

; T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

; PAGEF.MIC[ 10, 1 141 ] 12 : 32 . 26-JULY- 1984 

U 3762, 2606,4553,0600,4374,4007,0321 ,0000,0001 ,0000 

U 2606, 2614,3551,0303,4370,4007,0700,0000,0000,0001 
U 2607, 2614,4553,0300,4374,4007,0331,0000,0000,0001 

U 2614, 2605,3551,0606,4374,0007,0700,0000,0004,0000 
U 2615, 2605 ,5551,1313,4374, 0007 , 0700 , 0000 , 0002 , 0000 



U 2613, 2634 , 3773 , 0000 , 7274 , 4007 , 0622 , 00 10 , 0000 , 02 1 6 



31(254) KS10 MICROCODE V124, 27-JUL-84 Page 234 
PAGE FAIL REFIL LOGIC 



8457 ;STILL . I F/KLPAGE 

8458 ; HERE IF PAGE IS WRITABLE 

8459 -PF100: TL [BRX] , WRITE CYCLE/1 ;IS THIS A WRITE REF? 

8460 =0 C AR ]_[ AR ] . OR . # , ;YES--SET WRITTEN BIT 
8461 

8462 HOLD LEFT, 

84.63 J/PF105 

8464 TR [AR], ; NOT WRITE, ALREADY WRITTEN? 

8465 #/1 

8466 =0 

8467 PF105: [BRX ]_[BRXj.OR„#, ; WRITTEN SET BIT 

8468 #/040000, ; MARK PAGE AS 

8469 HOLD RIGHT, ; WRITABLE 

8470 J/PF107 ; STORE CST WORD 

8471 [ FLG }_[ FLG ] . AND . NOT . # , ;NOT WRITTEN, CAUSE TRAP ON 

8472 FLG.W/1, ; WRITE ATTEMPT 

8473 HOLD RIGHT, ; ONLY CLEAR LH 

8474 J/PF107 
,8475 . IFNOT/NOCST 

8476 =0** 

8477 PF110: 

;8478 . IFNOT/INHCST 

;8479 START NO TEST WRITE, 

;8480 CALL [IBPX] ; STORE CST ENTRY 

8481 . ENDI F/ INHCST 

8482 .IF/INHCST 

8483 SKIP NO CST, 

8484 CALL [WRCST] 

8485 . ENDI F/INHCST 
8486 

8487 . ENDI F/KLPAGE 
8488 



T10KL.MCR[ 10, 1141] 
PAGEF . MIC [ 10, 1141] 



15:34 27 -JULY -1984 
12:32 26-JULY-1984- 



MICRO 



U 2617, 2620,4553,1300,4374,4007,0331,0000,0040,0000 

U 2620, 2622,3441,0403,4174,4007,0700,2000,0071,0007 

U 2621, 3767,3771,0003,7274,4007,0701,0000,0000,0210 

U 2622, 2622,3445,0303,4174,4007,0630,2000,0060,0000 



U 2623, 3763,4551,0303,4374,0007,07OO,000O,00O0,0003 
U 3763, 3764,4221,0013,4170,4007,0700,0000,0000,0000 



U 3764, 3765,3551,0606,4374,0007,0700,0000,0010,0000 

U 3765, 2624,4553, 1300,4374,4007,0321 ,0000,0000,4000 

U 2624 , 2625 ,3551, 0606 , 4374 , 0007 , 0700 , 0000 , 0000 , 2000 

U 2625 , 3766 ,4551, 0606 , 4370 , 4007 , 0700 , 0000 , 0000 ,0777 

U 3766 , 1 500 ,3111, 0603 ,4174, 4003 , 7700 , 0200 , 0003 , 000 1 



r : 



254) KS10 MICROCODE V124, 27-JUL-84 Page 235 
PAGE FAIL REFIL LOGIC 

8489 

8490 ; HERE WHEN WE HAVE FIGURED OUT PHYSICAL ADDRESS (IN ARX) AND FLAGS 

8491 ; (IN BRX) RELOAD PAGE TABLE. 

8492 PFDONE: TR [ FLG] , ;MAP INSTRUCTION? 

8493 #/400000 

8494 . ENDI F/NOCST 

8495 =0 

8496 PF140: [ AR ]__[ ARX ] , ; GET PHYSCIAL PAGE # 

8497 SC_7, ; PREPARE TO CONVERT TO 

8498 J/PF130 ; WORD ADDRESS 

8499 [AR]_WORK[SV. VMA] , ; RESTORE VMA 

8500 J/PF120 

8501 =0 

8502 PF130: [AR]_[AR]*2, ;CONVERT TO WORD # 

8503 STEP SC, 

8504 J/PF130 

8505 [AR]^JAR] . AND . # , ; JUST ADDRESS BITS 

8506 #/3, 

8507 HOLD RIGHT 

8508 END MAP ; CLEAR MAP FLAGS 

8509 [BRX]_[BRX] . OR . # , ; TURN ON THE TRANSLATION 

8510 #/100000, ; VALID BIT 

8511 HOLD RIGHT ; IN LEFT HALF ONLY 

8512 TL [FLG], FLG.C/1 ;CACHE BIT SET? 

8513 =0 [BRX]__[BRX] .0R.#, ;YES~-SET IN MAP WORD 
6514 0/002000, HOLD RIGHT ; . . 

8515 [BRX]_[BRX] . AND . # , ; PRESERVE WORD # 

8516 U/lll , HOLD LEFT ; IN PAGE FAIL WORD 

8517 [AR]_JAR] .OR. [BRX] , ; COMPLETE MAP INSTRUCTION 

8518 EXIT 
8519 



V 



; T10KL.MCR[ 10, 1141] 15:34 27-JULY- 1984 MICRO 

; PAGEF.MICl 10, 1141] 12:32 26- JULY - 1 984 

U 3767, 3770,3441,0305,4174,4007,0700,0000,0000,0000 



U 3770, 3771 , 555 1 , 0305 , 4374 , 0007 , 0700 , 0000 , 0007 , 0000 

U 3771 , 3772,3443,0500,4174,4007,0701 ,0200,0000,0030 

U 3772 , 3773 , 425 1 , 0404 , 4374 , 4007 , 0700 , 0000 , 0000 ,3777 

U 3773, 3774,3551,0406,4374,4007,0700,0000,0040,0000 

U 3774, 2626,4553, 1300,4374,4007,0321 ,0000,0002,0000 

U 2626, 2627,3551,0606,4374,4007,0700,0000,0004,0000 

U 2627, 2630,4553, 1300,4374,4 147,0321 ,0000,0000,4000 



U 2630 , 3775 , 355 1 , 0606 ,4374 , 4007 , 0700 , 0000 , 0002 , 0000 

U 2631, 3775,3333,0006,4174,4007,0700,0000,0000,0000 

U 3775, 3776,3771 ,0004,7274,4007,0701 ,0000,0000,0212 

U 3776, 1435,3771 ,0005,7274,4007,0701 ,0000,0000,0213 

U 1435, 1500,3771 ,0006,7274,4007,0701 ,0000,0000,0214 



U 1500, 1501 ,3443,0300,4174,4007,0701 ,0200,0000,0032 



U 1501, 0000,3771,0003,7274,4004,1701,0000,0000,0211 



254) 



KS10 MICROCODE V124, 27-JUL-84 
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Page 236 



8520 
8521 
8522 
8523 
8524 
8525 
8526 
8527 
8528 
8529 
8530 
8531 
8532 
8533 
8534 
8535 
8536 
8537 
8538 
8539 
8540 
8541 
8542 
8543 
8544 
8545 
8546 
8547 
8548 
8549 



PF120: 



PF125: 



[BR]_[AR] 

[BR]_[AR] . AND . NOT . # , 
READ CYCLE/1 , 
WRITE CYCLE/1 , 
WRITE TEST/1 , 
HOLD RIGHT 
VMA_[ BR ] , 3T, 
DP FUNC/1 

[ARX]_[ARX] . AND . # CLR LH 

#/3777 

[BRX]_[ARX] .0R.#, 
TL [FLG], FLG.W/1 
[BRX]_[BRX] .0R.#, 
TL [FLG], FLG.C/1 
LOAD PAGE TABLE 



COPY PAGE FAIL WORD 

CLEAR BITS WHICH START A CYCLE 



JUST DO LEFT HALF 
RESTORE VMA 

SET USER ACCORDING TO WHAT IT WAS 
;JUST KEEP PAGE ft 



[BRX]_[BRX] .OR. #, 

#/020000, J/PF125 

READ [BRX] 

[ ARX ]_WORK [ SV . ARX 

[BR]_WORK[SV.BR] 

[BRX]_WORK[SV.BRX 

VMA_[ AR ] , 

DP FUNC/1 , 3T, 

WAIT/1 



[ AR ]_WORK [ SV . AR ] \ 
RETURN [O] 



#/400000 ;SET VALID BITS 

; WANT WRITE SET? 
#/040000 ;SET WRITE BIT 
WANT CACHE SET? 
LOAD PAGE TABLE ON NEXT 

MICRO INSTRUCTION 
SET CACHE BIT 
CACHE BIT 
LOAD PAGE TABLE 



MAKE MEM REQUEST 

FROM DATA PATH 

WAIT FOR PREVIOUS CYCLE TO 
COMPLETE. (NEED THIS TO 
START ANOTHER CYCLE) 



T10KL.MCRC 10, 1 141] 
PAGEF . MIC[ 10, 1141] 



15:34 27-JULY-1984 
12:32 26-JULY-1984 



MICRO 



U 1 502 , 1 1 50 , 3773 , 0000 ,7274, 4007 , 0622 , 0000 , 0000 , 02 1 6 

U 1 150, 1511 ,0551 ,0303,7274,4007,0701 ,0010,0000,0216 

U 1151, 0002,4221,0003,4174,4004,1700,0000,0000,0000 

U 1 154, 2632,4553,0300,4374,4007,0321 ,0000,0077,0000 

U 2632, 0002,4551,0303,7274,4004,1701,0000,0000,0217 

U 2633, 2670,4553, 1300,4374,4007,0321 ,0000,0001 ,0000 



U 2634, 3Q70, 4443, 0000,4174, 4007,0700, 0200, 0001 ,0002 
U 2635, 0004,4443,0000,4174,4004,1700,0000,0000,0000 



254) KS10 MICROCODE V124, 27-JUL-84 Page 237 
PAGE FAIL REFIL LOGIC 

8550 . IF/KLPAGE 

8551 . IFNOT/NOCST 

8552 ; SUBROUTINE TO START CST UPDATE 

8553 ; CALL WITH: 

8554 ; AR/ PHYSICAL PAGE NUMBER 

8555 ; RETURN 2 WITH ENTRY IN AR, PAGE FAIL IF AGE TOO SMALL 
;8556 . IFNOT/INHCST 

;8557 =0** 

;8558 UPCST: [ AR ]__[ AR ] +W0RK [ CBR ] , ; ADDRESS OF CSTO ENTRY 

;8559 CALL [RDPT] ; READ OLD VALUE 

;8560 TL [AR] , ;0 - 5 = O? 

;8561 #/770000 ; 

;8562 =0 . [ AR ]_[ AR ]. AND . WORK [ CSTM] , ; CLEAR AGE FIELD 

;8563 RETURN [2] ; AGE IS NOT ZERO 

;8564 PAGE FAIL TRAP ; AGE TOO SMALL 

8565 . ENDIF/INHCST 

8566 . IF/INHCST 

8567 UPCST: SKIP NO CST ;SEE IF A CST IS PRESENT 

8568 =0*0 [AR]_jAR]+W0RK[CBR] , ;YES, ADDRESS OF CSTO ENTRY 

8569 CALL [RDPT] ; READ OLD VALUE 

8570 [AR]_0, RETURN [2] ; NO CST, RETURN 

8571 TL [AR], ;CHECK AGE FIELD 

8572 #/770000 

8573 = 

8574 =0 [AR]__[AR] .AND. WORK[CSTM] , ; CLEAR AGE FIELD 

8575 RETURN [2] ; AGE IS NOT ZERO 

8576 PAGE FAIL TRAP ; AGE TOO SMALL 
8577 

8578 =0 

8579 WRCST: START NO TEST WRITE, 

8580 J/IBPX 

8581 RETURN [4] 

8582 .ENDIF/INHCST 

8583 . ENDI F/NOCST 
8584 



T10KL. !WtrR[ 10, 1 141 ] 
PAGEF . MIC [ 10, 1 141 ] 



15:34 27-JULY-1984 
12:32 26-JULY-1984 



MICRO 



U 1 503 , 1 507 , 355 1 , 0304 , 4374 , 4007 , 0700 , 0000 , 0075 ,3777 
U 1507, 1510,41 1 1 ,0413,4174,0007,0700,0000,0000,0000 
U 1510, 2636,3333,0003,4174,4007,0520,0000,0000,0000 



U 2636, 2640,4553,0300,4374,4007,0321,0000,0030,0000 
U 2637, 2670,4553, 1300,4374,4007,0321 ,0000,0001 ,0000 



U 2640 , 2642,4553, 0300 , 4374 , 4007 , 032 1 , 0000 , 00 1 , 0000 
U 2641, 2670,4553,1300,4374,4007,0321,0000,0001,0000 



U 2642 , 2644 , 4553 , 0300 , 4374 , 4007 , 032 1 , 0000 , 0020 , 0000 
U 2643, 0002,4443,0000,4174,4004,1700,0000,0000,0000 



U 2644, 
U 2645, 



0003 , 4443 , 0000 ,4174, 4004 , 1 700 , 0000 , 0000 , 0000 
OOO 1 , 4443 , 0000 ,4174, 4004 , 1 700 , 0000 ,0000 , 0000 



254) 
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8585 
8586 
8587 
8588 
8589 
8590 
8591 
8592 
8593 
8594 
8595 
8596 
8597 
8598 
8599 
8600 
8601 
8602 
8603 
8604 
8605 
8606 
8607 
8608 
8609 
8610 
861 1 
8612 
8613 
8614 
8615 
8616 
8617 



STILL . I F/KLPAGE 

SUBROUTINE TO LOOK AT PAGE POINTER 
CALL WITH POINTER IN AR 
RETURNS 1 IF TYPE 1 
RETURNS 2 IF TYPE 2 
RETURNS 3 IF TYPE 3 

GOES TO PFT IF TYPE O OR 4 THRU 7 
SETPTR: [ ARX ]_[ AR ] . OR . # , ; AND 

#/753777 ; OF 

[ FLG ]_[ FLG] .AND. [ARX] , 
HOLD RIGHT ; KEEP 

READ [AR], ; TYPE 

SKIP DPO 
=0 TL [AR], 

Ul 300000, 
J/STPTR1 
PAGE FAIL TRAP 



=0 

STPTR1 : 



= 

STPTR2: 



=0 

STPTR3: 



TL [AR], 

#/ 100000, 

J/STPTR2 

PAGE FAIL TRAP 



TL [AR], 
#/ 200000, 
J/STPTR3 
RETURN [2] 



RETURN 
RETURN 



[3] 
[1] 



C AND W BITS 
ALL POINTERS 



IN LH OF 
4,5,6 OR 



FLG 
7? 



HERE WE TEST FOR TYPE 

ZERO POINTER 
CHECK AT STPTR1 
BAD TYPE 



NOT ZERO 
SEPERATE TYPE 2 

TYPE O 



SEPERATE TYPE 
AND 3 



TYPE 2 



; TYPE 3 
: TYPE 1 



; T10KL.MCR[ 10, 1 141 ] 15:34 27- JULY- 1984 . MICRO 

; PAGEF.MICE 10, 1141] 12:32 26- JULY- 1984. 



U 1511, 2646,3443,0300,4174,4007,0370,0200,0024,1016 

U 2646, 0004,3771,0003,4365,5004,1700,0200,0000,0002 
U 2647, 2670,4553,1300,4374,4007,0321,0000,0001,0000 



U 2650 , 0007 , 4443 , 0000 ,4174, 4004 , 1 700 , 0000 , 0000 , 0000 

U 265 1 , 1512, 744 1 , 1 303 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 1512, 2652, 4553, 0300 , 4374 , 4007 , 032 1 ,0000 , 0002 , 4000 

U 2652, 0007,4443,0000,4174,4004,1700,0000,0000,0000 

U 2653, 0002,4443,0000,4174,4004,1700,0000,0000,0000 



254) 



KS10 MICROCODE V124, 27-JUL-84 Page 239 
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8618 
8619 
8620 
8621 
8622 
8623 
8624 
86£5 
86.26 
8627 
8628 
8629 
8630 
8631 
8632 
8633 
8634 
8635 
8636 
8637 
8638 
8639 
8640 
8641 
8642 
8643 
8644 
8645 



STILL . I F/KLPAGE 

SUBROUTINE TO FETCH A PAGE POINTER OR CST ENTRY 
CALL WITH ADDRESS IN AR 
RETURN 4 WITH WORD IN AR 



RDPT: VMA_T AR ] , 

START READ, 
VMA PHYSICAL, 
SKIP IRPT 

=0 MEM READ, 

[AR]__MEM, 
RETURN [4] 
PAGE FAIL TRAP 



LOAD THE VMA 
START MEM CYCLE 
ABSOLUTE ADDRESS 
CHECK FOR INTERRUPTS 
NO INTERRUPTS 
PUT THE DATA INTO AR 
AND RETURN 
INTERRUPT 



SUBROUTINE TO SEE IF WE SHOULD REMEMBER AN EXEC SECTION PTR 
CALL WITH SKIP ON ADR.EQ.O 

RETURNS 2 IF WE SHOULD STORE AND 7 IF WE SHOULD NOT 



=0 

SHDREM: 



RETURN [7] ; INDIRECT PTR 

[ AR ]_. NOT . [ FLG ] ;FLIP BITS 

TL [AR], FLG.W/1, FLG.C/1 ; BOTH BITS SET 

RETURN [7] ;NO--DON'T STORE 

RETURN [2] ; STORE 



. ENDI F/KLPAGE 



n 

T10KL.MCR[ 10, 1 141 ] 
PAGEF.MIC[ 10, 1141] 



15:34 27-JULY-1984 MICRO 
12:32 26-UULY-1984 



254) 



;8646 
;8647 
;8648 
;8649 
;8650 
;8651 
;8652 
;8653 
;8654 
;8655 
;8656 
;8657 
;8658 
;&659 
;S660 
;866 1 
;8662 
;8663 
;8664 
;8665 
;8666 
;8667 
;8668 
;8669 
;8670 
;8671 
;8672 
;8673 
;8674 
;8675 
;8676 
;8677 
;8678 
; 8679 
;8680 
;8681 
;8682 
;8683 



K510 MICROCODE V124, 27-JUL-84 
PAGE FAIL REFIL LOGIC 



Page 240 



. I F/KI PAGE 

; HERE IN KI10 MODE 

; BR CONTAINS PAGE # AND ARX CONTAINS PAGE 



#/2 



KIFILL : 



KIUPT: 



=0 

KIF10: 



=0 

KIEPT: 



KIF30: 



READ [ BRX ] , 
SKIP DPO 
[BR]-#, 
#/340, 

SKIP DP18, 4T, 
J/KIF10 

[ARX]_[ARX]+[UBR] , 
LOAD VMA , 
VMA PHYSICAL, 
START READ, 
J/KIF30 

[BR]-#, 
#/400, 

SKIP DP18, 4T ; 
J/KIEPT 

[ARX]_[ARX]+#, 3T, 

#/600, 

U/KIEPT 



[ARX]_[ARX] + [EBR] , 

LOAD VMA , 

START READ, 

VMA PHYSICAL, 

J/KIF30 

[ARX]_[ARX]+#, 

#/220, 3T, 

J/KIUPT 

MEM READ, 

[ ARX ]_MEM 

TR [BR], 

#/1 



USER REF? 

EXEC - - LESS THAN 340? 



FOLLOW EXEC PATH 

POINTER TO PAGE MAP ENTRY 

PUT ADDRESS IN VMA 

ABSOLUTE ADDRESS 

FETCH UPT WORD 

JOIN COMMON CODE 

EXEC ADDRESS .GE. 340 
SEE IF .GT. 400 

LOOK AT KIF20 

EXEC ADDRESS . LT . 340 

IN EBR+600 • 

JOIN COMMON CODE 



ADD OFFSET TO 

EPT 
START FETCH 
ABSOLUTE ADDRESS 
GO GET POINTER 
PER PROCESS PAGE 

IS IN UPT + 400 
JOIN COMMON CODE 
WAIT FOR DATA 
PLACE IT IN ARX 
SEE IF EVEN OR ODD 



T10KL.MCR[ 10, 1141] 
PAGEF .MICC 10, 1141} 



15:34 27-JULY-1984 
12:32 26-JULY-1984 



MICRO 



U 2654, 2670,4553,1300,4374,4007,0321,0000,0001,0000 



U 2655 , 1513,5551,1313, 4374 , 4007 , 0700 , 0000 , 0002 , 4000 

U 1513, 2656 , 4553 , 0400 , 4374 , 4007 , 033 1 , 0000 , 0002 , 0000 

U 2656, 2657,3551 , 1313,4374,0007,0700,0000,0000,4000. 

U 2657 , 2660 , 4553 , 0400 , 4374 , 4007 , 033 1 , 0000 , 0004 , 0000 



U 2660, 2661 ,3551 ,0606,4374,0007,0700,0000,0002,0000 

U 2661 , 2662,4553,0400,4374,4007,0331 ,0000,0010,0000 

U 2662, 1562,3551 , 1313,4374,0007,0700,0000,0002,0000 

U 2663, 2664,4553,0600,4374,4007,0321 ,0000,0001 ,0000 



U 2664 , 2654,3551, 0606 , 4374 , 0007 , 0700 , 0000 , 00 1 , 0000 
U 2665 , 26 1 7 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 



U 1562, 2617, 355 1 , 0606 , 4374 , 4007 , 0700 , 0000 , 0004 , 0000 



254) 
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;8684 ;STILL . IF/KIPAGE 

;8685 =0 

;8686 KIF40: READ [ ARX ] , ; ODD 

;8687 SKIP DP18, ;SEE IF VALID 

;8688 J/KIF50 ;UOIN COMMON CODE 

;8689 . [ARX]__[ARX] SWAP , ;EVEN--FLIP AROUND 

;8690 J/KIF40 ; AND CONTINUE 

;8691 

8692 . ENDI F/KI PAGE 

8693 =0 

8694 KIF50: PAGE FAIL TRAP 

8695 ; AT THIS POINT WE HAVE THE PAGE MAP ENTRY IN RH OF AR 

8696 [FLG]__[FLG] . AND . NOT . # , ; CLEAR W AND C 

8697 FLG.W/1, FLG.C/1 ; FLAGS 

8698 TR [ARX], #/020000 ; CACHE ENABLED? 

8699 =0 [ FLG ]_[ FLG ] . OR . # , ;SET CACHE BITS 

8700 FLG.C/1, HOLD RIGHT ; .. 

8701 TR [ARX], #/040000 ;D0 NOT CACHE 

8702 . ;SEE IF CACHE BIT SET 

8703 =0 [BRX]__[BRX] .OR. ; COPY BITS TO BRX 

8704 */020000, 

8705 HOLD RIGHT 

'8706 TR [ARX] , ; . . 

8707 #/ 100000 

8708 =0 [FLG] [FLG].OR.#, ; SAVE W 

8709 FLG. W/1 , ; . . 

8710 HOLD RIGHT, ; • ; . . 

8711 J/KIF90 ; ALL DONE 

8712 TL [BRX], ;W=0, WRITE REF? 

8713 WRITE CYCLE/1 

8714 =0 

8715 KIF80: [ BRX ]_[ BRX ] . OR . # , ;WRITE FAILURE 

8716 #/ 100000, HOLD RIGHT, ; INDICATE THAT ACCESS WAS ON 

8717 J/KIF50 ;G0 PAGE FAIL 

8718 J/PFDONE ; ALL DONE 
8719 

8720 KIF90: [ BRX ]_J BRX ] . OR . H , ; PAGE IS WRITABLE 

8721 #/40000, ; TURN ON IN BRX 

8722 J/PFDONE ; ALL SET 
8723 



/ 



o. 



T 1 0KL . MCR [10,1141] 15:34 27-JULY-1984 MICRO 

PAGEF.MIC[ 10, 1 141 ] 12:32 26-JULY-1984 



U 1 563 , 2666 , 3333 , 0005 ,7174, 4007 , 0700 , 0400 , 0000 , 02 1 3 

U 2666 , 1 575 , 377 1 , 0005 , 4354 , 4007 ,0700 , 0010, 0000 , 0000 

U 2667, 1564,4551 ,0505,4374,0007,0700,0000,0040, 1237 

U 1564, 2654,3111,0506,4174,4007,0700,0000,0000,0000 

U 1572, 1144, 4443 , 0000 ,4174 ,4007 , 0370 , 0000 , 0000 , 0000 



U 1144, 3574,3771,0003,7274,4117,0701,0010,0000,0301 
U 1145, 2671,4443,0000,4174,4007,0700,0000,0000,0000 
U 1 1 46 , 1 573 , 4223 , 0000 , 4364 , 4277 , 0700 , 0200 , 0000 , 00 1 



U 1573, 3775,3771 ,0003,7274,4007,0701 ,0000,0000,0210 



U 1575, 0001,4223,0000,4364,4274,1700,0200,0000,0010 



254) 



8724 
8725 
8726 
8727 
8728 
8729 
8730 
8731 
8732 
8733 
8734 
8735 
8736 
8737 
8738 
8739 
8740 
8741 
8742 
8743 
8744 
8745 
8746 
8747 



KS10 MICROCODE V124, 27-JUL-84 
PAGE FAIL REFIL LOGIC 



Page 242 



; HERE ON HARD PAGE FAILURES 
HARD : W0RK[5V.BR]_[BR] 
=0 [BR]_VMA, 

CALL [ABORT] 

[BR ]_[ BR ] . AND . # , 

#/401237, 

HOLD RIGHT 

[BRX]_JBRX] .OR. [BR] , 

J/KIF50 



SAVE BR (CLEANUP MAY NEED IT) 
BUILD PAGE FAIL WORD 
CLEAR ERROR 
SAVE THE FLAGS 



COMPLETE PAGE FAIL WORD 
GO TRAP 



PFPI 1 
=00 



PFPI 2 : 



SKIP IRPT 

[AR]_W0RK[TIME1 ] , 
SPEC/CLRCLK, 
CALL [TOCK] 
J/PFT1 

ABORT MEM CYCLE 

[AR]_WORK[SV. VMA] , 
J/PF125 



; TIMER TRAP? 

YES- -GET LOW WORD 
CLEAR CLOCK FLAG 
DO THE UPDATE 
EXTERNAL INTERRUPT 
CLEAR 1MS FLAGS 

; RESTORE VMA 



ABORT: ABORT MEM CYCLE, RETURN [1] 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 

PAGEF . MIC[ 10, 1141] 12:32 26-JULY-1984 



U 2670, 0104,4751,1217,4374,4007,0700,0000,0000,0100 

U 2671, 2672,3771,0003,7274,4007,0611,0000,0000,0210 

U 2672, 2674,4553,0300,4374,4007,0321,0000,0010,0000 

U 2673, 1602,3771 ,0003, 7274., 4007, 0701 ,0000,0000,0425 

U 1602 , 2676 , 3333 , 0003 , 4 1 74 , 4467 , 0700 , 0000 , 0000 , 0004 

U 2674 , 1 100 , 4443 , 0000 ,4174, 4007 , 0700 , 0000 , 0000 , 0000 

U 2675, 2676, 1 1 1 1 ,0701 , 4170, 4007 ,0700, 4000,0000,0000 

U 2676, 1100,3333,0013,4174,4003,5701,0000,0000,0000 



U 1100, 2700,4221,0013,4170,4007,0370,0000,0000,0000 

U 1101 , 3162,3771 ,0003,7274,4007,0701 ,0000,0000,0212 

U 1 102, 1604,01 1 1 ,0701 ,4174,4007,0700,0000,0000,0000 

U 1103, 3477,3771,0013,4370,4007,0700,0000,0000,0011 

U 1 104 , 3477 , 377 1 , 00 1 3 , 4370 , 4007 , 0700 , 0000 , 0000 , 00 1 2 

U 1 1 05 , 2326 , 377 1 , 00 1 3 , 4370 , 4007 , 0700 , 0000 , 0000 , 0003 

U 1 1 06 , 3506 , 377 1 , 00 1 3 , 4370 , 4007 , 0700 , 0000 , 0000 , 00 1 2 

U 1107, 3503,3771 ,0013,4370,4007,0700,0000,0000,001 1 

U 1110, 3475,3771,0013,4370,4007,0700,0000,0000,0011 

U 1111, 2324,4221 , 001 3 , 4 1 70, 4007 , 0700 , 0000 , 0000 , 0000 

U 1112, 2326,4221,0013,4170,4007,0700,0000,0000,0000 

U 1113, 2326 , 377 1 , 00 1 3 , 4370 , 4007 , 0700 , 0000 , 0000 , 00 1 1 



254) KS10 MICROCODE V124, 27-JUL-84 
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8748 ; HERE ON PAGE FAIL TRAP 

8749 =0 

8750 PFT: HALT [IOPF] ; 10 PAGE FAILURE 

8751 PFT 1 : [ AR ]_WORK [ SV . VMA ] , 

8752 SKIP/TRAP CYCLE ;SEE IF TRAP CYCLE 

8753 =0 TL CAR], FETCH/1, ;IS THIS AN INSTRUCTION FETCH 

8754 J/PFT1A ; GO LOOK BELOW 

8755 [AR]_WORK[TRAPPC] ; RESTORE PC 

8756 READ [AR], LOAD FLAGS, J/CLDISP 

8757 =0 

8758- PFT 1 A : J/ CLEANED ;YES--NO PC TO BACK UP 

8759 FIXPC: [PC]_[PC]~1, HOLD LEFT ; DATA FA I LURE - -BACKUP PC 

8760 =0 

8761 CLDISP: CLEANUP DISP ; GO CLEANUP AFTER PAGE FAIL 

8762 =0000 

8763 CLEANUP: 

8764 CLEANED: ; (O) NORMAL CASE 

8765 END STATE, SKIP IRPT, ; NO MORE CLEANUP NEEDED 

8766 J/PFT2 ; HANDLE PAGE FAIL OR INTERRUPT 

8767 [ AR ]__WORK[ SV . ARX ] , ;(1) BLT 

8768 J/BLT- CLEANUP 

8709 [PC]_[PC]+1 , ; (2) MAP 

8770 J/MAPDON 

8771 STATE__[EDIT-SRC] , ;(3) SRC IN STRING MOVE 

8772 J/STRPF 

8773 STATE_[ EDIT-DST ] , ;(4) DST IN STRING MOVE 

8774 J/STRPF 

8775 STATE_[SRC], ;(5) SRC+DST IN STRING MOVE 

8776 J/BACKD 

8777 STATE_[ EDIT-DST ] , ;(6) FILL INMOVSRJ 

8778 J/STRPF4 

8779 STATE__[EDIT-SRC] , ;(7) DEC TO BIN 

8780 J/PFDBIN 

8781 STATE__[EDIT-SRC] , ; ( 10) SRC+DST IN COMP 

8782 J/CMSDST 

8783 END STATE, J/BACKS ; ( 1 1 ) EDIT SRC FAIL 

8784 END STATE, J/BACKD ;(12) EDIT DST FAIL 

8785 STATE__[EDIT-SRC] , ;(13) SRC+DST IN EDIT 

8786 J/BACKD 

8787 = \ 

8788 \ 



T10KL.MCR[ 10, 1141] 
PAGEF . MIC[ 10, 1141] 



15:34 27-UULY-1984 
12:32 26-JULY-1984 



MICRO 31(254) KS10 MICROCODE V124, 27-JUL-84 Page 244 



U 2700, 1603,0551 , 1 103 , 4374 , 4007 , 0701 , 0000 , 0000 , 0500 

U 2701, 0770,3551,1313,4374,0007,0700,0000,0001,0000 

U 1603, 2702,3443,0300,4174,4007,0700,0200,0021 ,1016 

U 2702 , 1 606 , 3333 , 0006 ,4175, 5007 , 070 1 , 02 10 , 0000 , 0002 



U 2703, 2706,4521,1205,4074,4007,0700,0000,0000,0000 



U 1604, 2704,4221,0013,4170,4007,0370,0000,0000,0000 

U 2704 , 1 500 , 344 1 , 0603 ,4174, 4003 , 7700 ,0200 , 0003 , 000 1 
U 2705, 2701,1111,0701,4174,4007,0700,4000,0000,0000 





PAGE FAIL REFIL LOGIC 




8789 


=0 




8790 , 


PFT2: [ AR ]__[UBR ] + # , 


;PREPARE TO STORE PFW 


879 1 


#/500, 3T , 




8792 


J/PFT10 




8793 


PFT3: TAKE INTERRUPT 


;PROCESS INTERRUPT 


8794 


PFT10: VMA_[AR], 


; WHERE TO STORE PFW 


8795 


VMA PHYSICAL WRITE 




8796 


=0 MEM WRITE , 


; STORE PFW 


8797 


MEM__[BRX] , 




8798 


CALL LNEXTARJ 


; ADVANCE POINTER TO 


8799 




; PREPARE TO STORE PC 


8800 


. I F/KLPAGE 




; 8801 


. I F/KIPAGE 




; 8802 


TL [EBR], #/400000 


;KL PAGING? 


: 8803 


=0 




8804 


. ENDI F/KI PAGE 




8805 


[BR ]_FLAGS , J/EAPF 


;YES--DO EXTENDED THING 


8806 


. ENDI F/KLPAGE 




8807 






; 8808 


. I F/KI PAGE 




; 8809 


[BR]_PC WITH FLAGS 


;GET OLD PC 


; 88 10 


MEM WRITE, 


; STORE OLD PC 


; 88 1 1 


MEM_[BR ] , 




; 88 1 2 


J/EAPF 1 




88 1 3 


. ENDI F/KIPAGE 




88 14 






88 1 5 


MAPDON: END STATE, 


;CLEAR MAP BIT 


88 16 


SKIP IRPT 


; ANY INTERRUPT? 


8817 


=0 [AR] [BRX], 


; RETURN PAGE FAIL WORD 


'8818 


EXIT 




8819 


[PC] [PC]-1, d/PFT3 


; INTERRUPTED OUT OF MAP 


8820 




; RETRY INSTRUCTION 


8821 







T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 MICRO 31(254) 

PAGEF .MIC[ 10, 1 141 ] 12:32 26-UULY ~ 1984 



KS10 MICROCODE V124, 27-JUL-84 Page 245 
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U 2706 , 1 606 , 3333 , 0005 ,4175, 5007 , 070 1 , 02 1 O , 0000 , 0002 
U 2707 , 1 605 , 3333 , 000 1,4175, 5007 ,070 1 , 0200 , 0000 , 0002 



U 1605, 2736,0111,0703,4174,4007,0700,0200,0024,1016 
U 1606, 0001,0111,0703,4170,4004,1700,0200,0023,1016 



8822 
8823 
8824 
8825 
8826 
8827 
8828 
8829 
8830 
8831 
8832 
8833 
8834 
8835 



STORE FLAGS 
STORE PC WORD 



. I F/KLPAGE 
=0 

EAPF: MEM WRITE, MEM_[BR], 
CALL [NEXTAR] 
MEM WRITE, MEM_[PC] 

. ENDI F/KLPAGE 

EAPF 1 : [AR3„[AR]+1 , 

VMA PHYSICAL READ, 
J/GOEXEC 



NEXTAR: NEXT [AR] PHYSICAL WRITE, RETURN [1] 



Number of microwords used: 
D words= 512 

U words= 2032, Highest= 2047 



END 
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Cross 




L i s t i ng 












637 # 
























64 1 # 


2389 


2427 


2457 


2458 


252 1 


2569 


2577 


27 16 


27 18 


272 1 


2724 


2727 


2730 


28 14 


2824 


2839 


' 2856 


2866 


2876 


2886 


29 1 7 


2927 


2937 


2972 


2984 


299 1 


2995 


3005 


3006 


3008 


3010 


301 1 


3019 


3042 


3043 


3269 


3274 


3276 


3288 


329 1 


3294 


3299 


3300 


3370 


3387 


3389 


3454 


3457 


3525 


3526 


3532 


3552 


3579 


3594 


3630 


364 1 


3653 


3707 


3730 


3735 


3770 


38 1 4 


38 1 8 


3825 


3827 


3987 


3992 


4022 


4057 


407 1 


4087 


4098 


4101 


4 104 


4118 


4 145 


4 1 46 


4151 


4 168 


4 184 


4204 


4316 


4325 


4330 


4340 


4346 


4365 


4369 


4387 


44 1 5 


44 19 


442 1 


4422 


444 1 


4473 


4476 


4479 


4493 


45 18 


4535 


4536 


454 1 


4546 


4554 


4556 


4558 


4629 


4639 


464 1 


4646 


4647 


4692 


4697 


4707 


47 1 1 


4749 


4753 


4757 


4761 


4937 


4950 


5035 


5038 


5050 


5053 


5059 


5065 


5100 


5175 


5178 


5280 


5286 


5290 


5291 


5321 


5327 


5346 


5352 


5353 


5354 


5355 


5364 


5369 


5389 


5390 


5402 


5404 


5413 


5414 


5434 


5439 


5440 


5446 


5481 


5485 


5487 


5490 


5493 


5497 


5499 


5501 


5503 


5504 


5505 


5506 


5512 


5514 


5515 


5524 


5529 


5545 


557 1 


5579 


5584 


5586 


5630 


5643 


5662 


5671 


5675 


5690 


5704 


5706 


5708 


57 14 


574 1 


5748 


5751 


5763 


5766 


5774 


5776 


5780 


5785 


5787 


5803 


5808 


58 1 1 


5833 


5836 


5837 


584 1 


5959 


5963 


5967 


5974 


5985 


5994 


6009 


6029 


6033 


6046 


6049 


6075 


6 1 59 


6 166 


6183 


6205 


62 19 


6246 


6257 


6258 


6259 


6272 


6306 


6336 


6347 


6385 


6400 


6428 


6433 


6462 


6463 


6464 


6465 


6467 


6468 


647 1 


6476 


6525 


6546 


6553 


6554 


6580 


66 1 8 


6630 


663 1 


6638 


6658 


666 1 


6664 


6668 


6669 


667 1 


6675 


6677 


673 1 


6732 


6737 


6738 


6745 


6748 


6752 


682 1 


6843 


6849 


6868 


6886 


6890 


6893 


6894 


6895 


6896 


69 18 


6943 


6944 


6948 


6954 


6955 


6959 


7029 


7032 


7053 


7055 


7057 


7059 


7062 


7064 


7066 


7 102 


7 108 


7116 


7120 


7 123 


7141 


7147 


7149 


7 154 


7174 


7251 


7332 


7334 


7336 


7338 


7340 


7342 


7344 


7346 


7348 


7370 


7376 


7438 


7448 


7454 


7457 


7458 


7475 


7483 


7533 


7544 


7557 


7559 


7585 


7590 


7617 


7620 


7648 


7666 


7667 


7726 


7823 


7831 


7862 


8192 


8202 


8306 


8315 


8318 


8320' 


8322 


8326 


8329 


8340 


8346 


835 1 


8394 


8397 


8402 


8409 


8417 


8424 


8442 


8460 


8464 


8502 


8505 


8520 


852 1 


8542 


8568 


8571 


8574 


8592 


8598 


8603 


8609 


8623 


8640 


8753 


8794 




642 # 


2489 


277 1 


2772 


37 10 


37 1 2 


3725 


3754 


4084 


4096 


4 105 


4 106 


4123 


4126 


4128 


4150 


4 170 


4 186 


4206 


4209 


4229 


4358 


4386 


4438 


4464 


4465 


4544 


4636 


4637 


4645 


47 14 


4904 


49 1 1 


4912 


4940 


4943 


4964" 


5094 


5116 


5288 


5326 


5358 


5544 


5565 


5568 


5628 


5645 


5667 


5687 


5707 


5712 


5758 


5797 


5804 


6047 


6088 


6095 


6129 


6163 


6213 


6222 


6232 


6241 


6264 


6265 


6273 


6305 


6309 


6386 


6423 


6431 


6435 


6437 


6754 


6757 


6803 


6871 


6945 


7054 


7058 


7060 


7063 


7065 


7094 


7096 


7282 


7295 


7299 


7489 


7672 


7674 


7732 


7959 


8293 


8301 


8349 


8363 


8386 


8496 


8528 


8530 


8594 


8698 


8701 


8706 








643 # 


2188 


2385 


2420 


2422 


2426 


2907 


3038 


307 1 


3072 


3075 


3076 


3077 


3078 


3093 


3096 


3099 


3 102 


3 106 


3109 


3111 


3143 


3 144 


3147 


3 148 


3429 


3432 


3435 


3438 


344 1 


3444 


3447 


3450 


3775 


3780 


3808 


3833 


384 1 


3842 


3989 


3994 


4092 


4224 


4389 


439 1 


4399 


4403 


4466 


4469 


4543 


4547 


4548 


4549 


4552 


4557 


4588 


4730 


4732 


479 1 


4792 


4793 


4794 


4795 


4802 . 


48 1 1 


48 15 


4824 


4885 


4886 


4887 


4888 


4889 


4910 


4953 


4959 


5062 


5 102 


51 04 


5114 


5119 


5203 


5287 


5294 


5295 


5299 


5300 


5356 


5359 


5393 


5444 


5527 


555 1 


5553 


5563 


5577 


5656 


5674 


5677 


5913 


5925 


5926 


5928 


5929 


5956 


5965 


6010 


6015 


6040 


6043 


6134 


6199 


6202 


6203 


6216 


6224 


6230 


6353 


6363 


6374 


6383 


6387 


'6405 


6458 


6473 


651 1 


6522 


6589 


6845 


6846 


6887 


6888 


6928 


6936 


6947 


6951 


7028 


7031 


7051 


7085 


7087 


7090 


7132 


7140 


7153 


7155 


7180 


7181 


7188 


7139 


7195 


7250 


7261 


7268 


7337 


7339 


7341 


7347 


7349 


7385 


7398 


7495 


7518 


7519 


7520 


7561 


7563 


7591 


7595 
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1984 


MICRO 
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7597 


7601 


7603 


7627 




8731 








BRX 


644 n 


4120 


4148 


4154 




4294 


4298 


4375 


4428 


\ 


5137 


5161 


5246 


5249 




5653 


5654 


5696 


5917 




6289 


6302 


631 1 


6316 




6417 


6426 


6453 


6455 




6606 


6672 


6679 


6773 




7198 


7199 


7297 


7447 




8259 


8261 


8431 


8434 




8536 


8703 


8712 


8715 


EBR 


646 H 


6975 


7178 


7450 


FLG 


649 # 


3621 


5508 


5609 




5821 


6597 


8246 


8325 




8531 


8533 


8576 


8601 


HR 


640 # 


2289 


2295 


2301 




3529 


3538 


3541 


3543 




3627 


3640 


3919 


3921 




4037 


5915 


6908 


6985 




7014 


7015 


7016 


7019 




7240 


7335 


7651 


7665 


MAG 


638 ft 


2424 


4130 


4133 




4215 


4393 


441 1 


4433 




4627 


4628 


5223 


5224 


MASK 


648 # 


2150 


2151 


2152 




2257 


2260 


2263 


2266 




3663 


3943 


3960 


3983 




4559 


4771 


4891 


4902 




5632 


5722 


5791 


' 5880 




6131 


6133 


6155 


6270 




7431 


7432 


7433 


7434 




7629 


7635 


7652 


7708 


ONE 


645 n 


2180 


2184 


2229 




3420 


3487 


3501 


3527 




4321 


4736 


5033 


5101 




5448 


5523 


5672 


5830 




6100 


6135 


6136 


6178 




6370 


6380 


6384 


6388 




6695 


6818 


6819 


6825 




7722 


7847 


7933 


7940 




8834 








PC 


639 # 


2228 


2232 


2250 




3812 


3830 


4216 


4218 


PI 


650 # 


3592 


3593 


3607 




7421 


7422 


7423 


7424 


TO 


652 # 


4196 


4200 


4436 




5600 


5601 


5602 


5605 




6421 


7363 


7499 




T1 


653 # 


4413 


4553 


5219 




5705 








UBR 


647 # 


3945 


3985 


6967 


XWD1 


651 # 


3509 


3679 


7485 




1315 # 








DBLAC 


1319 


2775 
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7633 


7724 


8200 


8264 


8267 


8406 


8526 


8728 


4225 


4248 


4268 


4272 


4276 


4280 


4286 


4290 


4468 


4580 


4583 


4594 


5041 


5093 


5122 


5130 


5319 


5320 


5322 


5361 


5366 


5556 


5573 


5639 


6016 


6086 


6097 


6098 


6122 


6171 


6179 


6260 


6324 


6326 


6335 


6341 


6346 


6358 


6397 


6399 


6457 


6488 


6491 


6507 


6519 


6521 


6601 


6603 


6777 


6781 


6785 


6789 


6793 


6809 


7077 


7197 


7502 


7503 


7566 


7649 


8196 


8249 


8250 


8253 


8437 


8459 


8467 


8509 


8513 


8515 


8517 


8532 


8720 


8817 














7493 


8304 














5610 


5617 


5744 


5747 


5750 


5753 


5813 


5820 


8345 


8413 


8422 


8433 


8439 


8471 


8492 


8512 


8606 


8630 


8639 


8694 


8696 


8699 


8708 


8793 


2307 


2316 


2320 


2329 


2334 


2435 


2783 


2788 


3544 


3545- 


3564 


3568 


3578 


3583 


3586 


3606 


3923 


3925 


3927 


3929 


3931 


3933 


3939 


3959 


6991 


7000 


7001 


7002 


7006 


7007 


7008 


7009 


7020 


7021 


7022 


7023 


7024 


7025 


7026 


7218 


7794 


7803 


7805 


7807 


7809 


781 1 


7813 




4152 


4155 


4156 


4169 


4175 


4177 


421 1 


4213 


4437 


4440 


4481 


4483 


4484 


461 1 


4616 


4621 


5547 


5638 


5693 


5719 


5754 


5789 


5793 


5795 


2155 


2158 


2191 


2202 


2238 


2242 


2245 


2248 


2517 


2740 


2761 


2968 


3016 


3580 


3628 


3642 


3986 


4031 


4091 


4227 


4261 


4395 


4406 


4434 


5208 


5228 


5229 


5230 


5244 


5449 


5509 


5582 


5882 


5884 


5886 


5888 


5890 


5892 


5894 


5896 


6592 


7249 


7292 


7293 


7294 


7428 


7429 


7430 


7440 


7459 


7469 


7487 


7501 


7579 


7582 


7618 


7861 


8225 


8227 


8241 


8750 


8805 






2231 


2276 


2363 


2414 


2417 


2947 


3338 


3404 


3536 


3539 


3614 


3632 


3635 


3979 


4026 


4042 


5142 


5144 


5149 


5166 


5167 


5251 


5252 


5436 






ovJZo 


OU J 1 


CAE') 


cr\"~7 r\ 
t>U /u 


bUoU 


CAQQ 

ouyy 


6242 


6247 


6310 


6322 


6329 


6349 


6356 


6361 


6389 


6425 


6439 


6450 


6502 


6526 


6620 


6642 


6847 


6889 


6931 


7256 


7279 


7309 


7361 


7645 


7943 


7946 


7949 


7952 


8759 


8769 


8819 


8830 


2343 


2405 


2430 


3326 


3453 


3458 


3689 


3806 






oyo4 




/ 4 / I 


7CT3 






7010 


701 1 


7329 


7343 


7345 


7350 


7360 


7362 


"7/1 oc; 


/ 4zo 


1 A O *7 


1 A OC 










4447 


4454 


4457 


4459 


4460 


5564 


5572 


5598 


5613 


5616 


5618 


5658 


5724 


5732 


5733 


6354 


5221 


5225 


5240 


5243 


5588 


5673 


5676 


5695 


7113 


7135 


7187 


7194 


8296 


8790 







o ~ 
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; Cross Reference Listing 



DFP 


1325 


ft 


5534 


5535 


5623 


5684 
















DREAD 


1318 


ft 


2766 


2767 


4079 


4080 


4 163 


438 1 












DSHIFT 


1321 


ft 


2957 


2958 




















FP 


1323 


ft 


5260 


5261 


5262 


5263 


5265 


5266 


5268 


5269 


5270 


527 1 


5273 




5274 




5305 


5306 


5307 


5309 


53 1 1 


53 12 


5334 


5335 


5336 


5338 


5340 




5341 




5419 


5420 




















FPI 


1322 


ft 


5264 


5272 


5310 


5339 
















IOT 


1326 


# 


6996 


6997 


7204 


7525 


7526 


7527 


7528 


7536 


7537 


7538 


7539 




7550 




7551 


7552 


7553 


7818 


78 19 


8 188 












RD-PF 


1324 


ft 


2547 


2552 


2557 


2562 


2600 


2605 


26 10 


26 15 


2620 


2625 


2630 




2635 




2642 


2647 


2652 


2657 


2662 


2667 


2672 


2677 


2807 


28 17 


2827 




2832 




2849 


2859 


2869 


2879 


2899 


2910 


2920 


2930 


4050 


4064 


4112 




4137 




4304 


4309 




















READ 


1316 


ft 


2550 


2555 


2560 


2565 


2584 


2602 


2603 


2607 


2608 


26 13 


2618 




2623 




2628 


2633 


2638 


2644 


2645 


2649 


2650 


2655 


2660 


2665 


2670 




2675 




2680 


2809 


2810 


2819 


2820 


2829 


2830 


2834 


2835 


2842 


2851 




2852 




2861 


2862 


2871 


2872 


2881 


2882 


2901 


2902 


29 12 


2913 


2922 




2923 




2932 


2933 


3 186 


3 187 


3188 


3 189- 


3 190 


3191 


3202 


3203 


3204 




3205 




3206 


3207 


3208 


3209 


3220 


322 1 


3222 


3223 


3224 


3225 


3226 




3227 




3237 


3238 


3239 


3240 


3241 


3242 


3243 


3244 


3359 


3360 


336 1 




3362 




3363 


3364 


3365 


3366 


3376 


3377 


3378 


3379 


3380 


338 1 


3382 




3383 




3393 


3394 


3395 


3396 


3397 


3398 


3399 


3400 


3409 


34 10 


34 1 1 




3412 




3413 


3414 


34 15 


3416 


3647 


4052 


4053 


4066 


4067 


4114 


4115 




4139 




4140 


4306 


4307 


431 1 


4312 


4682 


4683 


4684 


4685 


4686 


5384 


SHIFT 


1320 


ft 


2952 


2953 


2954 


















WRITE 


1317 


ft 


2549 


' 2554 


2559 


2564 


2612 


2617 


2622 


2627 


2632 


2637 


2654 




2659 




2664 


2669 


2674 


2679 


2776 


2844 


2845 










ACALU 


1219 


ft 
























AC+N 


1221 


ft 


2173 


2174 


2181 


2371 


2383 


2489 


2772 


2781 


3022 


3043 


3087 




31 17 




4084 


4096 


4175 • 


4177 


4179 


4187 


4189 


4196 


4198 


4210 


421 1 




4212 




4213 


4214 


4215 


4327 


441 1 


4433 


4437 


4440 


4454 


4455 


4457 




4460 




4479 


4481 


4483 


4484 


4610 


46 1 1 


46 14 


4615 


46 16 


4619 


4620 




4621 




4627 


4628 


5547 


5638 


5691 


5693 


5699 


5758 


5766 


5804 


58 1 1 




5955 




5963 


5973 


5976 


6006 


6009 


6022 


6029 


6036 


6046 


6084 


6094 




6 1 14 




6129 


6 146 


6161 • 


6163 


6 189 


6 192 


6 194 


6201 


6202 


6203 


6205 




621 1 




6213 


6216 


6222 


6224 


6252 


6254 


6255 


6259 


6266 


6267 


6268 




6272 




6273 


6280 


6282 


6287 


6293 


6309 


6320 


6332 


634 1 


6347 


6358 




6361 




6363 


6367 


6380 


6386 


6387 


65 10 


654 1 


6546 


655 1 


6588 


6590 




6694 




6695 


6807 


6.8 1 4 


6821 


6840 


6842 


6849 


6869 


6890 


6926 


6928 




6934 




6936 


6940 


6943 


6948 
















B 


1220 


ft 
























ACDISP 


1346 


ft 


3516 


6996 


6997 


7204 
















ACN 


1222 


ft 


2371 


2383 


2489 


2772 


278 1 


3022 


3043 


3087 


3117 


4084 


4096 




4175 




4177 


4179 


4187 


4189 


4 196 


4 198 


42 10 


42 1 1 


4212 


4213 


42 14 




4215 




4327 


441 1 


4433 


4437 


4440 


4454 


4455 


4457 


4460 


4479 


4481 




4483 




4484 


4610 


461 1 


4614 


4615 


4616 


4619 


4620 


4621 


4627 


4628 




5547 




5638 


5691 


5693 


5699 


5758 


5766 


5804 


58 1 1 


6293 


6309 


6320 




6367 




6386 






















BINO 


1229 


ft 


2173 


6189 


621 1 


6216 


6224 


6255 


6266 


6267 


6268 


6272 


6280 


BIN1 


1230 


ft 


2174 


2181 


6161 


6163 


6192 


6194 


6201 


6202 


6203 


6205 


6213 




6222 




6252 


6254 


6259 


6273 


6282 














DLEN 


1226 


if 


5955 


5963 


5976 


6006 


6009 


6036 


6046 


6084 


6094 


6129 


6287 




6332 




6341 


6347 


6358 


6361 


6363 


6380 


6387 


6694 


6695 


6807 


6821 




6840 




6940 


6943 


6948 


















DSTP 


1227 


ft 


5973 


6146 


6541 


6546 


6590 


6814 


6869 


6890 


6934 


6936 





T10KL.MCR[ 10, 1 141 ] 



(U) AD 



MARK 

SRCLEN 

SRCP 



A+B 



A+0 

A-.25 

A-B-.25 

A-D- .25 
A-0-.25 
A . AND . B 



-UULY- 


1984 


MICRO 


3 1 ( 254 ) 


KS 10 


MICROCODE 


V124, 27- 


- JUL-84 


Page 


249 














Cross 


Reference 


L i st i ng 












1228 # 


6510 


6588 




















1224 # 
























1225 # 


6022 


6029 


6114 


6551 


6842 


6849 


6926 


6928 








534 # 


2155 


2 158 


2191 


2202 


2238 


2242 


2245 


2248 


2257 


2260 


2263 


2266 


2320 


25 17 


2738 


2740 


2759 


276 1 


3580 


3663 


3943 


3983 


403 1 


4395 


4406 


5221 


5880 


5882 


5884 


5886 


5888 


5890 


5892 


5894 


5896 


5926 


6155 


6270 


6592 


7249 


7292 


7293 


7294 


7428 


7429 


7430 


743 1 


7432 


7433 


7434 


7440 


7469 


7487 


7501 


7579 


7582 


7618 


7629 


7635 


7652 


7708 


786 1 


8225 


8227 


824 1 


8750 












563 # 


2150 


2 152 


2228 


2232 


2250 


2295 


2307 


2334 


2343 


2385 


2426 


2427 


2430 


• 2489 


252 1 


2772 


2788 


2972 


2984 


2991 


2995 


3005 


3006 


3008 


3010 


301 1 


3019 


3038 


3043 


307 1 


3072 


3075 


3076 


3077 


3078 


3093 


3096 


3099 


3 102 


3 106 


3 109 


3 143 


3 144 


3147 


3 148 


3300 


3326 


3389 


3429 


344 1 


3453 


3454 


3457 


3458 


3525 


3526 


3532 


3552 


3568 


3579 


3594 


3630 


3641 


3653 


3707 


3710 


3712 


3730 


3735 


3808 


38 14 


3825 


3830 


3842 


4118 


4120 


4 1 23 


4145 


4 146 


4148 


4 150 


4 168 


4 1 70 


4184 


4186 


4204 


4206 


42 18 


4224 


4225 


4227 


4248 


426 1 


4316 


4325 


4340 


4346 


4375 


4387 


4389 


4391 


4403 


44 15 


4419 


4434 


4438 


4441 


4454 


4460 


4464 


4473 


4493 


454 1 


4546 


4547 


4548 


4553 


4554 


4556 


4558 


4629 


4693 


4702 


4707 


4714 


4730 


4753 


4761 


4815 


4891 


4904 


4940 


4959 


4964 


5038 


5041 


5059 


5094 


51 14 


5122 


5130 


5178 


5203 


5208 


5223 


5224 


5228 


5229 


5230 


5243 


5244 


5246 


5286 


5287 


5288 


5299 


5321 


5322 


5326 


5327 


5346 


5354 


5356 


5361 


5364 


5369 


5402 


5404 


5434 


5436 


5439 


5440 


5446 


5481 


5485 


5487 


5493 


5501 


5503 


5504 


5505 


5523 


5524 


5529 


5556 


5563 


5564 


5568 


557 1 


5572 


5579 


5584 


5586 


5598 


' 5600 


5601 


5602 


5605 


5613 


5616 


5618 


5628 


5630 


5632 


5639 


5643 


5645 


5656 


5662 


5667 


5671 


5672 


5675 


5687 


5690 


5712 


5722 


5724 


5732 


5733 


5741 


5748 


5751 


5763 


5766 


5780 


5785 


5787 


5808 


58 1 1 


5833 


5841 


5929 


5974 


5994 


6009 


6029 


6040 


6046 


6075 


6086 


6122 


6129 


6163 


6202 


6222 


6224 


6259 


6272 


6273 


6309 


6335 


6341 


6346 


6347 


6354 


6358 


6363 


6385 


6386 


6387 


6421 


6455 


6464 


6467 


647 1 


6473 


65 1 1 


652 1 


6546 


6553 


6589 


6606 


6631 


6661 


6668 


6679 


6731 


6748 


6754 


6845 


6849 


6868 


6887 


6890 


6894 


6896 


6928 


6936 


6943 


6944 


6948 


6955 


7010 


701 1 


7 102 


7 132 


7147 


7 149 


7174 


7 178 


7 180 


7 187 


7 188 


7 194 


7 195 


7 197 


7 199 


7297 


7329 


7352 


7370 


7376 


7447 


7454 


7475 


7483 


7502 


7520 


7544 


7557 


7559 


7566 


7591 


7595 


7601 


7623 


7627 


7633 


7667 


7724 


7726 


7732 


7823 


7831 


7858 


7959 


8202 


8261 


8264 


8306 


8326 


8329 


8349 


8363 


8496 


8502 


8520 


8526 


8542 


8623 


8794 


88 17 














536 # 


2180 


2184 


2229 


2231 


2276 


2363 


24 14 


2417 


2783 


3111 


3338 


3404 


3614 


3632 


3635 


3775 


3780 


3945 


3979 


3985 


4026 


4042 


4196 


4200 


4229 


4285 


4289 


4369 


4465 


4466 


4469 


4479 


4552 


4557 


4583 


4587 


4593 


4736 


5142 


5144 


5 149 


5166 


5167 


5251 


5252 


5300 


5444 


5448 


5527 


5577 


5658 


5951 


6015 


6047 


6052 


6070 


6099 


6100 


6205 


6219 


6230 


6232 


6242 


6310 


6322 


6329 


6349 


6370 


6384 


6439 


6450 


6458 


6502 


6526 


6620 


6642 


6669 


6695 


6847 


6871 


6889 


693 1 


695 1 


6967 


6975 


7250 


7256 


7279 


7309 


7450 


7485 


7495 


7503 


7722 


7847 


7933 


7940 


7943 


7946 


7949 


7952 


8293 


8301 


8386 


8769 


8830 


8834 


535 # 


4436 


4447 


4468 


5101 


5565 


5573 


5674 


5677 


5830 






547 # 
























552 # 


4365 


442 1 


4422 


5100 


5119 


5137 


5161 


5249 


5358 


5366 


57 14 


5963 


6098 


6134 


6353 


















548 # 


6183 


6423 


6428 


6476 
















551 # 
























568 U 


4154 


4169 


4386 


4457 


4910 


5509 


5758 


5791 


5793 


5804 


5985 
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6131 


7029 


A ANfn o 




567 # 


4152 






4824 


4902 


A . EQV . B 




595 # 




A EQV 




594 # 


4 1 30 


a np R 

M . UK . D 




560 # 


2907 








/ v/O D 






O / O T 




A no n 

A . UK . Kjj 




559 # 


CO i Q 


A Y ("ID R 
A . AUK . o 




C07 u 

Do / ff 


D / i?D 


a xnp n 

A . AUK . U 




COC U 




R 




DO/ 


1 fin 




2527 


2533 






3084 


3 1 40 






36 1 9 


3659 






4003 


4034 






4355 








4703 


4718 






RAO -i 


cope 






3D / O 


C707 
O / d. / 






CAQA 

ttUoU 


pr\ce 






Fi 1 PiA 








a a icx 
o4 / y 








CO CA 

OoDu 


coco 






/ID/ 


7000 






/ OUo 


7TiA 






7694 


7728 






/ 3o3 








7953 


7Q C A 






8235 


8239 






876 1 


8797 


B ~ 25 




546 # 




R - A - 9 R 




JH't ft 










co/17 






88 1 9 




Q 




566 # 


9 1 4Q 








OO7A 
«d / v_/ 






OCQH 
Zu3 1 


2716 






2754 


278 1 






3387 


3432 






3593 


36 1 3 






38 1 2 


3327 






4151 


41 89 






4692 


4697 






48 1 1 


4885 






4077 


4Q7Q 






5157 


5175 






JJUO 


CCCA 






5998 


6001 






6077 


6085 






6161 


6170 






6292 


6293 






6379 


6381 






6541 


6551 






6671 


6692 



MICRO 


31 (254) 


KS 10 


MICROCODE 


V124, 27- 


- JUL-84 


Page 


250 










Cross 


Reference 


L i st i ng 












7032 


7362 


7518 


8594 














4393 


4437 


448 1 


4483 


4559 


46 1 1 


46 16 


462 1 


4627 


4628 


491 1 


5754 


5789 
















4133 


4155 


4 1 56 


42 1 1 


42 1 3 


4215 


4484 








4092 


4912 


5065 


5917 


6016 


6049 


6088 


6246 


6677 


7054 


7096 


7123 


7140 


7141 


7341 


7347 


7489 


7585 


7620 


8517 


5240 


5588 


















7295 




















2 168 


2 1 70 


2171 


2 1 74 


2 1 76 


2183 


2 185 


2376 


2396 


2495 


2538 


254 1 


2572 


259 1 


2736 


2743 


2750 


2757 


2787 


3068 


3285 


3329 


3332 


3335 


334 1 


3344 


3347 


3406 


3560 


3608 


3695 


3701 


3740 


3746 


38 1 7 


3963 


3967 


3969 


3975 


3997 


404 1 


4122 


4267 


427 1 


4293 


4297 


4328 


4334 


4348 


4353 


4427 


4429 


4446 


4462 


447 1 


4532 


4539 


4560 


4690 


4699 


472 1 


4737 


48 18 


4884 


4892 


4900 


4949 


4962 


4982 


5014 


5289 


5372 


5374 


5406 


54 10 


5443 


5483 


5502 


5570 


5669 


5745 


5783 


59 19 


5922 


5935 


5937 


5938 


5968 


5980 


6014 


6057 


6058 


6073 


6115 


6118 


6 1 20 


6124 


6137 


6 1 48 


6 1 56 


6297 


6340 


6359 


6372 


6376 


6378 


6427 


6434 


6460 


6474 


6505 


6557 


6577 


659 1 


6643 


665 1 


6725 


6746 


6768 


6800 


6874 


69 14 


6965 


7067 


7069 


7070 


7072 


7075 


7079 


7 1 56 


7227 


723 1 


7235 


7239. 


7253 


7 264 


7269 


7285 


7288 


7304 


73 1 8 


73 19 


737 1 


7383 


7389 


7396 


762 1 


7663 


7686 


7692 


7730 


7839 


7846 


791 1 


7920 


7926 


7930 


7931 


7932 


7934 


7938 


7939 


7941 


7942 


7944 


7945 


7947 


7948 


7950 


7951 


7956 


8 198 


8208 


8209 


821 1 


82 1 2 


82 19 


8229 


823 1 


8233 


8240 


8275 


8374 


8381 


8383 


8404 


8538 


8596 


8725 


8756 


8825 


8827 


















3527 


3536 


3539 


4275 


4279 


4549 


4580 


6010 


6031 


6135 


6336 


6388 


6425 


68 18 


6947 


726 1 


7385 


7398 


7645 


8759 


2 153 


2178 


2 1 79 


2181 


2219 


2269 


2339 


2353 


2357 


2362 


237 1 


2383 


2384 


2389 


2394 


2405 


24 1 1 


2569 


2588 


2689 


2718 


272 1 


2722 


2724 


2727 


2728 


2730 


2745 


2747 


2752 


2965 


29S2 


2988 


3000 


3003 


304 1 


3087 


3090 


3269 


3274 


3435 


3438 


3444 


3447 


3450 


3473 


3549 


3556 


3573 


3588 


3617 


3678 


3689 


37 1 7 


3723 


3750 


3759 


3770 


3772 


3806 


3828 


3840 


384 1 


3845 


3959 


4002 


4 104 


4119 


4 128 


4 147 


4 194 


4209 


v 42 1 2 


4214 


42 16 


43 17 


4326 


4327 


4409 


4538 


47 1 1 


4713 


4717 


4732 


4765 


479 1 


4792 


4793 


4794 


4795 


4886 


4887 


4888 


4889 


4937 


4946 


4953 


4967 


4969 


4973 


4983 


501 2 


501 7 


5040 


5053 


5055 


5093 


5102 


5 106 


5113 


5 1 76 


5201 


5206 


5283 


5316 


5348 


54 1 2 


5490 


5506 


5548 


5701 


5836 


59 1 2 


593 1 


5940 


5955 


5958 


5972 


5973 


5976 


6006 


6022 


* 6023 


6033 


6043 


6060 


606 1 


6062 


6063 


607 1 


6094 


6096 


6114 


6116 


6 1 23 


6127 


6 140 


6 142 


6 146 


6 158 


6 189 


6 192 


6 194 


6201 


62 1 1 


6252 


6254 


6255 


6260 


6287 


6294 


6306 


6315 


6320 


6332 


6338 


6348 


6351 


6352 


6367 


6382 


6400 


6403 


6452 


6457 


6462 


6463 


6503 


6510 


6525 


6560 


6564 


6579 


6588 


6590 


6594 


6615 


6622 


6624 


6655 


6694 


6732 


6757 


6807 


6812 


6814 


6821 


6823 


6840 


6842 
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1984 


MICRO 


31 (254 




6843 


6846 


6869 


6886 




6964 


6983 


7003 


7004 




7152 


7209 


721 1 


7213 




7251 


7255 


7260 


7266 




7360 


7379 


7381 


7392 




7515 


7547 


7588 


7655 




7834 


7866 


7913 


7918 




8199 


8201 


8210 


8216 




8402 


8452 


8454 


8483 




8736 


8742 


8751 


8755 


D+A 


540 ff 


2289 


2301 


2316 




3833 


4057 


4084 


4087 




6025 


6080 


6178 


6203 




6554 


6630 


6737 


6745 




7672 


7674 


8296 


8304 


D+Q 


541 # 


4985 


4993 


5024 


D-.25 


558 ff 








D-A-.25 


556 # 


3370 


3501 


4071 


D-Q-.25 


557 # 








D . AND . A 


575 . # 


2422 


2424 


2435 




3529 


3538 


3541 


3543 




3627 


3628 


3640 


3642 




3939 


3960 


3986 


3987 




4440 


4636 


4771 


4943 




5393 


5413 


5508 


5547 




5813 


5913 


5915 


5956 




6241 


6257 


6264 


6289 




6465 


6468 


6488 


6491 




6918 


6985 


6991 


7000 




7016 


7019 


7020 


7021 




7059 


7062 


7064 


7066 




7154 


7181 


7189 


7198 




7340 


7342 


7344 


7346 




7649 


7651 


7665 


7794 




8249 


8253 


8315 


8322 




8433 


8437 


8439 


8459 




8574 


8576 


8598 


8601 




8706 


8712 


8728 


8753 


D . AND . Q 


576 # 


3113 


451 1 


521 1 


D.EQV.A 


599 # 


2886 






D.EOV.O 


600 # 








D.OR.A 


564 # 


2151 


2420 


2458 




5295 


5320 


5353 


5414 




6258 


6302 


631 1 


6316 




6793 


6809 


6945 


6954 




7426 


7427 


7561 


7862 




8467 


8509 


8513 


85.30 




8793 








D.OR.Q 


565 M 


3115 


4396 




D.XOR. A 


591 # 


2188 


2856 


3291 


D . XOR . Q 


592 # 











561 # 


3117 


4124 


4132 




4430 


4435 


4439 


4445 




5489 


5513 


5607 


5614 




6143 


6545 







KS10 


MICROCODE 


V124, 27 


-JUL-84 


Page 


251 






Cross 


Reference 


L i st i ng 












6888 


6898 


6913 


6926 


6930 


6934 


6940 


6959 


7036 


7038 


7050 


7061 


7084 


7085 


7093 


7105 


7215 


7217 


7222 


7226 


7230 


7234 


7238 


7246 


7267 


7278 


7298 


7302 


7317 


7323 


7337 


7350 


7394 


7418 


7444 


7455 


7471 


7473 


7492 


7497 


7658 


7660 


7668 


7682 


7713 


7716 


7718 


7827 


7922 


7925 


7937 


7955 


7957 


7958 


7960 


8195 


8221 


8288 


8291 


8310 


8358 


8375 


8378 


8392 


8499 


8539 


8540 


8541 


8547 


8567 


8628 


8726 


8767 


8771 


8773 


8775 


8777 


8779 


8781 


8785 


2329 


3487 


3509 


3564 


3679 


3725 


3754 


3818 


A7AQ 


*+ / o / 






3 1 ID 




coop 




6213 


6216 


6356 


6374 


6417 


6426 


6433 


6435 


fiR 1 Q 
Oo 1 cJ 


Oo<dJ 






70QQ 




7/1 QQ 

/ z)<5 


/ OOO 


8318 


8320 


8397 


8568 


8790 








5043 
















4096 


4098 


4101 


5050 


6361 


6380 






2457 


2771 


2814 


2937 


2968 


3016 


3276 


3299 


3544 


3545 


3578 


3583 


3586 


3592 


3606 


3607 


3919 


3921 


3923 


3925 


3927 


3929 


3931 


3933 


3992 


4037 


4105 


4175 


4177 


4358 


441 1 


4433 


4950 


5062 


5225 


5290 


5294 


5319 


5352 


5389 


5638 


5673 


5676 


5693 


5744 


5747 


5750 


5753 


5959 


6095 


6097 


6133 


6159 


6166 


6179 


6199 


6305 


6324 


6383 


6397 


6399 


6431 


6437 


6453 


6507 


6522 


6638 


6672 


6675 


6738 


6752 


6908 


7001 


7002 


7006 


7007 


7008 


7009 


7014 


7015 


7022 


7023 


7024 


7025 


7026 


7053 


7055 


7057 


7087 


7090 


7108 


7113 


7116 


7120 


7135 


7153 


7218 


7240 


7282 


7332 


7334 


7335 


7336 


7338 


7348 


7459 


7499 


7533 


7590 


7597 


7603 


7617 


7803 


7805 


7807 


7809 


7811 


7813 


8196 


8200 


8325 


8340 


8345 


8394 


8409 


8413 


8417 


8422 


8464 


8492 


8505 


8512 


8515 


8531 


8533 


8571 


8603 


8606 


8609 


8630 


8640 


8694 


8698 


8701 


8805 
















5217 


5231 


5237 


5324 


5633 








2866 


3294 


3989 


3994 


4106 


4459 


4544 


5291 


5553 


5609 


5610 


5617 


5654 


5706 


5820 


6171 


6326 


6597 


6601 


6603 


6664 


6777 


6781 


6785 


7155 


7268 


7343 


7421 


7422 


7423 


7424 


7425 


8 1 92 


8246 


8250 


835 1 


843 1 


8434 


8442 


8460 


8532 


8536 


8592 


8699 


8703 


8708 


8715 


8720 


4413 


7457 


7458 


8259 










4179 


4137 


4187 


4198 


4210 


4352 


4407 


4424 


4453 


4972 


5134 


5160 


5248 


5371 


5376 


5447 


5634 


5646 


5657 


5716 


5718 


5762 


5807 


6104 
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Cross Reference Listing 



U) 



0- . 25 


545 ft 








Q- A - . 25 


543 ft 


4428 


5033 




Q-D- . 25 


549 ft 


4976 






ZERO 


572 ft 


2161 


2161 


2163 




298 1 


3022 


3042 


327 1 




48 13 


4819 


4820 


4823 




5297 


5368 


5379 


539 1 




5756 


5772 


5800 


598 1 




6262 


6280 


6282 


6300 




6658 


6728 


6803 


7028 




7403 


7404 


7436 


7439 




8267 


8346 


8406 


8424 




88 15 








-A- . 25 


555 ft 


2577 


2947 


432 1 




4647 


5280 


5355 


5359 




5776 


5797 


5803 


6265 


-B- . 25 


554 ft 


5697 






-D- . 25 


550 ft 


4450 


46 10 


46 1 5 


-Q- . 25 


553 ft 


4398 


4449 


4475 




577 1 








. NOT . A 


598 ft 


2839 


2876 


29 1 7 




5497 


55 1 2 


5514 


5695 




8639 








.NOT. A. AND. B 


579 ft 


4 126 


5582 


7060 


.NOT. A. AND. 


578 ft 


5719 






. NOT . B 


597 ft 


5802 


6174 




. NOT . D 


601 ft 


2896 


2906 


46 14 




6957 








. NOT . D . AND . A 


583 ft 


2824 


362 1 


4022 




7077 


7345 


7563 


847 1 


. NOT . D . AND . Q 


584 ft 








. NOT . Q 


596 ft 


4909 


5770 


5984 


0+A 


539 ft 


5837 






0+B 


538 ft 








0+D 


542 ft 








0+0 


537 # 


5583 


5730 




AD PARITY OK 


7 1 1 # 


2181 


2357 


2370 




2968 


2982 


3016 


3473 




47 1 7 


5113 


5201 


5283 




6006 


6022 


6094 


6096 




62 1 1 


6252 


6254 


6255 




6452 


6510 


655 1 


6588 




6934 


6940 


7547 


7834 


ADFLGS 


1115 ft . 


2578 


3404 


3420 




4640 


4642 






AREAD 


1 149 ft 


2321 






B 


657 ft 








AR 


661 # 


2158 


2160 


2175 




2357 


2362 


2370 


2376 




2426 


2427 


2457 


2458 




2577 


2689 


2691 


2716 




2738 


2740 


2743 


2745 




2814 


2824 


2839 


2856 




2937 


2947 


2965 


2968 




3005 


3006 


3008 


3010 



2 166 


2 1 73 


2 1 75 


2177 


2 194 


22 1 6 


2400 


2804 


3609 


3970 


4223 


4249 


4319 


4455 


4533 


4800 


4895 


4896 


4899 


4955 


5098 


5140 


5164 


5250 


5395 


5397 


5398 


541 1 


5424 


5516 


5689 


5717 


5983 


601 7 


6036 


6084 


6089 


6101 


6112 


6141 


6334 


6390 


6394 


6398 


6401 


6456 


6580 


6618 


7031 


7094 


7128 


7138 


7182 


7258 


7333 


7378 


7446 


7460 


7675 


7720 


784 1 


7844 


79 1 4 


8245 


8508 


8528 


8570 


8740 


8746 


8765 


8783 


8784 


4399 


4476 


4518 


4536 


4543 


4637 


4641 


4645 


5390 


5499 


55 1 5 


5544 


5545 


5696 


5707 


5708 


6389 


7361 














4620 


4625 


5996 


6268 


6939 


6953 






45 1 6 


4517 


4534 


5377 


5482 


5484 


5486 


5488 


2927 


3288 


4091 


4330 


4535 


4639 


4646 


5449 


5705 


£774 


5965 


5967 


6519 


7363 


7438 


7648 


7063 


7339 


7349 


7519 










46 1 9 


4624 


601 3 


604 1 


6045 


6181 


6185 


6267 


555 1 


5653 


5704 


582 1 


6405 


6773 


6789 


705 1 


852 1 


8696 














2371 


2588 


2689 


2691 


2722 


2728 


2781 


2965 


37 1 7 


3750 


3772 


3828 


3840 


4147 


4 1 89 


4326 


53 1 6 


5348 


54 1 2 


5558 


5955 


5958 


5973 


5976 


6114 


6 1 46 


6 1 58 


6161 


6 1 89 


6 192 


6 1 94 


620 1 


6287 


6292 


6293 


6294 


6315 


6320 


6332 


6367 


6590 


6694 


6807 


6814 


6840 


6842 


6869 


6926 


8222 
















3487 


3501 


4058 


4072 


4089 


4099 


4 102 


4229 


2238 


2242 


2245 


2257 


2260 


2263 


2320 


2353 


2389 


2394 


2396 


2405 


2414 


2414 


2417 


2417 


2495 


2521 


2527 


2533 


2538 


2541 


2569 


2572 


2718 


2721 


2722 


2724 


2727 


2728 


2730 


2736 


2747 


2750 


2752 


2754 


2757 


2759 


2761 


2804 


2866 


2876 


2886 


2896 


2907 


2907 


2917 


2927 


2972 


2982 


2984 


2988 


2991 


2995 


3000 


3003 


301 1 


3041 


3042 


3043 


3068 


3084 


3140 


3269 
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Cross 


Reference 


L i st i ng 












3274 


3288 


3291 


3294 


3299 


3300 


3329 


3332 


3335" 


3341 


3344 


3347 


3370 


3387 


3389 


3404 


3404 


3406 


3420 


3614 


3614 


3632 


3635 


3635 


3642 


3770 


3775 


3780 


3828 


3959 


3960 


3967 


3986 


4002 


4003 


4022 


4031 


4034 


4042 


4057 


4071 


4087 


4092 


4092 


4098 


4101 


4104 


4124 


4130 


4132 


4133 


4150 


4151 


4168 


4216 


4319 


4321 


4326 


4328 


4353 


4375 


4409 


4415 


4419 


4462 


4466 


4466 


4469 


4469 


4473 


4476 


4479 


4493 


4518 


4532 


4535 


4536 


4541 


4546 


4549 


4552 


4554 


4556 


4557 


4557 


4558 


4588 


4624 " 


4625 


4629 


4639 


4641 


4646 


4647 


4690 


4699 


4703 


4707 


4718 


4721 


4730 


4732 


4736 


4736 


4737 


4765 


4803 


4818 


4820 


4823 


4824 


4884 


4885 


4886 


4887 


4888 


4889 


4892 


4900 


4909 


4910 


4910 


4912 


4912 


4967 


4969 


4979 


4982 


4983 


5012 


5021 


5035 


5045 


5050 


5053 


5055 


5059 


5137 


5161 


5175 


5176 


5178 


5249 


5280 


5287 


5289 


5290 


5291 


5300 


5300 


5326 


5327 


5348 


5352 


5353 


5364 


5369 


5371 


5372 


5374 


5376 


5377 


5402 


5404 


5406 


5410 


5412 


5413 


5414 


5434 


5439 


5440 


5443 


5444 


5444 


5446 


5448 


5448 


5481 


5483 


5485 


5487 


5490 


5493 


5497 


5499 


5501 


5502 


5503 


5504 


5505 


5506 


5509 


5509 


5512 


5514 


5515 


5524 


5527 


5527 


5529 


5545 


5572 


5577 


5577 


5579 


5584 


5586 


5630 


5667 


5671 


5675 


5678 


5701 


5704 


5706 


5708 


5732 


5733 


5741 


5745 


5748 


5751 


5763 


5766 


5774 


5776 


5780 


5783 


5785 


5787 


5802 


5808 


581 1 


5833 


5836 


5837 


5841 


5880 


5882 


5884 


5886 


5888 


5890 


5892 


5894 


5896 


5922 


5951 


5951 


5958 


5965 


5967 


5968 


5983 


5984 


5992 


5996 


6009 


6010 


6010 


6013 


6015 


6015 


6016 


6016 


6022 


6029 


6030 


6040 


6041 


6043 


6045 


6046 


6047 


6047 


6052 


6052 


6060 


6099 


6099 


6100 


6101 


6114 


6120 


6127 


6131 


6131 


6134 


6134 


6137 


6141 


6146 


6148 


6155 


6156 


6158 


6166 


6174 


6178 


6181 


6185 


6254 


6257 


6258 


6259 


6267 


6268 


6272 


6292 


6294 


6297 


6306 


6315 


6332 


6346 


6347 


6348 


6349 


6349 


6354 


6372 


6374 


6376 


6381 


6385 


6398 


6400 


6401 


6403 


6425 


6428 


6433 


6439 


6439 


6450 


6462 


6463 


6464 


6465 


6467 


6468 


6501 


6521 


6525 


6526 


6526 


6546 


6551 


6553 


6554 


6557 


6579 


6580 


6592 


6594 


6615 


6618 


6620 


6620 


6622 


6630 


6638 


6642 


6642 


6643 


6655 


6658 


6661 


6664 


6668 


6671 


6675 


6692 


6694 


6695 


6725 


6731 


6732 


6737 


6745 


6746 


6748 


6754 


6803 


6807 


6812 


6814 


6818 


6819 


6821 


6823 


6825 


6840 


6842 


6845 


6846 


6847 


6847 


6849 


6850 


6852 


6869 


6874 


6887 


6888 


6889 


6889 


6890 


6898 


6913 


6914 


6918 


6926 


6930 


6931 


6934 


6939 


6943 


6947 


6947 


6948 


6951 


6951 


6953 


6954 


6955 


6957 


6967 


6967 


6975 


6975 


7105 


7108 


7147 


7149 


7222 


7223 


7226 


7227 


7230 


7231 


7234 


7235 


7238 


7239 


7246 


7250 


7250 


7251 


7253 


7255 


7256 


7256 


7258 


7260 


7261 


7261 


7264 


7266 


7278 


7288 


7302 


7317 


7318 


7319 


7378 


7379 


7383 


7385 


7385 


7389 


7392 


7396 


7398 


7398 


7436 


7440 


7444 


7447 


7448 


7450 


7450 


7455 


7473 


7483 


7487 


7489 


7489 


7544 


7566 


7591 


7597 


7603 


7652 


7655 


7660 


7666 


7668 


7672 


7674 


7675 


7713 


7722 


7722 


7827 


7834 


786 1 


7862 


7935 


7936 


7937 


7938 


7955 


7956 


7957 


8192 


8202 


8208 


8296 


8304 


8310 


8318 


8320 


8326 


8329 


8349 


• 8351 


8375 


8378 


8392 


8397 


8404 


8409 


8442 


8452 


8454 


8460 


8496 


8499 


8502 


8505 


8517 


8517 


8547 


8568 


8570 


8574 


8596 


8628 


8639 


8736 


8742 


8751 


8755 


8756 


8767 


8790 


8817 


8830 


8830 


8834 






662 # 


2181 


2185 


2366 


2371 


2400 


2424 


2489 


2771 


2772 


2781 


2787 


3679 


3710 


3712 


3717 


3725 


3750 


3754 


3827 


3830 


3943 


3945 


3945 


3963 


3979 


4026 


4084 


4096 


4105 


4106 


4122 


4123 


4128 


4152 


4155 


4156 


4169 


4169 


4177 


4187 


4200 


4200 


4206 


4209 


4223 


4229 


4249 


4268 


4272 


4276 


4280 


4286 


4290 


4294 


4298 


4340 


4352 


4358 


4424 


4430 


4439 


4533 


4538 


4544 


4560 


4580 


4580 


4583 


4583 


4594 


4636 


4637 


4645 


4713 


4717 


4904 


491 1 


4937 


4940 


4943 


4946 


4949 


5093 


5142 


5142 


5167 


5252 


5286 


5354 


5355 


5366 


5544 


5646 


5658 


5658 
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5693 


5716 


5791 


5791 


5793 


5793 


5795 


5795 


5797 


5830 


5974 


5976 


5994 


6025 


6031 


6057 


6062 


6070 


6070 


6073 


6075 


6080 


6094 


6098 


61 18 


6124 


6129 


6135 


6161 


6163 


6192 


6213 


6219 


6219 


6222 


6232 


6232 


6241 


6252 


6264 


6265 


6270 


6273 


6293 


6295 


6305 


6309 


6310 


6310 


6320 


6338 


6367 


6378 


6382 


6384 


6384 


6386 


6423 


6431 


6435 


6437 


6577 


6757 


6800 


6868 


6871 


6944 


6945 


6964 


6965 


7053 


7055 


7093 


7094 


7282 


7285 


7293 


7297 


7299 


7310 


7446 


7485 


7485 


7495 


7495 


7618 


7620 


7629 


7635 


7658 


7716 


7720 


7732 


7839 


7844 


7847 


791 1 


7913 


7918 


7922 


7925 


7926 


7930 


7933 


7940 


7943 


7946 


7949 


7952 


7958 


7960 


8212 


8288 


8291 


8346 


8363 


8381 


8383 


8424 


8528 


8539 


8592 






















663 ff 


2183 


2384 


2385 


241 1 


2420 


2422 


2588 


2591 


2906 


3016 


3038 


3071 


3072 


3075 


3076 


3077 


3078 


3090 


3093 


3096 


3099 


3102 


3106 


3109 


311 1 


3143 


3144 


3147 


3148 


3271 


3276 


3285 


3429 


3432 


3435 


3438 


3441 


3444 


3447 


3450 


3473 


3487 


3501 


3509 


3613 


3619 


3628 


3678 


3689 


3695 


3701 


3723 


3740 


3746 


3772 


3806 


3808 


3812 


3817 


3825 


3840 


3841 


3845 


3983 


3985 


3985 


3989 


3994 


3997 


4091 


4170 


4316 


4325 


4334 


4348 


4355 


4360 


4365 


4369 


4387 


4389 


4391 


4399 


4403 


4421 


4422 


4539 


4543 


4547 


4548 


4692 


4697 


471 1 


4771 


4791 


4792 


4793 


4794 


4795 


481 1 


4813 


4815 


4950 


4953 


4955 


4959 


4962 


4977 


4987 


5014 


5026 


5062 


5065 


5101 


5102 


5104 


51 14 


5116 


5203 


5283 


5285 


5288 


5294 


5295 


5299 


5346 


5390 


5436 


5449 


5523 


5548 


5551 


5553 


5564 


5634 


5672 


5690 


5697 


5714 


5912 


5917 


5917 


5919 


5925 


5926 


5928 


5931 


5935 


5937 


5938 


5940 


5955 


5963 


5973 


5980 


6006 


6014 


6033 


6056 


6061 


6133 


6189 


6194 


6201 


6202 


6203 


6205 


621 1 


6216 


6224 


6230 


6230 


6242 


6242 


6255 


6334 


6335 


6336 


6336 


6356 


6359 


6361 


6363 


6370 


6370 


6380 


6387 


6389 


6405 


6457 


6458 


6460 


6471 


6473 


6474 


6510 


6519 


6588 


6590 


6591 


6843 


6886 


6928 


6936 


6940 


6959 


' 7003 


7004 


7010 


701 1 


7028 


7029 


7031 


7032 


7036 


7038 


7050 


7051 


7054 


7054 


7058 


7058 


7060 


7060 


7069 


7070 


7072 


7084 


7085 


7087 


7090 


7096 


7096 


7120 


7128 


7132 


7152 


7153 


7155 


7156 


7157 


7178 


7180 


7181 


7182 


7187 


7189 


7194 


7199 


7209 


721 1 


7213 


7215 


7217 


7249 


7267 


7268 


7269 


7292 


7295 


7298 


7308 


7323 


7329 


7336 


7337 


7371 


7381 


7394 


7459 


7471 


7493 


7497 


7503 


7503 


7515 


7520 


7533 


7547 


7559 


7561 


7563 


7579 


7582 


7585 


7588 


7595 


7601 


7621 


7627 


7633 


7724 


7728 


7939 


8199 


8219 


8229 


8231 


8233 


8235 


8261 


8264 


8267 


8293 


8301 


8386 


8402 


8406 


8520 


8521 


8540 


8725 


8726 


8728 


8805 


8825 
















664 n 


2179 


2180 


2180 


41 18 


4120 


4147 


4148 


4175 


4194 


4225 


4248 


4346 


4407 


4465 


5038 


5041 


5098 


5100 


51 13 


5119 


5144 


5149 


5166 


5166 


5201 


5251 


5251 


5316 


5319 


5320 


5322 


5356 


5358 


5359 


5361 


5547 


5638 


5639 


5650 


5653 


5654 


5687 


5696 


5915 


5959 


6049 


6058 


6063 


6086 


6088 


6096 


6115 


6122 


6136 


6159 


6164 


6171 


6246 


6246 


6260 


6287 


6289 


6300 


6302 


631 1 


6316 


6322 


6322 


6326 


6329 


6329 


6340 


6341 


6358 


6388 


6452 


6479 


6505 


6507 


6601 


6603 


6606 


6651 


6669 


6669 


6672 


6677 


6677 


6679 


6768 


6773 


6777 


6781 


6785 


6789 


6793 


6809 


7061 


7063 


7063 


7065 


7065 


7067 


7075 


7077 


7079 


7188 


7195 


7197 


7198 


7294 


7428 


7429 


7430 


7431 


7432 


7433 


7434 


7499 


7502 


7557 


7648 


7708 


7941 


8195 


8196 


8198 


8209 


8210 


821 1 


8221 


8225 


8227 


8239 


8240 


8241 


8250 


8253 


8259 


8275 


8374 


8431 


8434 


8467 


8509 


8513 


8515 


8530 


8532 


8536 


8538 


8541 


8703 


8715 


8720 


8731 


8731 


8797 




















666 -ft 


2163 


7174 


7944 


















669 # 


2166 


2168 


2170 


2171 


3621 


5106 


5140 


5164 


5250 


5516 


5609 


5610 


5617 


5756 


5772 


5800 


5820 


5821 


5972 


5998 


6001 


6017 


6023 
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607 1 


6077 


6085 


6089 


6112 


6116 


6123 


6142 


6170 


6262 


6352 


6379 




6390 


6394 


6456 


6503 


6560 


6564 • 


6597 


6624 


6728 


7948 


8201 


'8246 




8471 


8508 


8594 


8594 


8696 


8699 


8708 


8761 


8765 


8771 


8773 


8775 




8777 


8779 


8781 


8783 


8784 


8785 


8793 


8815 










HR 


660 # 


2178 


2184 


2184 


2269 


2301 


2316 


2329 


2339 


2363 


2435 


3529 




3538 


3541 


3543 


3544 


3545 


3549 


3560 


3564 


3573 


3578 


3583 


3586 




3588 


3606 


3627 


3640 


3653 


3659 


3663 


3919 


3921 


3923 


3925 


3927 




3929 


3931 


3933 


3939 


3970 


3975 


4037 


4041 


4602 


6908 


6983 


6991 




7000 


7001 


7002 


7006 


7007 


7008 


7009 


7014 


7015 


7016 


7019 


7020 




7021 


7022 


7023 


7024 


7025 


7026 


7218 


7240 


7279 


7304 


7309 


7335 




7663 


7794 


7803 


7805 


7807 


7809 


781 1 


7813 


7866 


7934 






MAG 


658 ff 


2152 


4227 


4261 


4386 


4434 


4457 


4891 


4896 


4899 


5208 


5228 




5229 


5230 


5244 


5632 


5722 


5758 


5804 


7931 










MACI/ 

1*1 A or\ 


668 ff 


2 1 49 


2 1 50 


2151 


3608 


4 1 26 


5223 


5224 


5985 


7920 


7947 




ONE 


665 ff 


2155 


2174 


2176 


2783 


6353 


7942 












PC 


659 ff 


2216 


2229 


2231 


2276 


2289 


2295 


3019 


3338 


3454 


3457 


3525 




3526 


3527 


3536 


3539 


3552 


3579 


3594 


3617 


3707 


3759 


3818 


3833 




3969 


6247 


6502 


6502 


7475 


7645 


7730 


7932 


8759 


8769 


8769 


8819 


PI 


8827 
670 ff 


2194 


7333 


7339 


7339 


7341 


7341 


7343 


7345 


7347 


7347 


7349 




7349 


7421 


7422 


7423 


7424 


7425 


7426 


7427 


7518 


7519 


7519 


7950 


TO 


672 ff 


3593 


4146 


4154 


4186 


4189 


4196 


4435 


4441 


4445 


4447 


4449 




4454 


4459 


4460 


5558 


5563 


5570 


5571 


5598 


5600 


5601 


5602 


5605 




5613 


5616 


5618 


5645 


5718 


5724 


6351 


6417 


6426 


6427 


7350 


7360 




7361 


7362 


7362 


7492 


7682 


7686 


7692 


7694 


7953 








T1 


673 ff 


2191 


2202 


2219 


2248 


2266 


2517 


3580 


4395 


4406 


4413 


4427 




4429 


4446 


4471 


4553 


5212 


5220 


5225 


5232 


5243 


5582 


5582 


5607 




5614 


5657 


5669 


5689 


5695 


5705 


5727 


6421 


6434 


7469 


7501 


7846 




7954 


8750 






















UBR 


667 ff 


2161 


7113 


7123 


7123 


7135 


7138 


7140 


7140 


7141 


7141 


7945 


XWD1 


671 ff 


2153 


7951 






















1328 ff 


3177 


3178 


3179 


3180 


3181 


3182 


3186 


3187 


3188 


3189 


3190 




3191 


3193 


3194 


3195 


3196 


3197 


3198 


3199 


3200 


3202 


3203 


3204 




3205 


3206 


3207 


3208 


3209 


321 1 


3212 


3213 


3214 


3215 


3216 


3217 




3218 


3220 


3221 


3222 


3223 


3224 


3225 


3226 


3227 


3228 


3229 


3230 




3231 


3232 


3233 


3234 


3235 


3237 


3238 


3239 


3240 


3241 


3242 


3243 




3244 


3350 


3351 


3352 


3353 


3354 


3355 


3356 


3357 


3359 


3360 


3361 




3362 


3363 


3364 


3365 


3366 


3376 


3377 


3378 


3379 


3380 


3381 


3382 




3383 


3393 


3394 


3395 


3396 


3397 


3398 


3399 


3400 


3409 


3410 


341 1 




3412 


3413 


3414 


3415 


3416 


3462 


3463 


3464 


3465 


3466 


3467 


3468 




3469 


3476 


3477 


3478 


3479 


3480 


3481 


3482 


3483 


3490 


3491 


3492 




3493 


3494 


3495 


3496 


3497 


3504 


35P5 


3669 


3670 


3671 


3766 


3852 




3853 


3854 


3855 


3856 


3857 


3858 


3859 


3909 


3910 


391 1 


3912 


3913 




3914 


5849 


5850 


5851 


5852 


5853 


5854 


5855 


5857 


5858 


5859 


5860 




5862 


5863 


5864 


5865 


5870 


5871 


5872 


5873 


5874 


7525 


7526 


7527 




7528 


7536 


7537 


7538 


7539 


7550 


7551 


7552 


7553 


7737 


7738 


7739 




7741 


7742 


7744 


7745 


7747 


7748 


7749 


7750 


7751 


7752 


7753 


7754 




7756 


7757 


7758 


7759 


7760 


7761 


7762 


7763 


7765 


7766 


7767 


7768 




7769 


7770 


7771 


7772 


7774 


7775 


7776 


7777 


7778 


7779 


7780 


7781 




7783 


7784 


7785 


7786 


7787 


7788 


7789 


7790 










AC 


1332 ff 


2547 


2548 


2552 


2553 


2557 


2558 


2562 


2563 


2584 


2600 


2601 




2605 


2606 


2610 


261 1 


2615 


2616 


2620 


2621 


2625 


2626 


2630 


2631 




2635 


2636 


2642 


2643 


2647 


2648 


2652 


2653 


2657 


2658 


2662 


2663 




2667 


2668 


2672 


2673 


2677 


2678 


2767 


2797 


2798 


2807 


2808 


2817 




2818 


2827 


2828 


2832 


2833 


2849 


2850 


2859 


2860 


2869 


2870 


2879 
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(U) 





2880 


2889 


• 2890 


2899 


2900 


2910 


291 1 


2920 


2921 


2930 


2931 


2940 




2941 


4050 


4051 


4064 


4065 


4112 


41 13 


4682 


8188 








BOTH 


1334 # 


2800 


2810 


2820 


2830 


2835 


2852 


2862 


2872 


2882 


2892 


2902 




2913 


2923 


2933 


2943 


4053 


4067 


41 15 












DBLAC 


1330 # 
5623 


2766 
5684 


4079 


4080 


4137 


4138 


4163 


4304 


4305 


4309 


4310 


4381 


DBLB 


1331 # 


4140 


4307 


4312 


















MEM 


1333 * 


2549 


2554 


2559 


2564 


2602 


2607 


2612 


2617 


2622 


2627 


2632 




2637 


2644 


2649 


2654 


2659 


2664 


2669 


2674 


2679 


2799 


2809 


2819 




2829 


2834 


2844 


2845 


2851 


2861 


2871 


2881 


2891 


2901 


2912 


2922 




2932 


2942 


4052 


4066 


41 14 


4139 


4306 


431 1 


7204 








SELF 


1329 ft 


2550 


2555 


2560 


2565 


2603 


2608 


2613 


2618 


2623 


2628 


2633 




2638 


2645 


2650 


2655 


2660 


2665 


2670 


2675 


2680 








BWRITE 


1158 n 


2569 


2575 


2689 


2691 


2724 


2730 


2738 


2740 


2759 


2761 


2804 




2814 


2824 


2856 


2866 . 


2886 


2896 


2907 


2917 


2947 


4058 


4072 


4124 




4130 


4153 


4155 


5444 


5448 


5494 


5516 


8518 


8818 








BYTE 


817 # 
























BYTE 1 


818 # 
6886 


4692 
6888 


4697 
6959 


471 1 


4732 


4885 


6033 


6043 


6525 


6671 


6843 


6846 


BYTE2 


819 n 


4886 






















BYTE3 


820 # 


4887 






















BYTE4 


821 # 


4888 






















BYTE5 


822 ft 


3041 


4791 


4792 


4793 


4794 


4795 


4889 


6655 








CALL 


969 # 


2156 


2182 


2194 


2399 


2771 


2781 


3551 


3590 


3592 


3593 


3607 




3631 


3634 


3829 


3832 


3946 


3962 


3967 


3971 


3977 


3980 


4121 


4149 




4176 


4185 


4195 


4205 


4228 


4338 


4359 


4414 


4420 


4434 


4438 


4444 




4490 


4514 


4692 


4697 


4701 


4706 


471 1 


4720 


4723 


4971 


4981 


5015 




5042 


5097 


5113 


5115 


5202 


5214 


5216 


5234 


5236 


5323 


5365 


5368 




5373 


5375 


5483 


5485 


5487 


5502 


5503 


5504 


5563 


5571 


5599 


5639 




5644 


5656 


5663 


5670 


5689 


5713 


5717 


5721 


5746 


5749 


5752 


5784 




5786 


5788 


5794 


5914 


5954 


5957 


5961 


5993 


5999 


6024 


6048 


6059 




6074 


6078 


6085 


6095 


6097 


6103 


6117 


6126 


6147 


6162 


6165 


6178 




6193 


6204 


6212 


6215 


6218 


6221 


6229 


6234 


6261 


6296 


6305 


6321 




6333 


6360 


6371 


6379 


6396 


6422 


6451 


6454 


6459 


6534 


6542 


6552 




6555 


6565 


6578 


6593 


6600 


6621 


6625 


6693 


6727 


6751 


6851 


6870 




6875 


6927 


6935 


6946 


7188 


7257 


7281 


7284 


7303 


7350 


7380 


7393 




7442 


7472 


7474 


7490 


7494 


7532 


7543 


7558 


7577 


7586 


7615 


7622 




7647 


7840 


7842 


7848 


7864 


7912 


7914 


7931 


7934 


7936 


7938 


7941 




7944 


7947 


7950 


7953 


7955 


8314 


8321 


8332 


8339 


8350 


8359 


8377 




8380 


8393 


8416 


8426 


8453 


8484 


8569 


8727 


8738 


8798 


8826 




CHKL 


722 # 


2269 


2339 


2353 


2362 


2366 


2383 


2394 


2405 


24 1 1 


2424 


2495 




2527 


2533 


2538 


2541 


2591 


2787 


3087 


3406 


3549 


3573 


3588 


3613 




3617 


3678 


3695 


3701 


3723 


3740 


3746 


3759 


3817 


3845 


3967 


3969 




3975 


4002 


404 1 


41 19 


4212 


4214 


4317 


4327 


441 1 


4433 


4440 


4737 




4765 


4771 


4892 


5157 


5206 


5912 


5931 


6351 


6541 


6591 


6594 


6622 




6898 


6913 


6983 


7105 


7222 


7226 


7230 


7234 


7238 


7278 


7308 


7310 




7317 


7371 


7455 


7497 


7621 


7668 


7713 


7716 


7718 


7728 


7730 


7827 




7846 


7866 


7931 


7932 


7934 


7935 


7938 


7939 


794 1 


7942 


7944 


7945 




7947 


7948 


7950 


7951 


7953 


7954 


7956 


8310 


8392 


8628 


8797 


8825 




8827 
























CHKR 


729 


2269 


2339 


2353 


2362 


2366 


2383 


2394 


2405 


241 1 


2424 


2495 




2527 


2533 


2538 


2541 


2591 


2787 


3087 


3406 


3549 


3573 


3588 


* 3613 




3617 


3678 


3695 


3701 


3723 


3740 


3746 


3759 


3817 


3845 


3967 


3969 




3975 


4002 


4041 


4119 


4212 


4214 


4317 


4327 


441 1 


4433 


4440 


4737 




4765 


4771 


4892 


5157 


5206 


5912 


5931 


6351 


6541 


6591 


6594 


6622 



T10KL.MCR[ 10, 1 141 ] 15:34 27-JULY-1984 



MICRO 31(254) 



KS10 MICROCODE V124, 27-JUL-84 
Cross Reference Listing 



Page 257 



(U) CLKL 



(U) CLKR 



(U) CLRFPD 
(D) COND FUNC 



(U) CRY38 



(U) DBM 



APR FLAGS 



6898 


69 1 3 


6983 


7 105 


7222 


7226 


7230 


7234 


7238 


7278 


7308 


7310 


7317 


737 1 


7455 


7497 


762 1 


7668 


77 1 3 


7716 


77 1 8 


7728 


7730 


7827 


7846 


7866 


793 1 


7932 


7934 


7935 


7938 


7939 


794 1 


7942 


7944 


7945 


7947 


7948 


7950 


795 1 


7953 


7954 


7956 


8310 


8392 


8628 


8797 


8825 


8827 
























718 ft 


2229 


223 1 


2276 


2289 


2290 


2296 


2301 


23 1 6 


23 1 7 


2329 


2340 


2363 


269 1 


2722 


2730 


2752 


2754 


3338 


3454 


3457 


3525 


3526 


3527 


QROC 

oOoO 


3539 


Z) «JZ 


3564 


3594 


"^fi 1 R 
00 1 


OD O Z 


07CA 


00 1 y 


Ooo 1 


000c 

OOOO 


OcJ / 




3996 


4026 


ACSA0 

41/*+ Z 


4nqq 


4736 


4766 


4975 




ROR7 
QUO / 


ZJ I KJKj 


R 1 i A 


r i An 


R 1 44 


R 1 4Q 


R 1 fcA 
Z) I ot 


• 5 1 67 


R 1 77 


cooq 

UZZ;? 


EOOA 
Z3 Z OU 


COCA 
Z) Z Z3\J 


COCO 

z o z 


cqoc 


ccpp 

□ Ooo 


D c? ZO 


oy zo 


cqq 4 


RQ79 


cqqp 


KjKJKJ 1 


f=;o 1 7 


caoo 


UUD Z 


CA7 i 


CA77 


CAO C 

Ovo O 




vj 1 KJKJ 


O 1 1 Z 




cioq 


D 1 *+ Z 


p. 1 7n 
i / \j 


CO /l 7 


COCO 
O ZO Z 


COAA 
O OVJVJ 


OOOO 


cqco 


C07Q 


COQA 


OO i?** 




D4DO 


CCAO 
ODUu 


CCCA 
DDOv 


CCCyt 
O DD*f 


O O tJ 


ooz«+ 


cccc 
DODO 


CC7A 


C70Q 

o / zo 


OOH / 




D zj o. 




7H7p 


7AQ0 


7 1 QQ 


7 1 RQ 


/ 1DD 


7 1 QQ 


70 7Q 
/ Z / 


7004 


7qnq 


70 /to 

/ o 




70/17 


70/iq 
/ ota 


/ oO I 


1 AO i 




7/100 
/ h-Zo 


/ *t Z*+ 


740c 


7426 


7427 


7449 


75 1 9 


7645 


7666 


7666 


7847 


7863 


7933 


7940 


7943 


7946 


7949 


7952 


820 1 


8462 


8508 


85 1 6 


8759 


8765 


8771 


8773 


077c 

O 1 1 Z) 


8777 


8779 


878 1 


8783 


8784 


8785 


88 15 


8834 










725 # 


2420 


2422 


2435 


2457 


2458 


2689 


2724 


2728 


2745 


2747 


277 1 


3114 


3116 


3387 


3529 


3538 


354 1 


3543 


3544 


3545 


3578 


3583 


3586 


3606 


3627 


3640 


377 1 


39 19 


392 1 


3923 


3925 


3927 


3929 


393 1 


3933 


394 1 


396 1 


397 1 


4023 


4039 


4 104 


4105 


4 106 


4 1 28 


4151 


4358 


4397 


4459 


4513 


4636 


48 1 3 


4948 


4956 


5019 


5064 


5099 


5 103 


5290 


529 1 


5294 


5295 


53 19 


5320 


5352 


5353 


54 1 3 


54 14 


5490 


5506 


5609 


56 10 


56 1 7 


5633 


5755 


5790 


5820 


582 1 


5836 


59 1 8 


5940 


6 167 


6 172 


624 1 


6257 


6258 


6264 


6303 


6305 


63 1 2 


63 18 


6327 


6346 


6398 


6401 


6406 


643 1 


6437 


6508 


6602 


6604 


6674 


6678 


6732 


6774 


6778 


6782 


6786 


6790 


6794 


68 10 


6908 


6920 


699 1 


7 000 


700 1 


7002 


7006 


7007 


7008 


7HAQ 

/ KJ\J*J 


70 1 4 


70 1 5 


70 1 6 


7019 


7020 


702 1 


7022 


7023 


7024 


7H9R 




7046 


7086 


7089 


7110 


7115 


7125 


7 1 30 


7 1 37 


7 1 42 


7 183 


7 1 90 


72 1 8 


7240 


725 1 


7335 


7337 


7339 


734 1 


7473 


7675 


7720 


7794 


/ ouo 


7805 


7RH7 


7DOQ 
/ ova 


78 1 1 


7813 


8 1 94 


8 1 97 


8248 


8252 


8255 


O Z vJ W 


84 1 1 


OH O Z 


8469 


8473 


8507 


8511 


85 14 


8525 


8595 


8700 


8705 


87 10 


8716 


8730 


8793 
























1087 # 






38 1 3 


4207 


4707 


4724 


6390 










1351 ■# 


2549 


2550 


2554 


2555 


2559 


2560 


2564 


2565 


OCAO 
ZOwZ 


2603 


0CA7 


2608 


26 1 2 


26 1 3 


2617 


26 1 8 


2622 


2623 


2627 


2628 


2632 


2633 


2637 


2638 


2644 


2645 


2649 


2650 


2654 


2655 


2659 


2660 


2664 


2665 


2669 


2670 


2674 


2675 


2679 


2680 


2799 


2800 


2809 


28 10 


28 1 9 


2820 


2829 


2830 


2834 


2835 


2844 


2845 


2851 


2852 


286 1 


2862 


287 1 


2872 


288 1 


ZOOZ 


289 1 


2892 


290 1 


2902 


29 1 2 


29 1 3 


2922 


2923 


oqqo 

Z Z?oZ 


Z O O 


oq4o 
zy+z 


Z Z3H O 


40R9 


4053 


4066 


4067 


4114 


4115 


4 1 39 


A 1 in 


/OAR 


H- OU / 


*to 1 l 


*+0 1 Z 


526 1 


5262 


5265 


5266 


3 Z \J 


R97H 
ZJ Z 1 \J 


5273 


R974 

OZ / H 


UOAC 

JoUO 


cqn7 


cqi i 

Dolt 


5312 


5335 


5336 


5340 


534 1 


7204 














QR9 # 
r> Z) z ft 


2577 


2947 


3370 


3420 


350 1 


3527 


3536 


3539 




4AQQ 




H 1U 1 


4275 


4279 


432 1 


4365 


4398 


442 1 


4422 


4428 


4449 


447C 
*+*+ / O 


4c -JC 


45 1 7 


45 1 8 


4534 


4536 


4543 


4549 


4580 


46 10 


46 1 5 


4620 


4625 


4637 


4641 


4645 


4647 


4976 


5033 


5050 


5100 


51 19 


5137 


5161 


5249 


5280 


5355 


5358 


5359 


5366 


5377 


5390 


5482 


5484 


5486 


5488 


5499 


5515 


5544 


5583 


5696 


5707 


5714 


5730 


5771 


5776 


5797 


5803 


5837 


5963 


5996 


6010 


6031 


6098 


6134 


6135 


6136 


6183 


6247 


6265 


6268 


6336 


6353 


6361 


6380 


6388 


6389 


6423 


6425 


6428 


6476 


6818 


6939 


6947 


6953 


7261 


7361 


7385 


7398 


7645 


8759 


8819 










697 # 
























700 # 


7003 


7004 


7061 


7093 


7267 
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BYTES 701 tt 



DP 703 tt 


3041- 


4692 


4697 


471 1 


4732 


4791 


4792 


4793 


4794 


4795 


4885 


4886 


4887 


4888 


4889 


6033 


6043 


6525 


6655 


6671 


6843 


6846 


6886 


6888 


6959 






















DP SWAP 704 


2389 


2569 


2716 


2718 


2721 


2724 


2727 


2730 


3269 


3274 


3593 


3770 


3827 


3841 


3959 


481 1 


4937 


4953 


5053 


5093 


5102 


5175 


6400 


6457 


6462 


6463 


6757 


7085 


7337 


7350 


7360 


8402 








EXP 702 tt 


5490 


5506 


5836 


7292 


7293 


7294 












MEM 706 tt 


2161 


2268 


2339 


2352 


2361 • 


2365 


2393 


2404 


2410 


2423 


'3548 


3572 


3587 


3609 


3613 


3617 


3677 


3722 


3759 


3844 


4001 


4764 


4770 


5156 


5205 


5912 


5931 


6351 


6594 


6622 


6898 


6912 


6968 


6976 


6983 


7104 


7222 


7226 


7230 


7234 


7238 


7277 


7317 


7439 


7443 


7455 


7491 


7497 


7587 


7668 


7713 


7716 


7718 


7826 


7841 


7865 


7914 


8245 


8309 


8391 


8627 


8740 


8746 


















PF DISP 699 tt 


8215 






















SCAD DI AG 698 tt 
























VMA 705 tt 


7682 


7925 


8195 


8210 


8726 














tt 707 ft 


2149 


2151 


2153 


2155 


2158 


2178 


2179 


2188 


2191 


2202 


2219 


2238 


2242 


2245 


2248 


2257 


2260 


2263 


2266 


2420 


2422 


2435 


2457 


2458 


2517 


2745 


2747 


2752 


2754 


2771 


3042 


3113 


31 15 


3529 


3538 


3541 


3543 


3544 


3545 


3578 


3580 


3583 


3586 


3592 


3606 


3607 


3621 


3627 


3640 


3725 


3754 


3818 


3833 


3919 


3921 


3923 


3925 


3927 


3929 


3931 


3933 


3939 


3943 


3983 


3987 


3989 


3992 


3994 


4022 


4031 


4037 


4105 


4106 


4358 


4395 


4396 


4406 


4413 


4459 


451 1 


4538 


4544 


4636 


4801 


4943 


4946 


4950 


4969 


4973 


4979 


4983 


5012 


5017 


5050 


5055 


5062 


5106 


51 16 


5212 


5217 


5225 


5232 


5237 


5290 


5291 


5294 


5295 


5319 


5320 


5324 


5352 


5353 


5389 


5393 


5413 


5414 


5508 


5551 


5553 


5609 


5610 


5617 


5633 


5653 


5654 


5673 


5676 


5704 


5706 


5744 


5747 


5750 


5753 


5813 


5820 


5821 


5880 


5882 


5884 


5886 


5888 


5890 


5892 


5894 


5896 


5913 


5915 


5940 


5956 


5959 


5972 


5998 


6001 


6023 


6071 


6077 


6085 


6095 


6097 


6116 


6123 


6142 


6155 


6159 


6166 


6170 


6171 


6179 


6183 


6199 


6241 


6257 


6258 


6264 


6270 


6289 


6302 


6305 


631 1 


6316 


6324 


6326 


6352 


6379 


6383 


6397 


6399 


6405 


6417 


6426 


6431 


6437 


6453 


6465 


6468 


6476 


6488 


6491 


6503 


6507 


6522 


6560 


6564 


6580 


6592 


6597 


6601 


6603 


6618 


6624 


6638 


6658 


6664 


6672 


6675 


6752 


6773 


6777 


6781 


6785 


6789 


6793 


6803 


6809 


6908 


6918 


6985 


6991 


7000 


7001 


7002 


7006 


7007 


7008 


7009 


7014 


7015 


7016 


7019 


7020 


7021 


7022 


7023 


7024 


7025 


7026 


7028 


7031 


7036 


7038 


7051 


7053 


7055 


7057 


7059 


7062 


7064 


7066 


7077 


7087 


7090 


7094 


7108 


7113 


7116 


7120 


7135 


7153 


7154 


7155 


7181 


7189 


7198 


7218 


7240 


7249 


7268 


7282 


7332 


7334 


7335 


7336 


7338 


7340 


7342 


7343 


7344 


7345 


7346 


7348 


7379 


7381 


7392 


7394 


7421 


7422 


7423 


7424 


7425 


7426 


7427 


7428 


7429 


7430 


7431 


7432 


7433 


7434 


7436 


7440 


7448 


7457 


7458 


7469 


7473 


7487 


7493 


7499 


7501 


7515 


7579 


7582 


7590 


7597 


7603 


7617 


7618 


7629 


7635 


7649 


7651 


7665 


7708 


7794 


7803 


7805 


7807 


7809 


781 1 


7813 


7861 


7862 


8192 


8196 


8200 


8201 


8225 


8227 


8241 


8246 


8249 


8250 


8253 


8259 


8267 


8296 


8304 


8315 


8322 


8325 


8340 


8345 


8346 


8394 


8406 


8409 


8413 


8417 


8422 


8424 


8431 


8433 


8434 


8437 


8439 


8459 


8460 


8464 


8467 


8471 


8492 


8505 


8509 


8512 


8513 


8515 


8521 


8528 


8530 


8531 


8532 


8533 


8536 


8571 


8576 


8592 


8598 


8601 


8603 


8606 


8609 


8630 


8640 


8694 


8696 


8698 


8699 


8701 


8703 


8706 


8708 


8712 


8715 


8720 


8728 


8750 


8753 


8771 


8773 


8775 


8777 


8779 


8781 


8785 


8790 


8793 












i 688 tt 
























DBM 694 tt 


2149 


2151 


2153 


2155 


2158 


2161 


2178 


2179 


2188 


2191 


2202 
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2219 


2238 


2242 


2245 


2248 


2257^ 


2260 


2263 


2266 


2268 


2269 


2339 


2339 


2352 


2353 


2361 


2362 


2365* 


2366 


2389 


2393 


2394 


2404 


2405 


2410 


241 1 


2420 


2422 


2423 


2424 


2435 


2457 


2458 


2517 


2569 


2716 


2718 


2721 


2724 


2727 


2730 


2745 


2747 


2752 


2754 


2771 


3041 


3042 


3113 


3115 


3269 


3274 


3529 


3538 


3541 


3543 


3544 


3545 


3548 


3549 


3572 


3573 


3578 


3580 


3583 


3586 


3587 


3588 


3592 


3593 


3606 


3607 


3609 


3613 


3613 


3617 


3617 


3621 


3627 


3640 


3677 


3678 


3722 


3723 


3725 


3754 


3759 


3759 


3770 


3818 


3827 


3833 


3841 


3844 


3845 


3919 


3921 


3923 


3925 


3927 


3929 


3931 


3933 


3939 


3943 


3959 


3983 


3987 


3989 


3992 


3994 


4001 


4002 


4022 


4031 


4037 


4105 


4106 


4358 


4395, 


4396 


4406 


4413 


4459 


451 1 


4538 


4544 


4636 


4692 


4697 


471 1 


4732 


4764 


4765 


4770 


4771 


4791 


4792 


4793 


4794 


4795 


4801 


481 1 


4885 


4886 


4887 


4888 


4889 


4937 


4943 


4946 


4950 


4953 


4969 


4973 


4979 


4983 


5012 


5017 


5050 


5053 


5055 


5062 


5093 


5102 


5106 


5116 


5156 


5157 


5175 


5205 


5206 


521 1 


5217 


5225 


5231 


5237 


5290 


5291 


5294 


5295 


5319 


5320 


5324 


5352 


5353 


5389 


5393 


5413 


5414 


5490 


5506 


5508 


5551 


5553 


5609 


5610 


5617 


5633 


5653 


5654 


5673 


5676 


5704 


5706 


5744 


5747 


5750 


5753 


5813 


5820 


5821 


5836 


5880 


5882 


5884 


5886 


5888 


5890 


5892 


5894 


5896 


5912 


5912 


5913 


5915 


5931 


5931 


5940 


5956 


5959 


5972 


5998 


6001 


6023 


6033 


6043 


6071 


6077 


6085 


6095 


6097 


6116 


6123 


6142 


6155 


6159 


6166 


6170 


6171 


6179 


6183 


6199 


6241 


6257 


6258 


6264 


6270 


6289 


6302 


6305 


631 1 


6316 


6324 


6326 


6351 


6351 


6352 


6379 


6383 


6397 


6399 


6400 


6405 


6417 


6426 


6431 


6437 


6453 


6457 


6462 


6463 


6465 


6468 


6476 


6488 


6491 


6503 


6507 


6522 


6525 


6560 


6564 


6580 


6592 


6594 


6594 


6597 


6601 


6603 


6618 


6622 


6622 


6624 


6638 


6655 


6658 


6664 


6671 


6672 


6675 


6752 


6757 


6773 


6777 


6781 


6785 


6789 


6793 


6803 


6809 


6843 


6846 


6886 


6888 


6898 


6898 


6908 


69 12 


69 13 


6918 


6959 


6968 


6976 


6983 


6983 


6985 


6991 


7000 


7001 


7002 


7003 


7004 


7006 


7007 


7008 


7009 


7014 


7015 


7016 


7019 


7020 


7021 


7022 


7023 


7024 


7025 


7026 


7028 


7031 


7036 


7038 


7051 


7053 


7055 


7057 


7059 


7061 


7062 


7064 


7066 


7077 


7085 


7087 


7090 


7093 


7094 


7104 


7105 


7108 


7113 


7116 


7120 


7135 


7153 


7154 


7155 


7181 


7189 


7198 


7218 


7222 


7222 


7226 


7226 


7230 


7230 


7234 


7234 


7238 


7238 


7240 


7249 


7267 


7268 


7277 


7278 


7282 


7292 


7293 


7294 


7317 


7317 


7332 


7334 


7335 


7336 


7337 


7338 


7340 


7342 


7343 


7344 


7345 


7346 


7348 


7350 


7360 


7379 


7381 


7392 


7394 


7421 


7422 


7423 


7424 


7425 


7426 


7427 


7428 


7429 


7430 


7431 


7432 


7433 


7434 


7436 


7439 


7440 


7443 


7444 


7448 


7455 


7455 


7457 


7458 


7469 


7473 


7487 


7491 


7492 


7493 


7497 


7497 


749-9 


7501 


7515 


7579 


7582 


7587 


' 7588 


7590 


7597 


7603 


7617 


7618 


7629 


7635 


7649 


7651 


7665 


7668 


7668 


7682 


7708 


7713 


7713 


7716 


7716 


7718 


7718 


7794 


7803 


7805 


7807 


7809 


781 1 


7813 


7826 


7827 


7841 


7861 


7862 


7865 


7866 


7914 


7925 


8192 


8195 


8196 


8200 


8201 


8210 


8215 


8221 


8225 


8227 


8241 


8245 


8246 


8249 


8250 


8253 


8259 


8267 


8296 


8304 


8309 


8310 


8315 


8322 


8325 


8340 


8345 


8346 


8391 


8392 


8394 


8402 


8406 


8409 


8413 


8417 


8422 


8424 


8431 


8433 


8434 


8437 


8439 


8459 


8460 


8464 


8467 


84.7 1 


8492 


8505 


8509 


8512 


8513 


8515. 


8521 


8528 


8530 


8531 


8532 


8533 


8536 


8571 


8576 


8592 


8598 


8601 


8603 


8606 


8609 


8627 


8628 


8630 


8640 


8694 


8696 


8698 


8699 


8701 


8703 


8706 


8708 


8712 


8715 


8720 


8726 


8728 


8740 


8746 


8750 


8753 


8771 


8773 


8775 


8777 


8779 


878 1 


8785 


8790 


8793 














692 # 


2173 


2174 


2489 


2495 


2521 


2527 


2533 


2538 


2541 


2591 


2772 


2787 


3022 


3043 


3078 


3111 


3117 


3300 


3387 


3389 


3406 


3429 


3432 


3432 


3435 


3435 


3438 • 


3438 


3441 


3444 


3444 


3447 


3447 


3450 


3450 


3654 


3695 


3701 


3710 . 


3712 


3740 


3746 


3775 


3780 


3808 


3817 


3967 
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3969 


3975 


404 1 


4104 


4128 


4151 


4179 


4187 


4196 


4198 


4209 


4209 


4210 


4211 


4213 


4215 


4437 


4453 


4454 


4455 


4457 


4460 


4479 


4481 


4484 


461 1 


4616 


4621 


4627 


4628 


4629 


4707 


4737 


4892 


5065 


5114 


5134 


5160 


5178 


5203 


5248 


5440 


5446 


5758 


5766* 


5802 


5803 


5804 


581 1 


5963 


6009 


6029 


6036 


6046 


6049 


6084 


6086 


6088 


6122 


6129 


6163 


6205 


6222 


6224 


6259 


6260 


6260 


6272 


6273 


6280 


6282 


6306 


6306 


6309 


6341 


6347 


6358 


6363 


6385 


6386 


6387 


6545 


6546 


6591 


6606 


6679 


6695 


6732 


6821 


6821 


6849 


6890 


6928 


6936 


6943 


6948 


6955 


7251 


7308 


7310 


7371 


7544 


7621 


7663 


7728 


7730 


7732 


7846 


7931 


7932 


7934 


7935 


7938 


7939 


7941 


7942 


7944 


7945 


7947 


7948 


7950 


7951 


7953 


7954 


7956 


8202 


8761 


8797 


8825 


- 8827 






689 ft 


3628 


3642 


3689 


3806 


3812 


3960 


3986 


4216 


6964 


7459 


7471 


8805 
























690 ft 


7418 






















693 ft 


2181 


2289 


2301 


2316 


2329 


2357 


2370 


2371 


2383 


2384 


2588 


2689 


2691 


2722 


2728 


2781 


2814 


2824 


2856 


2866 


2886 


2896 


2906 


2937 


2965 


2968 


2982 


2988 


3000 


3003 


3016 


3087 


3090 


3276 


3291 


3294 


3299 


3370 


3473 


' 3487 


3501 


3509 


3556 


3564 


3679 


3717 


3750 


3772 


3828 


3840 


4057 


4071 


4084 


4087 


4096 


4098 


4101 


41 19 


4147 


4175 


4177 


4189 


4194 


4212 


4214 


4317 


4326 


4327 


4409 


441 1 


4433 


4440 


4450 


4610 


4614 


4615 


4619 


4620 


4624 


4625 


4713 


4717 


4,749 


4757 


4967 


4976 


4977- 


4989 


4993 


5028 


5035 


5040 


5048 


5104 


5113 


5176 


5201 


5283 


5316 


5348 


5412 


5547 


5548 


5558 


5638 


5650 


5693 


5701 


5925 


5928 


5955 


5958 


5973 


5976 


5992 


5996 


6006 


6013 


6022 


6025 


6041 


6045 


6060 


6061 


6062 


6063 


6080 


6094 


6096 


6114 


6127 


6133 


6140 


6146 


6158 


6161 


6178 


6181 


6185 


6189 


6192 


6194 


6201 


6203 


621 1 


6213 


6216 


6252 


6254 


6255 


6267 


6268 


6287 


6292 


6293 


6294 


6315 


6320 


6332 


6338 


6348 


6356 


6361 


6367 


6374 


6380 


6381 


6382 


6403 


6423 


6428 


6433 


6435 


6452 


6510 


6541 


6551 


6554 


6579 


6588 


6590 


6615 


6630 


6692 


6694 


6737 


6738 


6745 


6807 


6812 


6814 


6819 


6823 


6825 


6840 


6842 


6869 


6893 


6895 


6926 


6930 


6934 


6939 


6940 


6945 


6953 


6954 


6957 


7050 


7084 


7152 


7209 


721 1 


7213 


7215 


7217 


7246 


7255 


7260 


7266 


7298 


7299 


7302 


7323 


7533 


7547 


7561 


7563 


7655 


7658 


7660 


7666 


7672 


7674 


7834 


7913 


7918 


7922 


7937 


7955 


7957 


7958 


7960 


8199 


8288 • 


8291 


8318 


8320 


8351 


8358 


8375 


8378 


8397 


8442 


8452 


8454 


8483 


8499 


8539 


8540 


8541 


8547 


8567 


8568 


8574 


8736 


8742 


8751 


8755 


8767 












623 ft 
























624 ft 


2389 


2405 


2489 


2521 


2569 


2716 


2718 


2721 


2724 


2727 


2730 


Till 


3043 


3078 


3269 


3274 


3300 


3387 


3389 


3429 


3432 


3435 


3438 


3441 


3444 


3447 


3450 


3593 


3710 


3712 


3770 


3808 


3827 


3841 


3959 


4104 


4128 


4151 


4209 


4454 


4460 


4629 


4692 


4697 


4707 


471 1 


4732 


4791 


4792 


4793 


4794 


4795 


481 1 


4885 


4886 


4887 


4888 


4889 


4937 


4953 


5053 


5093 


5102 


51 14 


5175 


5178 


5203 


5440 


5446 


5490 


5506 


5766 


581 1 


5836 


6009 


6029 


6033 


6043 


6046 


6086 


6122 


6129 


6163 


6222 


6224 


6259 


6260 


6272 


6273 


6306 


6309 


6341 


6347 


6358 


6363 


6385 


6386 


6387 


6400 


6457 


6462 


6463 


6525 


6546 


6606 


6671 


6679 


6732 


6757 


6821 


6843 


6846 


6849 


6886 


6888 


6890 


6928 


6936 


6943 


6948 


6955 


6959 


7085 


7251 


7337 


7350 


7360 


7544 


7732 


8202 


8402 


626 ft 


2149 


2151 


2153 


2155 


2158 


2161 


2163 


2166 


2175 


2178 


2179 


2180 


2181 


• 2184 


2191 


2194 


2202 


2216 


2219 


2229 


2231 


2238 


2242 


2245 


2248 


2257 


2260 


2263 


2266 


2269 


2276 


2289 


2295 


2301 


2316 


2320 


2329 


2339 


2353 


2357 


2362 


2363 


2366 


2370 


2371 


2394 


2400 


241 1 


2414 


2417 


2420 


2422 


. 2435 


2457 


2458 


2517 


2577 


2588 


2689 


2691 


2722 


2728 


2738 


2740 


2745 


2747 


2752 


2754 


2759 


2761 


2771 
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Cross Reference Listing 



2781 


2804 


2814 


2824 


2839 


2856 


2866 


2876 


2886 


2896 


2906 


2907 


2917 


2927 


2937 


2947 


2965 


2968 


2982 


3016 


3019 


3042 


3271 


3276 


3288 


3291 


3294 


3299 


3338 


3370 


3404 


3420 


3454 


3457 


3473 


3487 


3501 


3509 


3525 


3526 


3529 


3538 


3541 


3543 


3544 


3545 


3549 


3552 


3564 


3573 


3578 


3579 


3580 


3583 


3586 


3588 


3594 


3606 


3613 


3614 


3617 


3621 


3627 


3628 


3632 


3635 


3640 


3642 


3653 


3678 


3679 


3689 


3707 


3717 


3723 


3725 


3750 


3754 


3759 


3772 


3806 


3812 


3818 


3825 


3828 


3830 


3833 


3840 


3845 


3919 


3921 


3923 


3925 


3927 


3929 


3931 


3933 


3939 


3943 


3945 


3960 


3970 


3979 


3983 


3985 


3986 


3989 


3994 


4002 


4022 


4026 


4031 


4037 


4042 


4057 


4071 


4084 


4087 


4091 


4092 


4096 


4098 


4101 


4105 


4106 


41 18 


4124 


4130 


4132 


4133 


4146 


4147 


4 152 


4155 


4156 


4170 


4186 


4200 


4216 


4223 


4316 


4319 


4321 


4325 


4326 


4340 


4346 


4352 


4358 


4375 


4395 


4406 


4407 


4413 


4424 


4430 


4439 


4447 


4459 


4466 


4469 


4518 


4533 


4535 


4536 


4538 


4543 


4544 


4557 


4624 


4625 


4636 


4637 


4639 


4641 


4645 


4646 


4647 


4717 


4730 


4736 


4765 


4771 


4813 


4824 


4909 


4910 


491 1 


4912 


4946 


4955 


4967 


4969 


4977 


4979 


4983 


4986 


5012 


5025 


5035 


5038 


5044 


5055 


5062 


5098 


5101 


5104 


5106 


5113 


5116 


5140 


5142 


5144 


5149 


5164 


5166 


5167 


5176 


5201 


5219 


5225 


5250 


5251 


5252 


5280 


5283 


5286 


5287 


5288 


5290 


5291 


529.4 


5295 


5300 


5316 


5319 


5320 


5326 


5346 


5348 


5352 


5353 


5354 


5355 


5390 


5412 


5413 


5414 


5444 


5448 


5449 


5497 


5499 


5509 


5512 


5514 


5515 


5516 


5527 


5544 


5545 


5558 


5563 


5564 


5571 


5572 


5582 


5607 


5609 


5610 


5614 


5617 


5634 


5645 


5657 


5658 


5687 


5689 


5690 


5695 


5696 


5697 


5705 


5716 


5718 


5732 


5733 


5756 


5772 


5774 


5776 


5791 


5793 


5795 


5797 


5800 


5820 


5821 


5837 


5880 


5882 


5884 


5886 


5883 


5890 


5892 


5894 


5896 


5912 


5915 


5917 


5925 


5926 


5928 


5931 


5940 


5951 


5955 


5958 


5959 


5965 


5967 


5972 


5973 


5974 


5976 


5984 


5992 


5994 


5996 


5998 


6001 


6006 


6010 


6013 


. 6015 


6016 


6017 


6022 


• 6023 


6025 


6031 


6040 


6041 


6045 


6047 


6052 


6060 


6061 


6062 


6063 


6070 


6071 


6075 


6077 


6080 


6085 


6089 


6094 


6096 


6099 


6100 


6101 


61 12 


6114 


6116 


6123 


6127 


6131 


6133 


6134 


6135 


6136 


6141 


6142 


6146 


6155 


6158 


6159 


6161 


6166 


6170 


6171 


6178 


6181 


6185 


6189 


G192 


6194 


6203 


621 1 


6213 


6216 


6219 


6230 


6232 


6241 


6242 


6246 


6247 


6252 


6254 


6255 


6257 


6258 


6262 


6264 


6265 


6267 


6268 


6270 


6287 


6289 


6292 


6293 


6294 


6300 


6302 


6305 


6310 


631 1 


6315 


63.16 


6320 


6322 


6326 


6329 


6332 


6334 


6335 


6336 


6338 


6346 


6343 


6349 


6351 


6352 


6354 


6356 


6361 


6367 


6370 


6374 


6379 


6380 


6381 


6382 


6384 


6388 


6389 


6390 


6394 


6398 


6401 


6403 


6405 


6417 


6421 


6423 


6425 


6426 


6428 


6431 


6433 


6435 


6437 


6439 


6450 


6452 


6456 


6465 


6468 


6502 


6503 


6507 


6510 


6519 


6521 


6526 


6551 


6554 


6560. 


6564 


6579 


6580 


6588 


6590 


6592 


6594 


6597 


6601 


6603 


6615 


6618 


6620 


6622 


6624 


6630 


6638 


6658 


6664 


6669 


6672 


6675 


6677 


6692 


6694 


6728 


6737 


6745 


6754 


6773 


6777 


6781 


6785 


6789 


6793 


6803 


6807 


6809 


6812 


6814 


6818 


6819 


6823 


6825 


6840 


6842 


6845 


6847 


6868 


6869 


6887 


6889 


6898 


6908 


6913 


6918 


6926 


6930 


6934 


6939 


6940 


6944 


6945 


6947 


6951 


6953 


6954 


6957 


6964 


6967 


6975 


6983 


6991 


7000 


7001 


7002 


7003 


7004 


7006 


7007 


7008 


7009 


7010 


7011 


7014 


7015 


7016 


7019 • 


7020 


7021 


7022 


7023 


7024 


'7025 


7026 


7028 


7031 


7036 


7038 


7050 


7051 


7053 


7054 


7055 


7058 


7060 


7061 


7063 


7065 


7077 


7084 


7087 


7090 


7093 


7094 


7096 


7105 


7108 


7113 


7120 


7123 


7128 


7135 


7138 


7140 


7141 


7152 


7153 


7155 


7174 


7181 


7182 


7187 


7189 


7194 


7198 


7199 


7209 


721 1 


7213 


7215 


7217 


7218 


7222 


7226 


7230 


7234 


7238 


7240 


7246 


7249 


7250 


7255 


7256 


7258 


7260 


7261 


7266 


7267 


7268 


7278 


7279 


7282 


7292 


7293 


7294 


7297 


7298 


7299 


7302 


7309 


7317 


7323 


7329 


7333 


7335 


7336 


7339 



T10KL.MCR[ 10, 1 141 ] 



AD*. 5 



AD*2 



PASS 



Q AD 



- uUL Y - 


4 QQ A 

i yo4 


|V| 1 OKU 


3 1 ( 254 ) 


KS 1 


mlCKUCuDh 


V 1 24 , 27 
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Cross 


Reference 


L i s t i ng 












734 1 


7343 


7345 


7347 


7349 


736 1 


7362 


7378 


7379 


738 1 


7385 


7392 


7394 


7398 


742 1 


7422 


7423 


7424 


7425 


7426 


7427 


7428 


7429 


7430 


743 1 


7432 


7433 


7434 


7436 


7440 


7444 


7446 


7448 


7450 


7455 


7459 


7469 


747 1 


7473 


7475 


7485 


7487 


7489 


7492 


7493 


7495 


7497 


7501 


7503 


75 1 5 


75 1 9 


7533 


7547 


7557 


7559 


756 1 


7563 


7566 


7579 


7582 


7588 


759 1 


7597 


7603 


7618 


7629 


7635 


7648 


7655 


7658 


7660 


7666 


7668 


7CTO 


7674 


7675 


7682 


7708 


7713 


7716 


7720 


7722 


7794 


7803 


70AC 


7QA7 


7809 


78 1 1 


78 1 3 


7827 v 


7834 


7844 


7847 


786 1 


7862 


7866 


7913 


~7 Q 4 O 


7922 


7925 


7933 


7937 


7940 


7943 


7946 


7949 


7952 


7955 


7957 


7958 


7960 


8192 


8 1 95 


8 1 96 


8 1 99 


820 1 


8210 


822 1 


8225 


8227 


O O A 4 


8246 


8250 


8253 


8259 


826 1 


8267 


8288 


829 1 


8296 


8304 


8310 


8318 


8320 


8346 


8349 


835 1 


8375 


8378 


8392 


8397 


8406 


8409 


8424 


843 1 


8434 


8442 


8452 


8454 


8460 


8467 


847 1 


8496 


8499 


8505 


8508 




oD 1 o 


8515 


8517 


8520 


852 1 


8528 


8530 


8532 


8536 


8539 


8540 


854 1 


8547 


8568 


8570 


8574 


8592 


8594 


8628 


8639 


8696 


8699 


8703 


8708 


87 1 5 


8720 


8726 


8728 


873 1 


8736 


8742 


8750 


875 1 


8755 


8759 


8765 


8767 


8769 


877 1 


8773 


8775 


8777 


8779 


878 1 


8783 


8784 


8785. 


8790 


8793 


8805 


88 1 5 


88 1 7 


88 1 9 


8830 


8834 










633 # 


2 1 52 


2424 


2426 


2427 


2984 


2988 


3000 


3003 


3005 


3006 


3010 


304 1 


3093 


3096 


4 168 


4 1 69 


4 1 75 


4177 


4187 


4 189 


4 194 


4225 


4387 


4409 


44 1 5 


4546 


4547 


4548 


4554 


4804 


48 1 5 


489 1 


4940 


4943 


4950 


4959 


536 1 


5369 


537 1 


5376 


5377 


5436 


5485 


5487 


5503 


5504 


5523 


5524 


5529 


5547 


5548 


555 1 


5553 


5638 


5639 


5646 


5650 


5653 


5654 


5672 


5693 


570 1 


5704 


5706 


5830 


584 1 


6464 


6467 


647 1 


6473 


6553 


6655 


666 1 


6668 


673 1 


7178 


7 180 


7 1 88 


7 195 


7 197 


7499 


7502 


7520 


7595 


760 1 


8264 




















631 # 


1 1 DO 


2972 


2995 


3008 


301 1 


3038 


4 1 23 


4 1 50 


4206 


4449 


4589 


A 1 4 O 

4 / 1 d 


bUbO 


5059 


5212 


5232 


5243 


5356 


5359 


5364 


5439 


6201 


6202 


6458 


6642 


6748 


7 1 32 


7 1 47 


7 1 49 


7447 


7483 


7627 


7633 


7724 


8326 


8329 


8363 


8502 




















628 # 


2 1 60 


2 1 68 


2 1 70 


2171 


2 1 74 


2 1 76 


2 1 77 


2 183 


2 185 


2228 


2232 


2250 


2307 


2334 


2343 


2430 


2495 


2527 


2533 


2538 


254 1 


259 1 


2787 


2788 


3111 


3326 


3406 


3453 


3458 


3532 


3568 


3630 


364 1 


3663 


3695 


3701 


3730 


3735 


3740 


3746 


3775 


3780 


38 14 


38 1 7 


3842 


3967 


3969 


3975 


404 1 


4 1 26 


4 1 54 


4 1 96 


42 1 1 


4213 


42 1 5 


42 1 8 


4393 


4437 


4457 


A A TO 

44 /9 


A A O 4 

44o 1 


4484 


46 1 1 


46 1 6 


462 1 


4627 


4628 


4690 


4693 


4702 


4737 


4753 


476 1 


4892 


4949 


4962 


4972 


4982 


5014 


5094 


5122 


5 1 30 


5246 


5758 


5802 


5803 


5804 


5922 


5929 


5935 


5938 


5963 


5968 


5985 


6030 


6056 


6057 


6058 


6073 


6 104 


6 1 20 


6 143 


6 1 56 


6174 


6205 


6295 


6297 


6353 


6359 


6372 


6378 


6455 


65 1 1 


6577 


6589 


659 1 


663 1 


6695 


6725 


6894 


6896 


69 1 4 


693 1 


6965 


7029 


7032 


7072 


7 102 


7 1 57 


7223 


7227 


7231 


7235 


7239 


7253 


7264 


7285 


7288 


7295 


7308 


73 10 


7318 


7319 


7352 


7370 


737 1 


7376 


7403 


7404 


7454 


75 18 


7585 


7620 


762 1 


7623 


7652 


7667 


7686 


7692 


7694 


7726 


7728 


7730 


7823 


783 1 


7839 


7846 


7858 


79 1 1 


7926 


793 1 


7932 


7934 


7935 


7936 


7938 


7939 


794 1 


7942 


7944 


7945 


7947 


7948 


7950 


795 1 


7953 


7954 


7956 


7959 


8 198 


8208 


8209 


8211 


8212 


82 1 6 


8219 


8229 


823 1 


8233 


8235 


8239 


8240 


8293 


830 1 


8306 


838 1 


8383 


8386 


8404 


8526 


8542 


8623 


8725 


8794 


8797 


8825 


8827 






















627 # 


2383 


298 1 


3087 


3113 


3115 


4119 


4 1 45 


4 184 


4204 


42 1 2 


4214 


4224 


4o I / 


4327 


4386 


4396 


4398 


44 1 1 


4433 


4436 


4438 


4440 


445 1 


4464 


4465 


4468 


4475 


4483 


451 1 


4516 


4517 


4534 


4559 


4610 


4614 


4615 


4619 


4620 


4819 


4895 


4902 


4964 


4973 


4976 


4993 


5017 


5033 


5040 


5100 


5157 


5206 


5217 


5222 


5237 


5240 


5297- 


5321 


5324 


5368 


5379 


5391 


5395 


5397 


5398 


541 1 


5424 


5482 


5484 


5486 


5488 


5556 
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Cross 


Reference 
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5565 


5568 


5573 


5583 


5588 


5628 


5633 


5643 


5656 


5662 


5674 


5677 




5707 


57 12 


57 17 


57 19 


5730 


5754 


5770 


577 1 


5789 


598 1 


6 140 


654 1 




7718 
























Q_Q* . 5 


632 # 


2384 


2385 


307 1 


3090 


3099 


3 143 


4 120 


4 148 


4227 


4248 


4249 




4261 


4268 


4276 


4286 


4294 


4389 


4391 


4399 


4403 


44 19 


4434 


444 1 




4493 


4541 


504 1 


5208 


5228 


5229 


5230 


5244 


5299 


5322 


5327 


5402 




5404 


5434 


5577 


5602 


5605 


5613 


5616 


5618 


5632 


5667 


5708 


5722 




5748 


5751 


5785 


5787 . 


5833 
















Q_0*2 


630 # 


2991 


3072 


3075 


3076 


3077 


3 102 


3106 


3109 


3 144 


3147 


3 148 




4272 


4280 


4290 


4298 


4435 


4445 


4473 


4476 


4549 


4552 


4553 


4556 




4558 


4580 


4583 


4595 


4600 


4820 


4823 


4896 


4899 


4904 


5223 


5224 




5481 


5493 


5501 


5505 


5579 


5584 


5586 


5598 


5600 


5601 


5630 


567 1 




5675 


"5724 


574 1 


5763 


5780 


5808 


5983 












DISP 


862 # 


4561 








\ 














ADISP 


869 
























AREAD 


865 # 


2321 






















BDISP 


870 # 


2569 


2575 


2689 


2691 


2724 


2730 


2738 


2740 


2759 


2761 


2804 




2814 


2824 


2856 


2866 


2886 


2896 


2907 


2917 


2947 


327 1 


3277 


3370 




3389 


3390 


3473 


3487 


3501 


35 1 1 


3696 


3703 


374 1 


4058 


4072 


4 124 




4130 


4153 


4 1 55 


5207 


5436 


5444 


5448 


5494 


5506 


55 16 


5523 


5927 




5969 


6113 


6 168 


6375 


6729 


6801 


6808 


7533 


7560 


7578 


7589 


76 16 




8518 


88 18 






















BYTE 


875 # 


4705 


4722 


6 150 


6853 


6874 














CONSOLE 


863 # 
























DP 


868 # 


4427 


4429 


4446 


4471 


6474 


6501 


876 1 










DP LEFT 


866 # 


6460 


6755 


74 19 


8217 
















DROM 


864 # 


2354 


2358 


2367 


2372 


2380 


2401 


2407 


2431 


2436 


5336 


5939 


EAMODE 


876 # 


2279 


2345 


3554 


4744 


4747 


5923 


6891 


6899 


7657 






MUL 


872 # 


4268 


4276 


4286 


4294 


5580 


5606 


5608 


5725 








NICOND 


874 ff 


2228 


2229 


2231 


2232 


2292 


2298 


2522 


3043 


3089 * 


3117 


3326 




3338 


3429 


3453 


3454 


3457 


3458 


3525 


3526 


3552 


3594 


37 1 1 


3787 




3794 


42 18 


4482 


4485 


4693 


5440 


5446 


5805 


7352 


7623 


8202 




NORM 


867 # 


5300 


5329 


5406 


548 1 


5483 


5493 


5497 


5499 


5501 


5502 


5505 




5527 


5678 


5732 


5733 


5743 


5745 


5765 


5775 


5777 


5782 


5783 


58 10 




5839 
























PAGE FAIL 


873 # 
























RETURN 


871 # 


2457 


2458 


3559 


3563 


4024 


4027 


4230 


4273 


428 1 


429 1 


4299 




4493 


4515 


45 16 


4518 


4602 


4629 


4731 


4733 


4737 


4772 


4805 


4824 




4892 


5106 


5243 


5244 


5526 


5528 


5529 


5618 


58 1 3 


5820 


582 1 


5836 




6225 


6235 


6240 


6243 


6281 


6282 


6432 


6438 


6609 


6632 


6697 


6728 




6740 


6771 


6787 


6804 


6813 


68 15 


6841 


6876 


6909 


6915 


6920 


6960 




7199 


7265 


7289 


7364 


7408 


7516 


7519 


7591 


7598 


7604 


766 1 


7669 




7673 


7676 


7702 


77 14 


77 16 


7718 


7720 


7722 


7724 


7726 


7728 


7730 




7732 


7923 


7927 


7961 


8548 


8570 


8575 


858 1 


86 1 2 


8615 


86 16 


8629 




8638 


8641 


8642 


8746 


8834 
















5CAD0 


877 # 


4692 


4697 


47 1 1 


4787 


5283 


5426 


5428 


598 1 


5983 


6034 


6844 




6886 


7688 






















DIVIDE 


963 ■# 


4552 


4553 


4597 


4601 
















DONT CACHE 


1 133 # 
























DP FUNC 


1150 # 


7585 


7620 


7726 


8527 


8543 














DT 


932 # 
























21 


• 935 # 
























31 


936 # 


2181 


2371 


2383 


2384 


2494 


2526 


2532 


2537 


2540 


2590 


2781 




2787 


2988 


3000 


3003 


3017 


3087 


3090 


3332 


3335 


3344 


3347 


3406 




3435 


3438 


3447 


3450 


3592 


3592 


3607 


3607 


3694 


3700 


3739 


3745 
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; Cross Reference Listing 







3816 


3966 


3968 


3974 


3987 


3992 


4040 


4084 


4096 


4122 


4127 


4189 






4194 


4212 


4214 


4327 


4329 


4331 


4335 


4349 


4388 


4394 


4409 


441 1 






4423 


4433 


4440 


4453 


4534 


4610 


4612 


4614 


4615 


4617 


4619 


4620 






4622 


4638 


4645 


4692 


4697 


4705 


471 1 


4713 


4722 


4737 


4892 


4963 






4967 


4976 


4977 


4992 


5022 


5035 


5040 


5104 


5133 


5159 


5176 


5248 






5300 


5329 


5346 


5366 


5372 


5374 


5406 


5447 


5481 


5483 


5489 


5493 






5497 


5499 


5501 


5502 


5505 


5508 


5513 


5527 


5548 


5650 


5669 


5673 






5676 


5678'"' 


5690 


5701 


5720 


5732 


5733 


5743 


5744 


5745 


5747 


5750 






5753 


5762 


5765 


5771 


5775 


5777 


5782 


5783 


5807 


5810 


5813 


5831 






5839 


5913 


5955 


5956 


5973 


5976 


5992 


5996 


6006 


6013 


6022 


6025 






6041 


6045 


6060 


6061 


6062 


6063 


6080 


6094 


6095 


6097 


61 14 


6127 






6133 


6137 


6140 


6146 


6150 


6161 


6178 


6179 


6181 


6185 


6189 


6190 






6192 


6194 


6199 


6201 


6203 


621 1 


6213 


6216 


6252 


6254 


6255 


6266 






6267 


6268 


6269 


6287 


6293 


6320 


6324 


6332 


6337 


6338 


6348 


6356 






6361 


6367 


6374 


6380 


6381 


6382 


6383 


6397 


6399 


6403 


6453 


6488 






6491 


6510 


6541 


6545 


6551 


6554 


6558 


6579 


6588 


6590 


6591 


6595 






6615 


6616 


6630 


6692 


6694 


6737 


6738 


6739 


6745 


6752 


6807 


6812 






6814 


6819 


6823 


6825 


6840 


6842 


6853 


6869 


6874 


6926 


6930 


6934 






6939 


6940 


6945 


6953 


6954 


6957 


7003 


7004 


7050 


7057 


7059 


7061 






7062 


7064 


7066 


7084 


7093 


7152 


7209 


721 1 


7213 


7215 


. 7217 


7246 






7255 


7260 


7262 


7266 


7267 


7296 


7298 


7299 


7302 


7308 


7310 


7323 






7332 


7334 


7338 


7340 


7342 


7344 


7346 


7348 


7371 


7585 


7590 


7617 






7620 


7621 


7649 


7651 


7655 


7658 


7660 


7665 


7672 


7674 


7726 


7728 






7730 


7846 


7913 


7918 


7919 


7922 


7931 


7932 


7934 


7935 


7937 


7938 






7939 


7941 


7942 


7944 


7945 


7947 


7948 


7950 


7951 


7953 


7954 


7955 






7956 


7957 


7958 


7960 


8199 


8200 


8249 


8288 


8289 


8291 


8292 


8315 






8318 


8320 


8322 


8325 


8340 


8345 


8351 


8375 


8376 


8378 


8379 


8394 






8397 


8413 


8417 


8422 


8433 


8437 


8439 


8442 


8452 


8454 


8459 


8464 






8492 


8499 


8512 


8531 


8533 


8539 


8540 


8541 


8547 


8568 


8571 


8574 






8576 


8598 


8601 


8603 


8606 


8609 


8630 


8640 


8694 


8698 


8701 


8706 






8712 


8736 


8742 


8751 


8753 


8755 


8767 


8796 


8825 


8827 








4T 


937 ff 


8358 


8483 


8567 




















5T 


938 ff 
























(U) 


EXT ADR 


1 156 # 


3965 


3979 


3999 


4026 


6972 


6980 


7454 


7496 


7585 


7620 


7726 






7844 


7847 


7930 


7933 


7940 


7943 


7946 


7949 


7952 


8294 


8302 


8308 






8388 


8625 


8795 


8831 


8834 
















(u) 


FETCH 


1 122 ff 


2228 


2229 


2231 


2232 


2251 


2277 


2291 


2297 


2344 


2405 


2430 






3020 


3326 


3338 


3453 


3454 


3457 


3458 


3525 


3526 


3552 


3594 


3709 






4218 


4693 


4702 


7352 


7623 


7859 


8753 












(D ) 


FL-B 


1339 ff 


























AC 


1340 ff 
5339 


5260 
5384 


5263 
5385 


5264 
5419 


5268 
5420 


5271 


5272 


5305 


5309 


5310 


5334 


5338 




BOTH 


1342 ff 


5262 


5266 


5270 


5274 


5307 


5312 


5336 


5341 










MEM 


1341 H 


5261 


5265 


5269 


5273 


5306 


531 1 


5335 


5340 








(U) 


FLG.C 


1305 ff 


8247 


8512 


8533 


8640 


8697 


8700 












(U) 


FLG.PI 


1304 ff 
8793 


3622 


8325 


8345 


8413 


8422 


8439 


8576 


8601 


8606 


8630 


8694 


(u) 


FLG.SN 


1306 ff 


5508 


5609 


5610 


5617 


5744 


5747 


5750 


5753 


5813 


5820 


5821 


(U) 


FLG. W 


1303 ff 


8247- 


8433 


8472 


8531 


8640 


8697 


8709 










(U) 


FMWRITE 


958 ff 


2160 


2168 


2170 


2171 


2173 


2174 


2176 


2177 


2183 


2185 


2489 






2521 


2772 


3022 


3043 


3078 


311 1 


31 17 


3300 


3389 


3429 


3432 


3435 






3438 


3441 


3444 


3447 


3450 


3663 


3710 


3712 


3775 


3780 


3808 


4179 






4187 


4196 


4198 


4209 


4210 


421 1 


4213 


4215 


4437 


4453 


4454 


4455 






4457 


4460 


4479 


4481 


4484 


461 1 


4616 


4621 


4627 


4628 


4629 


4690 






4707 


4949 


4962 


4972 


4982 


5014 


5065 


5114 


5178 


5203 


5440 


5446 
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(U) FORCE EXEC 



(U) FORCE USER 



(U) GENL 



(U) GENR 



(U) HALT 

BW14 

CSL 

HALT 

ILLII 

ILLINT 

IOPF 

MULERR 

NICOND 5 







1984 


MICRO 


31(254 


5758 




5766 


5802 


5803 


6009 




6029 


6030 


6036 


6088 




6104 


6120 


6122 


6259 




6260 


6272 


6273 


6353 




6358 


6359 


6363 


6679 




6695 


6725 


6821 


6955 




6965 


7072 


7157 


7288 




7318 


7319 


7403 


791 1 




7926 


7936 


8198 


8233 




8235 


8239 


8240 


1 120 




3965 


3979 


3999 


7496 




7504 


7579 


7582 


7940 




7943 


7946 


7949 


8834 










1 1 19 




3965 


3979 


3999 


7582 




7618 


7629 


7635 


7949 




7952 


8294 


8302 


720 ft 




2229 


2231 


2276 


2363 




2691 


2722 


2730 


3536 




3539 


3552 


3564 


3991 




3996 


4026 


4042 


5140 




5144 


5149 


5164 


5925 




5928 


5931 


5972 


6089 




6100 


61 12 


6116 


6379 




6390 


6394 


6450 


6728 




6847 


• 6889 


6898 


7284 




7309 


7343 


7345 


7426 




7427 


7449 


7519 


7946 




7949 


• 7952 


8201' 


8777 




8779 


8781 


8783 


727 # 


2420 


2422 


2435 


31 14 




3116 


3387 


3529 


3606 




3627 


3640 


3771 


3941 




3961 


3971 


4023 


4459 




4513 


4636 


4813 


5294 




5295 


5319 


5320 


5617 




5633 


5755 


5790 


6257 




6258 


6264 


6303 


6431 




6437 


' 6508 


6602 


6790 




6794 


6810 


6908 


7009 




7014 


7015 


7016 


7046 




7086 


7089 


7110 


7240 




725 N 1 


7335 


7337 


7807 




7809 


781 1 


7813 


8469 




8473 


8507 


8511 


8793 










1282 










1292 




2517 






1286 




2248 


2266 




1285 




3580 






1289 




7469 






1290 


# 


7501 






1288 


# 


8750 






1294 


ft 


2191 






1293 


n 









KS10 


MICROCODE 


V124, 27 


-JUL- 


Cross 


Reference 


L i st i ng 




5804 


581 1 


5922 


5935 


6046 


6049 


6056 


6057 


6129 


6143 


6156 


6163 


6280 


6282 


6295 


6297 


6372 


6378 


6385 


6386 


6849 


6890 


6914 


6928 


7223 


7227 


7231 


7235 


7404 


7544 


.7652 


7686 


8202 


8208 


8209 


82 1 1 


8381 


8383 


8404 


8725 


4026 


6972 


6980 


7440 


7618 


7629 


7635 


7844 


7952 


8294 


8302 


8308 


4026 


6972 


6980 


7440 


7844 


7847 


7861 


7930 


8308 


8388 


8625 


8795 


2289 


2290 


2296 


2301 


2752 


2754 


3338 


3454 


3594 


3618 


3632 


3760 


4093 


4736 


4766 


4975 


5167 


5177 


5229 


5230 


5998 


6001 


6017 


6023 


6123 


6142 


6170 


6247 


6456 


6503 


6560 


6564 


7052 


7078 


7092 


7139 


7347 


7349 


7361 


7421 


7645 


7666 


7666 


7847 


8462 


8508 


8516 


8759 


8784 


8785 


8815 


8834 


2457 


2458 


2689 


2724 


3538 


3541 


3543 


3544 


3919 


3921 


3923 


3925 


4039 


4104 


4105 


4106 


4948 


4956 


5019 


5064 


5352 


5353 


5413 


5414 


5820 


5821 


5836 


5918 


6305 


6312 


6318 


6327 


6604 


6674 


6678 


6732 


6920 


6991 


7000 


7001 


7019 


7020 


7021 


7022 


71 15 


7125 


7130 


7137 


7339 


734 1 


7473 


7675 


8194 


8197 


8248 


8252 


8514 


8525 


8595 


8700 
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5938 


5963 


5968 


5985 


6058 


6073 


6084 


6086 


6174 


6205 


6222 


6224 


6306 


6309 


6341 


6347 


6387 


6546 


6577 


6606 


6931 


6936 


6943 


6948 


7239 


7253 


7264 


7285 


7692 


7694 


7732 


7839 


8212 


8219 


8229 


8231 


7454 


7456 


7470 


7487 


7847 


7861 


7930 


7933 


8388 


8625 


8795 


8831 


7454 


7487 


7496 


7579 


7933 


7940 


7943 


7946 


8831 


8834 






2316 


2317 


2329 


2340 


3457 


3525 


3526 


3527 


3819 


3831 


3835 


3979 


5034 


5057 


5106 


5118 


5250 


5252 


5325 


5588 


6052 


6071 


6077 


6085 


6262 


6300 


6335 


6352 


6599 


6624 


6665 


6670 


7153 


7155 


7199 


7279 


7422 


7423 


7424 


7425 


7863 


7933 


7940 


7943 


8765 


8771 


8773 


8775 


2728 


2745 


2747 


2771 


3545 


3578 . 


3583 


3586 


3927 


3929 


3931 


' 3933 


4128 


4151 


4358 


4397 


5099 


5103 


5290 


5291 


5490 


5506 


5609 


5610 


5940 


6167 


6172 


6241 


6346 


6398 


6401 


6406 


6774 


6778 


6782 


6786 


7002 


7006 


' 7007 


7008 


7023 


7024 


7025 


7026 


7142 


7183 


7190 


7218 


7720 


7794 


7803 


7805 


8255 


8260 


841 1 


8432 


8705 


8710 


8716 


8730 



; T10KL.MCR[ 10, 1 141 ] 


15:34 27-UULY 




1984 


MICRO 


31 ( 254 ) 


KS 10 


MICROCODE 


V 1 24 , 27 


- JUL-84 


Page 


266 






; 














Cross 


Reference 


L i s t i ng 














POWER 


1284 


ft 


22 19 






















(u) 


HOLD USER 


1089 


ft 


22 1 7 


2578 


3404 


3420 


3487 


3501 


3558 


3562 


3598 


3620 


3690 






3702^ 




3758 


3788 


3792 


3807 


38 1 3 


4005 


4058 


4072 


4089 


4099 


4 102 






4 1 32 




4 1 33 


4 1 57 


4207 


4219 


4229 


4232 


4339 


4374 


4405 


449 1 


4640 






4642 




4707 


4724 


4746 


4998 


5350 


5362 


5427 


57 1 5 


6389 


6390 


6989 


(D) 


I 


1 347 


ft 


2548 


2553 


2558 


2563 


2601 


2606 


26 1 1 


26 16 


262 1 


2626 


263 1 






2636 




2643 


2648 


2653 


2658 


2663 


2668 


2673 


2678 


2797 


2798 


2799 






2800 




2808 


28 1 8 


2828 


2833 


2843 


2850 


2860 


2870 


2880 


2889 


2890 






289 1 




2892 


2900 


29 1 1 


292 1 


293 1 


2940 


294 1 


2942 


2943 


2955 


2956 






3 1 75 




3 1 76 


3 1 77 


3 1 78 


3 1 79 


3 180 


3181 


3182 


3 184 


3 185 


3193 


3 194 






3 195 




3 196 


3 1 97 


3 1 98 


3 1 99 


3200 


32 1 1 


32 1 2 


32 1 3 


32 1 4 


32 1 5 


3216 






3217 




3218 


3228 


3229 


3230 


323 1 


3232 


3233 


3234 


3235 


3350 


335 1 






3352 




3353 


3354 


3355 


3356 


3357 


3462 


3463 


3464 


3465 


3466 


3467 






3468 




3469 


3476 


3477 


3478 


3479 


3480 


348 1 


3482 


3483 


3490 


349 1 






3492 




3493 


3494 


3495 • 


3496 


3497 


3504 


3505 


35 16 


35 1 8 


3669 


3670 






3671 




3672 


3766 


3799 


3800 


3801 


3802 


3852 


3853 


3854 


3855 


3856 






3857 




3858 


3859 


3863 


3864 


3665 


3866 


3867 


3868 


3869 


3870 


387 1 






3872 




3873 


3874 


3875 


3876 


3877 


3878 


3879 


3880 


388 1 


3882 


3883 






3884 




3885 


3886 


3887 


3888 


3889 


3890 


389 1 


3892 


3893 


3894 


3898 






3899 




3900 


3901 


3905 


3906 


3907 


3908 


3909 


39 10 


39 1 1 


39 1 2 


39 1 3 






39 1 4 




39 1 5 


405 1 


4065 


4113 


4 1 3& 


4305 


43 10 


5 109 


5385 


5849 


5850 






585 1 




5852 


5853 


5854 


5855 


5857 


5858 


5859 


5860 


5862 


5863 


5864 






5865 




5867 


5868 


5869 


5870 


587 1 


5872 


5873 


5874 


5908 


7737 


7738 






7739 




774 1 


7742 


7744 


7745 


7747 


7748 


7749 


7750 


775 1 


7752 


7753 






7754 




7756 


7757 


7758 


7759 


7760 


776 1 


7762 


7763 


7765 


7766 


7767 






7768 




7769 


7770 


777 1 


7772 


7774 


7775 


7776 


7777 


7778 


7779 


7780 






778 1 




7783 


7784 


7785 


7786 


7787 


7788 


7789 


7790 








(U) 


I . C03 


1 1 84 


ft 
























(u) 


I .C04 


1185 


ft 
























(u) 


I .C05 


1 1 86 


ft 
























(u) 


I .C06 


1 187 


ft 
























(U) 


I .C07 


1 188 


ft 
























(u) 


10 BYTE 


1 163 


ft 


7580 


7630 


7636 


















(u) 


10 CYCLE 


1 163 


ft 


7440 


7487 


7579 


7582 


7618 


7629 


7635 


786 1 








(u) 


J 


525 ft 


232 1 


2354 


2358 


2367 


2372 


2380 


2401 


2407 


243 1 


2436 


2457 






2458 




3559 


3563 


4024 


4027 


4230 


4273 


428 1 


429 1 


4299 . 


4493 


45 1 5 






4516 




4518 


4562 


4602 


4629 


473 1 


4733 


4737 


4772 


4805 


4824 


4892 






5106 




5243 


5244 


5526 


5528 


5529 


56 18 


58 13 


5820 


5821 


5836 


5936 






5939 




6225 


6235 


6240 


6243 


628 1 


6282 


6432 


6438 


6609 


6632 


6697 






6728 




6740 


677 1 


6787 


6804 


6813 


6815 


684 1 


6876 


6909 


6915 


6920 






6960 




7 199 


7265 


7289 


7364 


7408 


75 16 


75 19 


7591 


7598 


7604 


766 1 






7669 




7673 


7676 


7702 


7714 


7716 


77 1 8 


7720 


7722 


7724 


7726 


7728 






7730 




7732 


7855 


7923 


7927 


796 1 


8548 


8570 


8575 


858 1 


86 1 2 


86 1 5 






8616 




8629 


8638 


864 1 


8642 


8746 


8834 














ABORT 


8746 


ft 


3946 


8727 






















ACBSET 


7120 


ft 


7112 
























AC ARX 


7732 


ft 


3832 


6946 






















ADD 


4057 


ft 


4050 


405 1 


4052 


4053 


















ADDCRY 


6240 


ft 


62 1 5 


622 1 


6234 




















ADUBP 


4937 


ft 


469 1 
























ADUBPO 


4940 


ft 


4942 
























ADUBP 1 


4959 


ft 


4961 
























AdUBP2 


4969 


ft 


4966 
























ADUBP3 


5012 


ft 


4997 
























ADUBP4 


5024 


ft 


5036 
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ADJBP5 


5038 


# 


5032 
















ADJBP6 


5059 




506 1 
















ADUSP 


3770 




3766 
















ADUSP1 


3787 




3779 
















ADJSP2 


3792 




3784 
















AND 


2814 


# 


2807 


2808 


2809 


2810 


2839 








ANDCA 


2824 


ft 


2817 


2818 


2819 


2820 


2876 








ANDCB 


2876 


ft 


2869 


2870 


2871 


2872 










ANDCM 


2839 


# 


2832 


2833 


2834 


2835 










AOBU 


3509 


ft 


3504 


3505 




« 










AOJ 


3487 


ft 


3476 


3477 


3478 


3479 


3480 


3481 


3482 


3483 


AOS 


3404 


ft 


3393 


3394 


3395 


3396 


3397 


3398 


3399 


3400 


APRID 


7036 


ft 


















APRSO 


7028 


ft 


7004 
















APRSZ 


7031 


ft 


7003 
















ARSIGN 


2457 


ft 


2399 
















ASH 


2981 


ft 


2952 
















ASHC 


3084 


ft 


2956 
















ASHC1 


3090 


ft 


3088 
















ASHCL 


3106 


# 


3095 


3108 














ASHCQ1 


3117 




3078 


3114 














ASHCR 


3099 




3101 
















ASHCX 


311 1 




3103 
















ASHL 


2991 


ft 


2991 
















ASHLO 


2988 


# 


2981 
















ASHR 


2984 




2970 
















ASHX 


2995 




3008 
















ASHXX 


3008 


#. 


3013 ' 
















BACKBP 


6959 




6927 


6935 














BACKD 


6934 




8776 


8784 


8786 












BACKS 


6926 




8783 
















BADDATA 


8238 




8223 
















BDABT 


6403 




6339 
















BDCFLG 


6405 


# 


6384 
















BDEC 


6287 


# 


















BDECO 


6293 


n 


6291 
















BDEC 1 


6300 


#. ' 


6309 




- 












BDEC2 


6305 


'# 


6313 
















BDEC3 * 


6315 


# 


6301 


6323 














BDEC4 


6320 




6315 
















BDEC5 


6332 




6318 


6328 














BDECLP 


6370 




6389 
















BDFILL 


6354 


# 


6363 
















BDSET 


6378 




6398 


6401 














BDSUB 


6417 


# 


6321 


6371 














BDSUB1 


6421 




6418. 
















BDSUB 2 


6437 


# 


6440 
















BDTBL 


6394 


# 


6377 
















BITCHK 


6908 




5914 


5957 


6095 


6097 


6454 








BIXUB 


7557 




7550 


7551 


7552 


7553 










BIXUB1 


7566 


# 


7562 


7564 














BLT 


5113 


# 


5109 
















BLT-CLEANUP 


5174 


# 


8768 
















BLTBU1 


5228 


# 


5209 
















BLTCLR 


5133 




5148 


















O 
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BLTGOT 

BLTGO 

BLTLP 

BLTLP1 

BLTX 

BLTXLP 

BLTXV 

BLTXW 

BOTH 

BWRITE 



BYTEAS 

BYTEA 

BYTEAO 

BYTFET 

BYTIND 

CAIM 

CHKSN 

CLARXL 

CLARXO 

CLDISP 

CLEANED 

CLEANUP 

CLRB1 

CLRBIN 

CLRFLG 

CLRPTL 

CLRPT 

CLRSN 

CMPDST 

CMS 

CMS2 

CMS3 

CMS4 

CMS5 

CMS6 

CMS 7 

CMS8 

CMSDST 

COMO 

COMOA 

C0M1 

C0M1A 

COM2 

C0M2A 

CONSO 

CONSZ 

CONT 

C0NT1 

CPYSGN 

DAC 

DADD 

DADD1 



5161 ft 

5159 # 

5156 ft 

5122 ft 

5201 ft 

5205 ft 

5240 ft 

5246 tt 

2329 ft 

2468 ft 
2814 
4130 

4744 tt 

4746 tt 

4749 tt 

4770 tt 

4764 tt 

3370 tt 
3363 
5813 
7720 
6431 
8761 
8764 
8763 

6282 tt 

6280 ft 

6918 ft 

7385 tt 

7376 ft 

5821 tt 

6146 tt 

6094 ft 

6135 ft 
6111 
6114 
6140 
6126 
6131 
6142 

6930 ft 

4629 tt 

4624 ft 

4628 tt 

4619 tt 

4627 # 

4614 # 

7029 ft 

7032 # 

7858 tt 

7865 # 

4104 

2489 tt 

4084 # 

4087 ft 



5136 
5125 
5171 
5158 
7800 
5254 
5226 
5241 

2569 
2824 
4153 
4768 
4701 
4745 
4752 
4760 
3351 
3364 
5794 
5097 
4640 
6928 
5179 
8761 
6280 
6165 
5961 
7388 

5599 
6126 

6105 
6137 

61 19 
6143 
6128 
6140 
8782 
4624 
4628 
4619 
4627 
4614 

701 1 
7010 
78*53 
4045 
4090 
2496 
4079 
4093 
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2575 


2689 


2691 


2856 


2866 


2886 


4155 


8518 


8818 


6851 






4720 






4756 


6893 


6894 


3352 


3353 


3354 


3365 


3366 




7494 






4642 


4646 


4647 


6936 


6949 


6955 



8758 



6261 
6333 



5689 



6141 



4625 



4100 
2766 



2724 
2896 



2730 
2907 



2738 
2917 



2740 
2947 



2759 
4058 



2761 
4072 



2804 
4124 



3355 



6162 
8756 



3356 



6296 



3357 



6422 



3359 



3360 



3361 



3362 



6403 
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DBABT 


6246 


ff 


6182 


DBDN1 


6259 


ff 


6257 


DBDONE 


6254 


ff 


6248 


DBFAST 


6199 


ff 


6195 


DBIN 


6155 


ff 




DBIN1 


6 1 70 


ff 


6173 


DBIN2 


6174 


ff 


6170 


DBINLP 


6178 


ff 


6196 


DBLDBL 


6230 


ff 


6218 


DBLDIV 


4580 


ff 


4434 


DBLMUL 


4224 


ff 


4195 


DBLNEG 


4636 


ff 


2781 


DBLNGA 


4637 


ff 


2771 


DBLNG1 


4645 




4359 


DBNEG 


6264 


# 


6253 


DBSLOW 


621 1 




2182 


DBSLO 


6192 


ff. 


6200 


DBXIT 


6252 


ff 


6180 


DDIV 


4386 


ff 


4381 


DDI V 1 


4403 


ff 


4390 


DDI V2 


4406 


ff 


4404 


DDI V3A 


4411 


ff 


4416 


DDI V3 


4407 


ff 


4401 


DDI V4 


4419 


ff 


4412 


DDI V5A 


4433 


ff 


4424 


DDI V5B 


4457 


ff 


4448 


DDI V5C 


4459 


ff 


4454 


DDI V5 


4427 


ff 


4423 


DDI V6 


4462 


ff 


4455 


DDIV7 


4464 


ff 




DDI V8A 


4473 


ff 




DDI V8 


4471 


ff 


4464 


DDIV9 


4479 


ff 


4474 


DDIVS 


4493 


ff 


4420 


DFAD 


5547 


ff 


5534 


DFADJ 


5598 


ff 


5563 


DFADU1 


5605 


ff 


5606 


DFADJ2 


5607 


ff 




DFADU3 


5613 


ft 


5609 


DFADJ4 


5614 


ff 


5610 


DFADJ5 


5616 


ff 


5608 


DFADU6 


5618 


ff 


5616 


DFAS1 


5556- 


ff 


5552 


DFAS2 


5563 


ff 


5557 


DFAS3 


5568 


ff 


5559 


DFAS5 


5577 


ff 


5565 


DFAS6 


5582 


ff 


5583 


DFAS7 


5584 


ff 


5582 


DFDV 


5687 


ff 


5684 


DFDV1 


5693 


ff 


5700 


DFDV2 


5701 


ff 


5694 


DFDV3 


5712 


ff 


5704 


DFDV4A 


5727 


ff 


5730 


DFDV4B 


5732 


ff 


5729 


DFDV4 


5714 


ff 


5710 
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6186 
6273 

6206 
6229 

4444 5717 5721 

6305 
6193 

4394 



4457 

4438 5713 
5571 

5613 
5617 
5554 

5573 
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DFMP 


5628 


ft 


5623 




















DFMP 1 


5630 


ft 


5631 




















DFMP2 


5656 


ft 


5653 




















DFPR1 


2422 


ft 


24 16 




















DFPR2 


2423 


ft 


2421 




















DFSB 


5544 


ft 


5535 




















DIV 


4325 


ft 


4309 


43 10 


43 1 1 


43 1 2 














DIV1 


4334 


jf 


4320 


4322 


4376 
















DIV2 


*+ o o / 


u 

ft 


4350 




















DIVA 


4346 




4332 




















DIVB 


4352 


ft 


4347 




















DIVC 


4365 


ft 


4357 


4362 


















DIVHI 


4587 


ft 


458 1 


4584 


4598 
















DIVIDE 


4552 


ft 


4552 




















DI VSET 




ft 


4542 




















DIVSGN 


O O £. 


ft 


45 14 


5368 


















DIVSUB 


45 1 1 


u 

ff 


4338 


497 1 


498 1 


.5015 














DMLINT 


AO ^ 


tf 


4 197 




















DMOVNM 


07Q1 


u 

ff 


2776 




















DMOVN 


77-1 


ft 


2767 




















DMOVN 1 


2783 


ft 


2775 




















DMTRAP 


4216 


ft 


4210 




















DMUL 


4 1 68 


ft 


4163 




















DMUL1 


4 1 89 


ft 


4178 




















DMUL2 


4 1 94 


ft 


4188 




















DMULGO 


4223 


ft 


4176 




















DNEG 


5770 


u 

ff 


5744 


5747 


5750 


5753 














DNEG1 


C770 


ff 


5770 




















DNEG2 


O / / *f 


if 
ft 


577 1 




















DNN1 


DcjUU 


if 

ft 


5796 




















DNN2 




u 

ft 


5798 




















DNNORM 


C7PA' 


u 
ft 


5733 


5775 


5777 


5782 5810 














0NNRM1 


COAT 

SDQVj / 


ft 


5790 




















DNORM 




ff 


5679 


5732 


5743 


5765 














DNORMO 


•JO / 


ff 


5588 * 




















DN0RM1 


5762 


ft 


5755 




















DN0RM2 


5804 


ft 


5802 




















DOCVT 


6292 


ft 


6342 


6358 


















D0CVT1 


6367 


ft 


6292 




















D0CVT2 


6388 


ft 


6368 




















D0CVT3 


6385 


ft 


6407 




















DONE 


2228 


ft 


2528 


2542 


2842 


2843 3022 


3 175 


3176 


3184 


3185 


3285 


3329 




^1 




3335 


3350 


3462 


3713 4219 


4724 


5066 


5141 


5 165 


5250 


7032 




7A70 




' 7 127 


7223 


72,27 


7231 7235 


7239 


7286 


73 10 


7320 


737 1 


7405 




7544 
























DPB 




u 

ff 


4686 




















DPB 1 




u 

ft 


4723 


6875 


















DPB7 


1 


u 

ft 


4885 


4886 


4887 


4888 4889 


49 13 












DPBSLO 




u 
ff 


4884 




















DRND1 


5836 


ft 


5832 


5840 


5843 
















D ROUND 


5830 


n 


5746 


5749 


5752 


5784 5786 


5788 


5834 










DSMS1 


7518 


ff 


7515 


7520 


















DSTEA 


6893 


H 


6899 




















DSTIND 


6898 


tf 


6895 


6896 


















DSUB 


4096 


# 


4080 
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DUMP 


7930 


ft 


7914 


7921 


DVSUB1 


4538 


ft 


4535 




DV5UB2 


4539 


ft 


4533 




DVSUB3 


4541 


ft 


4545 




EACALC 


2283 


ft 


2346 




EAPF 


8825 


ft 


8805 




EAPF 1 


8830 


ft 






EDBYTE 


6630 


ft 


6593 


662 1 


EDEXMD 


6541 


ft 


6512 




EDFILL 


6557 


ft 






EDFI L 1 


6572 


ft 


6559 




EDFLT 


6588 


ft 


6534 


6578 


EDFLT1 


6606 


ft 


6602 


6604 


EDI SP 


647 1 


ft 


6465 




EDI SP 1 


6473 


ft 


6473 




EDIT 


6450 


ft 






EDITLP 


6455 


ft 


6679 




EDMSG 


6615 


ft 


6480 




EDMSG1 


6624 


ft 


6617 




EDN1 A 


6661 


ft 


6666 




EDNOP 


6650 
6641 


ft 


6482 


6484 


EDN0P1 


6651 


ft 


6645 




EDN0P2 


6668 


ft 


6662 


6668 


EDQPR 


6500 


ft 


647T 




EDSEL 


6551 


ft 


6504 




EDSFLT . 


6577 


ft 


6561 




EDSKP 


6638 


ft 


6489 


6492 


EDSKP 1 


6642 


ft 


6639 




ED5PUT 


6564 


ft 


6572 


6582 


EDSSIG 


6534 


ft 


6506 




EDSTOP 


6519 


ft 


6502 


6562 


EDSTP 1 


6525 


ft 


6528 




ENDSKP 


6262 


ft 


6086 




EQV 


2886 


ft 


2879 


2880 


EXCH 


2588 


ft 


2584 




EXTDSP 


5926 


ft 






EXTEA 


5925 


ft 






EXTEAO 


5922 


ft 


5920 




EXTEA 1 


5923 


ft 


5931- 




EXTEND 


5912 


ft 


5908 




EXTEXT 


5935 


ft 


5927 


5941 


EXTIND 


5931 


ft 


5928 




FAD 


5283 


ft 


5260 


526 1 


FAS 1 


5285 


ft 






FAS2 


5294 


ft 


5285 




FAS3 


5297 


ft 


5290 


5291 


FAS4 


5299 


ft 


5299 




FDV 


5346 


ft 


5334 


5335 


FDVO 


5352 


ft 


5349 




FDV 1 


5354 


ft 


5352 




FDV2 


5355 


ft 


5353 




FDV3 


5356 


ft 


5354 


5355 


FDV4 


5358 


ft 


5359 




FDV5 


5361 


ft 


5358 





6486 



6500 



6509 



6535 



6546 



6567 



6573 



6626 



6627 



6494 



2881 



2882 



5262 

5294 
5336 



5263 

5295 
5338 



5264 



5339 



5265 



5340 



5266 



5341 



n 
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FDV6 


5364 


ft 


536 1 








FDV7 


5368 


ft 


5369 








F0V8 


537 1 


ft 










FDV9 


5379 


ft 


537 1 


5376 


5377 




FETIND 


2339 


ft 


2304 


2309 


233 1 




FIX 


5424 


ft 


54 19 


5420 






F IX++ 


4556 


ft 


4557 








F IX 1++ 


4558 


ft 


4556 








F IXL 


5439 


ft 


5429 


5439 






F IXPC 


8759 


ft 


4232 


64 1 9 






F IXR 


5434 


ft 


5435 








F IXT 


5446 


ft 


5443 








F I XX 


5443 


ft 


5436 








FIXX1 


5444 


ft 


5450 








FL-BWRITE 


25 1 5 


ft 


5444 


5448 


5494 


55 1 6 


FLEX 


5494 


ft 


5490 








FLTR 


5389 


ft 


5384 








FLTR 1 A 


5397 


ft 


5394 








FLTR 1 


5393 


ft 


5390 








FLTR2 


5402 


ft 


5395 


5397 






FLTR3 


5404 


ft 


5405 








FMP 


5316 


ft 


5305 


5306 


5307 


5309 


FMP 1 


532 1 


ft 


5319 


5320 






FP-LONG 


393 1 


ft 


3909 


39 10 


39 1 1 


39 1 2 


FPRO 


2396 


ft 


2390 








FPR 1 


2400 


ft 










FSB 


5280 


ft 


5268 


5269 


5270 


527 1 


FSC 


54 10 


ft 


5385 








GETPCW 


7 194 


ft 


3977 








GETSRC 


6842 


ft 


6117 


6552 






GOEXEC 


4001 


ft 


8832 








GRP70O 


7035 


ft 


6996 








GRP701 


7014 


ft 


6997 








GRP702 


7208 


ft 


7204 • 








GSRC 


6840 


ft 


6074 


6727 






GSRC 1 


6849 


ft 


6845 








GTFILL 


69 1 2 


ft 
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STORE 


2540 


tt 


2792 


3642 








STPF1A 


6951 


tt 


6943 










STPTR1 


8603 


tt 


8600 










STPTR2 


8609 


tt 


8605 










STPTR3 


8615 


tt 


861 1 










STRPF 


6939 


tt 


8772 


8774 








STRPFO 


6940 


tt 


6957 










STRPF 1 


6943 


tt 












STRPF2 


6954 


tt 


6951 










STRPF3 


6948 


tt 












STRPF4 


6957 


tt 


8778 










STRTIO 


7726 


tt 


7442 


7490 


7864 






STSELF 


2484 


tt 


2550 










STUBRS 


7132 


tt 


7134 










SUB 


4071 


tt 


4064 


4065 


4066 


4067 




SWEEPL 


7398 


tt 


7401 










SWEEP 


7392 


tt 


7144 


7174 








TUSH 


5243 


tt 


5214 


5234 








TDONE 


3300 


tt 


3291 


3294 








TDX 


3271 


tt 


3179 


3188 


3193 


3197 


3202 




3232 




3237 


3241 








TDXX 


3276 


tt 


3177 


3181 


3186 


3190 


3195 




3226 




3230 


3234 


3239 


3243 




TENLP 


2180 


tt 


2187 










TEST-TABLE 


3282 


tt 


3271 


3277 


7533 






TICK 


7246 


tt 


6059 










TIOX 


7532 


tt 


7525 


7526 


7527 


7528 




TOCK 


7249 


tt 


7303 


8453 


8738 






T0CK1 


7253 


tt 


7259 










T0CK2 


7260 


tt 


7254 










T0CK3 


7264 


tt 


7271 











3495 
3414 



5504 
2563 



3496 
3415 



5524 
2592 



3497 
3416 



2772 



2973 



2986 



2995 



3206 
3199 



321 1 
3204 



3215 
3208 



3220 
3213 



3224 
3217 



3228 
3222 
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TRAP 


6964 


ff 


224 1 


2244 


2247 


2259 


2262 


2265 












TRNAR 


6746 


ff 


6555 






















TRNFNC 


6768 


# 


6756 


6775 


6779 


6783 


6795 














TRNNS 1 


68 18 


ff 


6808 






















TRNNS2 


6821 


# 


6818 






















TRNRET 


6800 




6769 






















TRNSIG 


6781 


# 


6791 






















TRNSS 


6807 




6802 






















TRNSS 1 


6803 


# 


68 1 1 






















TRP 1 


6983 




6973 


698 1 




















TSX 


3269 
3233 


# 


3 180 
3238 


3 189 
3242 


3 1 94 


3 1 98 


3203 


3207 


3212 


3216 


322 1 


3225 


3229 


TSXX 


3274 
3227 


# 


3178 
323 1 


3 182 
3235 


3 137 
3240 


3191 
3244 


3 1 96 


3200 


3205 


3209 


32 14 


32 1 8 


3223 


TXXX 


3285 


ft 


3300 






















TXZX 


3299 


H 


3288 






















UMOVEM 


7831 


# 


78 19 






















UMOVE 


7823 


ft 


78 18 






















UPCST 


8567 


ft . 


8350 


8426 




















UUO 


3937 


# 


3898 


3905 




















UUO 101 


3919 


ff 


3899 






















UUO 102 

w W W 1 \J <£* 


392 1 




3900 






















UUO 103 

WWW \\J \J 


3923 


# 


3901 






















UUO 106 


3927 




3907 






















UUO 107 


3929 




3908 






















UU0247 


3933 


ff 


3915 






















UUOFLG 

W W W 1 I— V-J 


4022 


ff 


3962 






















UUOGO 


3943 


ff 


2435 


3529 


3538 


354 1 


3543 


3544 


3545 


3578 


3583 


3586 


3606 




3627 




3640 


39 19 


392 1 


3923 


3925 


3927 


3929 


393 1 


3933 


6908 


699 1 




7000 




7001 


7002 


7006 


7007 


7008 


7009 


7014 


7015 


7016 


7019 


7020 




7021 




7022 


7023 


7024 


7025 


7026 


7218 


7240 


7335 


7794 


7803 


7805 




7807 




7809 


781 1 


7813 


















UUOPCW 


3974 


ff 
























VECINT 


7483 


ff 


7446 


7486 




















VECIN1 


7502 


ff 


7500 






















WRAPR 


7050 


ff 
























WRAPR 1 


7069 


§ 


708 1 






















WRAPR2 


7075 


ff 


7068 






















WRCSB 

W FN w >sJ w 


7225 


# . 
























WRCSTM 


7233 


ff 
























WRCST 


8579 


ff 


8359 


8484 




















WREBR 


7 147 


ff 
























WREBR 1 


7 149 


ff 


7149 






















WRHSB 


7237 


ff 
























WRINT 


73 16 


ff 
























WRIO 


7547 




7537 


7539 




















WRPI 


7332 


# 
























WRPUR 


7229 


ff 
























WRSPB 


7221 


ff 
























WRTHSB 


7918 


ff 


7842 






















WRTIME 


7276 


























WRTIM1 


7288 


# 


7257 


7284 




















WRUBR 


7102 


ff 
























XCT 


3651 


#■ 


3647 






















XCT1 


3663 


ff 


3657 


6990 


7868 
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XCT 1 A 


3653 # 


366 1 




XCT2 


2343 # 


3664 




XCTGO 


2268 # 


2252 




XJEN 


3606 # 


3534 




XJRSTF 


36 1 3 # 


3533 




auRSTFO 


3532 # 


36 10 




XLATE 


6745 # 


673 1 




XLATE 1 


6754 # 


6758 




XOR 


2856 # 


2849 




XOS 


3405 # 


3420 




XPCW 


3627 # 


3535 




ZAPPTA 


7403 # 


7389 


(D; 


d 


1 344 # 




(U) 


JFCLFLG 


1 109 # 


3598 


(u) 


LD FLAGS 


1113 # 


2218 


(U ) 


LD PCU 


1101 # 


4006 


(u) 


LDVMA 


1 152 # 


2161 






229 1 


2297 






2784 


2788 






3458 


3525 






36 1 5 


3630 






3842 


3964 






4043 


4218 






5 1 30 


5 144 






5929 


5952 






663 1 


6746 






7309 


7352 






7504 


7585 






7844 


7847 






7943 


7946 






8301 


8302 






8746 


8794 


(U) 


LOADFE 


956 # 


2379 






301 2 


3024 






4884 


4897 






5289 


5317 






5412 


548 1 






5585 


5587 






5786 


5788 






665 1 


6652 


(U) 


LOADSC 


954 # 


2 1 75 






3071 


3075 






4119 


4 1 47 






4434 


4442 






5039 


5054 






54 1 


5428 






56 1 3 


5628 






6462 


6464 






7147 


7149 






7627 


7633 






8364 


8497 


(U) 


LSRC 


606 ft 




(U) 


MACRO% 








ABORT MEM CYCLE 


1999 # 


2161 




AC 


1849 # 


4118 
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7860 
3636 



2850 2851 2852 



3557 


356 1 


36 1 9 


4004 


7460 


7475 


8756 








2 180 


2 184 


2228 


2228 


2229 


223 1 


2232 


2232 


2250 


2276 


2303 


2307 


2330 


2334 


2343 


2363 


2405 


24 1 5 


24 18 


2430 


2789 


3020 


3326 


3326 


3338 


3453 


3453 


3454 


3457 


3458 


3526 


3527 


3532 


3536 


3539 


3552 


3565 


3568 


3594 


3609 


3632 


3632 


364 1 


368 1 


3708 


37 18 


3730 


3735 


375 1 


38 1 4 


3965 


3965 


3979 


3979 


3998 


3999 


4026 


4026 


4035 


4042 


4218 


4693 


4693 


4702 


4749 


4753 


4757 


476 1 


5094 


5 122 


5 145 


5 1 49 


5 1 50 


5167 


5 1 68 


5246 


5252 


5252 


5926 


5928 


6 100 


6349 


6376 


642 1 


6427 


6434 


6450 


6455 


65 1 1 


6589 


6893 


6894 


6895 


6896 


6972 


6980 


7 102 


7279 


7304 


7309 


7352 


7370 


7376 


7439 


7454 


7454 


7454 


7455 


7496 


7496 


7620 


7623 


7623 


7645 


7667 


7726 


7823 


783 1 


784 1 


7844 


7847 


7858 


79 14 


7930 


7930 


7933 


7933 


7940 


7940 


7943 


7946 


7949 


7949 


7952 


7952 


7959 


8245 


8293 


8294 


8294 


8302 


8306 


8308 


8386 


8388 


8526 


8542 


8623 


8625 


8740 


8795 


8795 


8831 


8831 


8834 


8834 










2397 


24 1 2 


2966 


2969 


2973 


2983 


2985 


3001 


3004 


3007 


3039 


3085 


4700 


4704 


47 1 6 


4809 


48 1 4 


48 1 6 


48 1 8 


482 1 


4900 


4901 


4903 


4905 


5213 


5215 


5233 


5235 


5243 


5244 


5326 


5328 


5348 


5354 


5355 


5369 


5391 


5395 


5397 


5398 


5485 


5487 


5493 


5501 


5503 


5504 


5505 


5524 


5529 


5570 


5651 


5668 


5679 


5702 


5728 


5742 


5749 


5752 


5764 


5781 


5809 


5834 


5842 


5980 


5981 


5983 


6149 


6520 


6521 


6527 


6653 


6654 


6851 


6854 


6873 


6891 










2185 


2378 


2397 


2412 


2428 


2989 


2991 


3067 


3068 


3069 


3085 


3094 


3097 


3101 


3108 


3139 


3140 


3141 


3143 


3147 


4184 


. 4204 


4224 


4250 


4262 


4268 


4276 


4286 


4294 


4337 


4549 


4552 


4592 


4938 


4941 


4954 


4960 


4965 


4978 


4994 


5060 


5283 


5287 


5288 


5297 


5299 


5321 


5368 


5402 


5405 


5429 


5430 


5432 


5435 


5439 


5549 


5559 


5569 


5603 


5606 


5631 


5639 


5643 


5646 


5656 


5662 


5717 


5718 


6294 


6323 


6467 


6471 


6473 


6644 


6650 


6656 


6661 


6668 


7129 


7133 


7178 


7180 


7188 


7195 


7197 


7387 


7400 


7407 


7595 


7602 


7681 


7688 


7697 


7701 


8262 


8265 


8313 


8327 


8330 


8361 


8503 




















3609 


7439 


7841 


7914 


8245 


8740 


8746 








4145 


4316 


4407 


5346 


541 1 


5552 


5554 
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AC[] 


1850 


tt 


4483 


AC[ 3 


1751 


tt 


3117 


AC [3 Q . AND . [ 3 


1740 


ft 


4437 


AC[]__[3 


1727 


tt 


2489 




6163 




6222 




6387 




6546 


AC[ 3 [ 3 TEST 


1728 


tt 


6821 


AC[3 C3 VIA AD 


1725 


tt 




AC[3 []*2 


1730 


tt 


4196 


AC[3 [3+1 


1729 


tt 


6695- 


AC[] [3+Q 


1735 


tt 




ac[3 C3+C3 


1737 


# 


4479 


AC[ ]_[ ]-[ ] 


1736 


tt 


5963 


AC[] [].AND.[] 


1739 


# 


4457 


AC[ 3 C3.EQV.Q 


1741 


tt 


421 1 


AC[3 -o 


1747 


tt 




ac[ 3 -[3 


1742 


tt 




AC [3 .N0T.C3 


1745 


ft 




AC[] 


1749 


tt 


2173 


AC[3 1 


1750 


tt 


2174 


AC_-C3 


1743 


ft 


5803 


AC . NOT . [ 3 


1746 


tt 


5802 


AC Q 


1748 


tt 


4453 


AC_[ J 


1731 


tt 


2521 




5114 




5178 




7732 




8202 


AC [3 TEST 


1732 


tt 


3432 


AC [j VIA AD 


1726 


tt 




AC 


1733 


tt 


6931 


AC [3+Q 


1734 


tt 




ACJ3 + H 


1738 


tt 


3111 


AC n.oR.n 


1744 


tt 


5065 


AD FLAGS 


2027 


tt 


2578 




4640 




4642 


AD FLAGS EXIT 


2075 


tt 


4058 


AD PARITY 


1953 


tt 


2181 




2968 




2982 




4717 




5113 




6006 




6022 




62 1 1 




6252 




6452 




6510 




6934 




6940 


ADD .25 


1984 


tt 


2577 




4101 




4275 




4517 




4518 




4641 




4645 




5355 




5358 




5544 




5583 




5996 




6010 




6353 




6361 




6953 




726 1 


ADL PARITY 


1946 


tt 




ADR PARITY 


1950 


tt 




AREAD 


2070 


tt 


2321 


ASH 


1961 


tt 


2425 
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569 1 


5699 


6202 


6266 




4179 


4187 


4198 


4210 




4481 


461 1 


4616 


4621 


4627 


2772 


3043 


4454 


4460 


5766 


6224 


6259 


6272 


6273 


6309 


6849 


6890 


6928 


6936 


6943 


6205 










5758 


5804 








4213 


4215 


4484 






3022 


4455 


6036 


6084 


6280 


3078 


3300 


3389 


3429 


3441 


5203 


5440 


5446 


6086 


6122 


3435 


3438 


3444 


3447 


3450 


3775 


3780 








6049 


6088 








3404 


3420 


3487 


3501 


4058 


4072 










2357 


2370 


2371 


2588 


2689 


3016 


3473 


3717 


3750 


3772 


5201 


5283 


5316 


5348 


5412 


6094 


6096 


61 14 


6146 


6158 


6254 


6255 


6287 


6292 


6293 


6551 


6588 


6590 


6694 


6807 


7547 


7834 








2947 


3370 


3420 


3501 


3527 


4279 


4321 


4365 


4398 


4421 


4534 


4536 


4543 


4549 


4580 


4647 


4976 


5033 


5050 


5100 


5359 


5366 


5377 


5390 


5482 


5696 


5707 


5714 


5730 


5771 


6031 


6098 


6134 


6135 


6136 


6380 


6388 


6389 


6423 


6425 


7361 


7385 


7398 


7645 


8759 



2985 
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4628 



581 1 


6009 


6029 


6046 


6129 


6341 


6347 


6358 


6363 


6386 


6948 










6282 










3710 


3712 


3808 


4629 


4707 


6385 


6606 


6679 


6955 


7544 


4209 


6260 


6306 






4072 


4089 


4099 


4102 


4229 


2691 


2722 


2728 


2781 


2965 


3828 


3840 


4147 


4189 


4326 


5558 


5955 


5958 


5973 


5976 


6161 


6189 


6192 


6194 


6201 


6294 


6315 


6320 


6332 


6367 


6814 


6840 


6842 


6869 


6926 


3536 


3539 


4071 


4088 


4096 


4422 


4428 


4449 


4475 


4516 


4610 


4615 


4620 


4625 


4637 


5119 


5137 


5161 


5249 


5280 


5484 


5486 


5488 


5499 


5515 


5776 


5797 


5803 


5837 


5963 


6183 


6247 


6265 


6268 


6336 


6428 


6476 


6818 


6939 


6947 



8819 
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ASH AROV 


2012 




2991 


3107 


31 10 


















ASH36 LEFT 


2978 




2991 






















ASHC 


1966 




2991 


3100 


3103 


3107 


3110 . 


4268 


4276 


4286 


4294 


4400 


4404 




4473 




4477 


4493 


5299 


5402 


5404 


5434 


5578 


5580 


5584 


5586 


5602 




5606 




5613 


5616 


5618 


5630 


5671 


5675 


5710 


5724 


5742 


5748 


5751 




5764 




5781 


5785 


5787 


5809 


5834 














B DISP 


2071 




2569 


2575 


2689 


2691 


2724 


2730 


2738 


2740 


2759 


2761 


2804 




2814 




2824 


2856 


2866 


2886 


2896 


2907 


2917 


2947 


3271 


3277 


3370 




3389 




3390 


3473 


3487 


3501 


351 1 


3696 


3703 


3741 


4058 


4072 


4124 




4130 




4153 


4155 


5207 


5436 


5444 


5448 


5494 


5506 


5516 


5523 


5927 




5969 




6113 


6168 


6375 


6729 


6801 


6808 


7533 


7560 


7578 


7589 


7616 




8518 




8818 






















BAD PARITY 


1955 


























BASIC DIV STEP 


4528 




4549 


4552 




















BWRITE DISP 


2072 


n 


2569 


2575 


2689 


2691 


2724 


2730 


2738 


2740 


2759 


2761 


2804 




2814 




2824 


2856 


2866 


2886 


2896 


2907 


2917 


2947 


4058 


4072 


4124 




4130 




4153 


4155 


8518 


8818 
















BYTE DISP 


2089 




4705 


4722 


6150 


6853 


6874 














BYTE STEP 


4677 




5981 


5983 




















CALL IBP 


4671 




4692 


4697 


471 1 


















CALL LOAD PI 


2095 




3593 


7350 




















CALL [] 


1985 




2182 


2194 


2399 


2771 


2781 


3551 


3590 


3592 


3593 


3607 


3631 




3634 




3829 


3832 


3946 


3962 


3967 


3971 


3977 


3980 


4121 


4149 


4176 




4185 




4195 


4205 


4228 


4338 


4359 


4414 


4420 


4434 


4438 


4444 


4490 




4514 




4692 


4697 


4701 


4706 


471 1 


4720 


4723 


4971 


4981 


5015 


5042 




5097 




51 13 


51 15 


5202 


5214 


5216 


5234 


5236 


5323 


5365 


5368 


5373 




5375 




5483 


5485 


5487 


5502 


5503 


5504 


5563 


5571 


5599 


5639 


5644 




5656 




5663 


5670 


5689 


5713 


5717 


5721 


5746 


5749 


5752 


5784 


5786 




5788 




5794 


5914 


5954 


5957 


5961 


5993 


5999 


6024 


6048 


6059 


6074 




6078 




6085 


6095 


6097 ' 


6103 


61 17 


6126 


6147 


6162 


6165 


6178 


6193 




6204 




6212 


6215 


6218 


6221 


6229 


6234 


6261 


6296 


6305 


6321 


6333 




6360 




6371 


6379 


6396 


6422 


6451 


6454 


6459 


6534 


6542 


6552 


6555 




6565 




6578 


6593 


6600 


6621 


6625 


6693 


6727 


6751 


6851 


6870 


6875 




6927 




6935 


6946 


7188 


7257 


7281 


7284 


7303 


7350 


7380 


7393 


7442 




7472 




7474 


7490 


7494 


7532 


7543 


7558 


7577 


7586 


7615 


7622 


7647 




7840 




7842 


7848 


7864 


79 12 


7914 


7931 


7934 


7936 


7938 


794 1 


7944 




7947 




7950 


7953 


7955 


8314 


8321 


8332 


8339 


8350 


8359 


8377 


8380 




8393 




8416 


8426 


8453 


8484 


8569 


8727 


8738 


8798 


8826 






CHANGE FLAGS 


2005 


# . 


2217 


2218 


2578 


3404 


3420 


3487 


3501 


3557 


3558 


3561 


3562 




3598 




3619 


3620 


3690 


3702 


3758 


3788 


3792 


3807 


3813 


4004 


4005 




4006 




4058 


4072 


4089 


4099 


4102 


4132 


4133 


4157 


4207 


4219 


4229 




4232 




4339 


4374 


4405 


4491 


4640 


4642 


4707 


4724 


4746 


4998 


5350 




5362 




5427 


5715 


6389 


6390 


6988 


7460 


7475 


8756 








CHK PARITY 


1954 




2269 


2339 


2353 


2362 


2366 


2383 


2394 


2405 


241 1 


2424 


2495 




2527 




2533 


2538 


2541 


2591 


2787 


3087 


3406 


3549 


3573 


3588 


3613 




3617 




3678 


3695 


3701 


3723 


3740 


3746 


3759 


3817 


3845 


3967 


3969 




3975 




4002 


4041 


4119 


4212 


4214 


4317 


4327 


441 1 


4433 


4440 


4737 




4765 




4771 


4892 


5157 


5206 


5'912 


5931 


6351 


6541 


6591 


6594 


6622 




6898 




6913 


6983 


7105 


7222 


7226 


7230 


7234 


7238 


7278 


7308 


7310 




7317 




7371 


7455 


7497 


7621 


7668 


7713 


7716 


7718 


7728 


7730 


7827 




7846 




7866 


7931 


7932 


7934 


7935 


7938 


7939 


7941 


7942 


7944 


7945 




7947 




7948 


7950 


7951 


7953 


7954 


7956 


8310 


8392 


8628 


8797 


8825 




8827 


























CHK PARITY L 


1947 


























CHK PARITY R 


1951 
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CLEANUP DISP 


2097 


ft 


8761 


CLEAR ARXO 


1703 


ft 


2771 


CLEAR CONTINUE 


1994 


ft 




CLEAR EXECUTE 


1995 


ft 




CLEAR RUN 


1996 


ft 




CLEAR []0 


1702 


ft 


2771 


CLR FPD 


2014 


ft 


3690 


CLR 10 BUSY 


2000 


ft 


7576 


CLR 10 LATCH 


2001 


ft 


7661 


CLRCSH 


1991 


ft 


7382 


DFADJ 


5595 


ft 


5606 


DISMISS 


2094 


ft 


3592 


DIV 


1969 


ft 


4549 


DIV DISP 


2088 


ft 




DIV STEP 


4529 


ft 


4552 


DONE 


2080 


ft 


2228 


DPB SCAD 


4880 


ft 


4885 


EA MODE DISP 


2069 


ft 


2279 


END BLT 


2037 


ft 


5140 


END MAP 


■ 2038 


ft 


8508 


END STATE 


2035 


ft 


5140 




8508 




8765 


EXIT 


2074 


ft 


2569 




2814 




2824 




4155 




8518 


EXP TEST 


2026 


ft 


5490 


FETCH 


1806 


ft 


2228 




3338 




3453 




4702 




7352 


FE -1 


1926 


ft 




FE -12. 


1924 


ft 


3024 


FE -2 


1923 


ft 




FE -FE 


1910 


ft 


4809 


FE -FE+200 


1937 


ft 


5354 


FE -FE+S# 


1913 


tf 


4814 


FE -FE-1 


1911 


ft 


2966 


FE -S-10 


1920 


ft 


4818 


FE -S-20 


1919 


ft 




FE 


1925 


ft 




FE EXP 


1932 


ft 


2397 


FE__FE+1 


1927 


ft 


2969 




5752 




5786 


FE FE+10 


1929 


ft 


4816 


FE FE+2 


1928 


tf 


5326 


FE FE+4 


1931 


ft 


3039 


FE FE+P 


1935 


ft 


6521 


FE FE+S# 


1938 


ft 


5668 


FE FE+SC 


1914 


ft 


6653 


FE FE-1 


1930 


ft 


5481 


FE FE-19 


1912 


ft 




FE FE-200 


1936 


tf 


5328 


FE FE . AND . S# 


1915 


ft 


4704 


FE P 


1916 


ft 


4700 


FE S 


1917 


ft 




FE Sff 


1921 


ft 


3024 
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4636 


6264 


6305 


6431 


6437 












4358 


4636 


624 1 


6257 


6264 


6305 


643 1 


6437 






3807 


3813 


4207 


4707 


4724 


6390 










7614 




















7669 


7673 


7676 


7685 


7691 


7700 


7705 








7383 


7386 


















3607 




















4552 


4553 


4600 


548.1 


5493 


5501 


5505 


5598 


5600 


5601 


2232 


3326 


3453 


3458 


4218 


4693 


7352 


7623 






4886 


4887 


4888 


4889 














2345 


3554 


4744 


4747 


5923 


6899 


7657 








5164 


5250 


















5164 


5250 


6017 


6089 


61 12 


6262 


6390 


6394 


6456 


6728 


8783 


8784 


8815 
















2575 


2689 


2691 


2724 


2730 


2738 


2740 


2759 


2761 


2804 


2856 


2866 


2886 


2896 


2907 


2917 


2947 


4124 


4130 


4153 


8818 




















5506 


5836 


















2229 


2231 


2232 


2251 


2291 


2297 


2405 


2430 


3020 


3326 


3454 


3457 


3458 


3525 


3526 


3552 


3594 


3709 


4218 


4693 


7623 


7859 


















4903 




















5355 




















3001 




















4884 




















24 1 2 


5289 


5570 
















2983 


3004 


5369 


5485 


5487 


5503 


5504 


5524 


5529 


5749 


5788 


5834 


5842 
















482 1 


4897 


4905 
















5679 


6654 




















DoU 1 




5585 


5587 


5742 


5764 


578 1 


5809 




4901 


6149 


6527 


6652 


6854 












4900 


6651 


6851 


6891 














5213 


5215 


5233 


5235 


5391 


5395 


5397 


5398 


6520 
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p p c#_i:i: 
r t ott rt 


4 Oil 
1 y ZZ 


u 

ft 


D / Zo 






















P P C J.O 

r t o+Z 


4 Q 4 Q 

i y i o 


44 

if 


oy oU 






















PP QP+pyo 


4 qoq 


44 
ft 


JO I / 


c/i 4 o 
D4 I Z 


3O0 1 


















CP Cr-CYD 

r t oU fc Ar 


i y o 4 


44 

ft 


Do4o 


C7AO 

D / UZ 




















CTDCT r\T\/ QTPD 


/I ^ OO 


44 

ft 


4D4y 






















C T Y r 1 C T OM 

r x A J. J o 1 vaN 


4 1 4 ex 
1 / lo 


44 

ft 


ooo / 


A 4 C\A 
4 1 U4 


A 4 O Q 

4 I Zo 


A 4 K 4 

4 13 1 


b / oZ 


/ Z O 1 












ri MO f*^T\/Tr»P 

r L IMU UivlUc 


zUoU 


44 
it 


COCO 


COCO 
DobZ 


C7 4 c 

3/13 


















P I _ P V T T 

r L t A 1 1 


OA7C 

ZU I b 


44 
ft 


c A A A 
D444 


C /I A Q 

O44o 


R4CJ4 


5516 
















r- i,|n T T C 

r M WK 1 1 t 


1723 


# 


2 1 60 


2 1 68 


2 1 70 


2171 


2173 


2 1 74 


2 1 76 


2177 


2183 


2 1 85 


2489 




252 1 




2772 


3022 


3043 


3078 


3111 


3117 


3300 


3389 


3429 


3432 


3435 




3438 




344 1 


3444 


3447 


3450 


3663 


37 10 


3712 


3775 


3780 


3808 


4179 




4 i 87 




4 1 96 


A 4 QO 

4 iyo 


4209 


4210 


42 1 1 


4213 


4215 


4437 


4453 


4454 


4455 




A a C7 
44D / 




/l A CO 
44DU 


A A 7 Q 

44 / y 


A A Q 4 
44o 1 


A A Q A 
44o4 


AC 4 4 

4b 1 1 


A C 4 C 

4b ib 


A c ^ 
4bz 1 


A C O 7 

4bZ / 


A C O Q 

4b Zo 


A C O Q 

4o zy 


A C QO 

4byu 




/I 7A7 

4 / u / 




/l Q/l Q 


4ybz 


4y / z 


A Q Q O 

4 y O Z 


□U 1 4 


CAC c 

DUbo 


C -i -1 /I 
3 114 


C<7Q 

Ol/O 


c 000 
DZUo 


C /I /I 
D44U 


C /I /I c 
D44b 




C7CQ 
D / Do 




3 / bb 


Oo UZ 


CQAO 

Oovjo 


K OA/1 

3oU4 


C Q ■* 4 

3o 1 1 


CQ O O 

oy zz 


CQOC 

by ob 


CQOQ 

oy OO 


CQC O 

Dybo 


CQC Q 

Dybo 


CQ Q C 

oy oD 




cooa 




RAO Q 

bvjzy 


bUoU 


bUob 


CO/1 C 

bU4b 


co/1 a 
bU4y 


COCC 

bUob 


COC7 

bL>3 / 


COCQ 

bUOo 


C07 O 
OU / 


COQ A 

bUo4 


COQ C 

bUob 




RAP R 




Pi 4 A/1 


c i on 


O 1 z z 


C 1 OQ 

1 zy 


C "1 /l Q 

b 1 4 


C i RC 
O 1 30 


b i bo 


O 1 / 4 


cooc 
b zuo 


cooo 
bZZZ 


c O /I 
bZZ4 




O Z O 




o Z OV_/ 


oz / z 


OZ / O 


coon 
O ZovJ 


C O R O 
O Zo Z 


z y 3 


C0Q7 

ozy / 


cooc 


COOQ 


C04 i 

Oo4 1 


Oo4 / 




COCO 

OoDo 




COCO 

DoDo 


C OCQ 

o ooy 


CQCQ 
OODd 


bo / Z 


C O 7 Q 

bo / 


COQC 

booo 


COQC 

boob 


C O Q 7 

boo / 


CC/1 c 

bD4b 


CC77 

bD / / 


CCOC 

bbvjb 




CC7Q 

oo / y 




bby o 


b / z o 


bo z i 


bo4y 


6890 


CQ 4 A 

by l 4 


by zo 


CQO -1 

byji 


CQOC 

by ob 


CQ/IO 

by4o 


by 4o 




CQCC 
33 




by bb 


*7 A7 O 
/ U / Z 


/ 13/ 


/ zzo 


7 O O *7 

/ ZZ / 


"7 1 r> 4 
1 Zo 1 


"7 O OC 

/ Z JO 


7 O OQ 

/ zjy 


7 O C O 

/ ZDo 


7 O C A 

f Zb4 


7285 




700Q 
/ Zoo 




7010 
(OlO 


/ o ! y 


/ 4Uo 


/ 4U4 


/ 344 


7C C O 

/ boz 


7686 


7CQ O 

/ by z 


7CQ/1 

/ by4 


7 7 O O 

/ / z 


7Q OQ 




7911 




7926 


7936 


8 1 98 


8202 


8208 


8209 


8211 


82 1 2 


82 19 


8229 


8231 




8233 




8235 


8239 


8240 


838 1 


8383 


8404 


8725 










FORCE EXEC 


1 786 




7456 


7470 


7504 


















GEN 1 7 - r E 


1941 




4786 






















OCkl MCI/ f 1 


4 *7 -4 Q 

i / t y 




/toon 
4ozU 


4ozo 


4oyb 


4899 


5983 














HALT [ 3 


2096 




2191 


2248 


2266 


2517 


3580 


7469 


750 1 


8750 








UP* I n 1 r r T 

HOLD LEr 1 


1 945 


# 


2229 


2231 


2276 


2289 


2290 


2296 


230 1 


2316 


2317 


2329 


2340 




/obo 




OCQ 4 

zby i 


z / zz 


Z / oU 


Z / 3Z 


O "7 C A 
Z / 34 




OOOO 


O A C A 

o4b4 


O A C 7 

o4o / 


c c 
oOzD 


c c 
oDZb 


3527 




o c oc 




dboa 


OODZ 


o3b4 


359.4 


36 1 8 


3632 


3760 


38 1 9 


383 1 


000c 

OOOO 


3979 




OQQ -4 
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jyyb 


4026 


4042 


4093 


4736 


A 7CC 

4 / bb 


4975 


5034 


5057 


5 106 


5118 
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3 l 4U 




C 4 A A 

3144 


C 4 A Q 
3 1 43 


3 i b4 


3 ib/ 
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3 1 / / 


C O O Q 

ozzy 


C O OO 

3Z0U 


C O CO 
OZOU 


coco 
DZDz 


cooc 
DoZD 


CCQQ 

DDoo 








oy zo 


CQO 4 

oy o i 


oy / z 


oy y 


COO 4 

bUU 1 


CO 4 7 


coo 
bUZ 


coc 
bUoz 


C07 4 

bu / 1 


C07 7 

bU / / 


COQ C 

bUoD 




COQ Q 




c 4 oo 
b 1 UU 


b i I z 


b l ib 


b 1 Zo 


C 4 A 1 
b 1 4 Z 


C 4 70 
i / u 


c O /I 7 
bZ4 / 


coco 
bzoz 


cooo 

OovJvJ 


cooc 

booD 


coco 
booz 








coon 

o o y v 


ooy4 




D430 


c c^m 

O 3VJO 


c ceo 

O OOvJ 


CCC/l 
O 004 


CCQQ 

oy y 


CC O A 
OO Z4 


cccc 
bbb 


CC70 

bb / vj 




C70Q 
b / Zo 




£ R/17 
Oo4 / 




boy o 


/ U3Z 


707 Q 

/Ufa 


70Q O 

/ uy z 


7 i OQ 

/ 1 jy 


74CQ 

/ 1 Do 


/ 1 DO 


7<QQ 

/ 1 y y 


7 O 7Q 

/ z / y 




/ Zo4 




7 OAQ 


/ o4 O 


/ o43 


70/7 
/ o4 / 


7 O /I Q 

/ o4y 


7QC 4 

i ob 1 


7^0 1 
/ 4Z 1 


1 A O O 
/ 4ZZ 


7/1 O O 
/ 4 Z O 


7/1 O /I 
/ 4Z4 


7 A O C 
/ 4ZD 




7 4 

/ 4 ZD 




7407 
/ 4Z / 


7/1 AO. 


/ o i y 


/ 043 


7CCC 
/ 000 


/OOO 


70/17 
/ <34 / 


7QCO 

/ obo 


7QOO 
/ y Oo 


7Q /tO 

/ y 4vj 


7Q/1 O 

/ y 4 








7Q4Q 

/ y*+y 


/ y 3 z 


OOA -1 
o Z\J I 


o40 Z 


p cop 


3 1 O 


Q 7CQ 

/ oy 


/ bO 


P77 1 

/ / 1 


0770 
/ / 


077c 
/ / 




Q777 




Q77Q 

o / /y 


Q7Q 4 

O / O 1 


0700 
0/00 


Q7Q/I 

/ o4 


Q "7 Q C 
O / OO 


OOI3 


Q Q O /I 

ooo4 
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i y4y 


44 
ft 


Z4ZU 


1 All 
Z 4 Z Z 


Z 4 O O 


O A CC7 
Z43 / 


A/ICQ 

Z4 Oo 


O C Q Q 

zooy 


O 7 O /I 

Z / Z4 


O 7 O Q 
Z / Zo 


O 7 /I C 
Z / 4 D 


7 /i 7 

Z / 4 / 


O 7 7 4 
Z / / 1 




O 1 H VI 
d MM 




o i 1 b 


ooo / 


oozy 


0D00 


oc/i ^ 

034 1 


OC/1 
o34o 


044 


OC/t C 
oD4D 


OC7Q 
oD / 


O C Q O 

oDoo 


O C Q C 

oDob 




OOUO 




OOZ / 




077 4 
/ / 1 


y } y 


QQ0 4 

oyz 1 


oy z 


oqoc 
oy zo 


qqo 7 

oyz/ 


OQOQ 

oy zy 


oyo J 


oy 




oy4 i 




O.QC i 

oyo i 


OQ7 4 

oy / I 


4\JZ O 


/IAQQ 

4uoy 


/I 4 HA 
4 1 \J4 


A 4 OR 
4 1 UO 


4 4 OR 
4 1 vJO 


4 1 OP 

4 I Zo 


A 4^ 4 
4 1 O 1 


4oDO 


A OQ7 

4 oy / 




4 /icq 

4 4 3 zJ 




43 to 


40 00 


4o 1 O 


4Q/IO 


43 30 


ca 4 Q 

3u 1 y 


3U04 


CAQQ 


R 1 OO 
O 1 VJO 


COQO 

zyu 


R0Q 1 

ozy i 




DZy "4 




ozy o 


3 o 1 y 


3 Z\J 


coco 
OoOZ 


COCO 

OoOo 


^A 4 Q 
34 1 O 


04 1 4 


C/l QO 

D4yu 


CCOC 
O OvJO 


CCOQ 

obvjy 


CC H O 

Db 1 U 




R£5 1 7 
OO I / 




ccoo 
DDvJ o 


3 / 33 


C7QA 


CQQA 
3 ZL/ 


CO O 4 

O O Z I 


CROC 
OOOO 


Oslo 


CQ/IO 

oy 4vj 


010/ 


C 4 7 

1 / z 


C04 1 
O Z 4 1 




6257 




6258 


6264 


6303 


6305 


6312 


6318 


6327 


6346 


6398 


6401 


6406 




6431 




6437 


6508 


6602 


6604 


6674 


6678 


6732 


6774 


6778 


6782 


6786 




6790 




6794 


6810 


6908 


6920 


6991 


7000 


7001 


7002 


7006 


7007 


7008 




7009 




7014 


7015 


7016 


7019 


7020 


7021 


7022 


7023 


7024 


7025 


7026 




7046 




7086 


7089 


7110 


7115 


7125 


7130 


7137 


7142 


7183 


7190 


7218 




7240 




7251 


7335 


7337 


7339 


7341 


7473 


7675 


7720 


7794 


7803 


7805 




7807 




7809 


781 1 


7813 


8194 


8197 


8248 


8252 


8255 


8260 


841 1 


8432 



MCR[ 10, 1141] 


15:34 27-JULY- 


1984 


'MICRO 


3 1 { 254 ) 


KS 10 


MI CROCODE 


V 1 24 , 27 ■ 


- JUL-84 


Page 


285 


















Cross 


Reference 


L i st i ng 














8469 




8473 


8507 


85 1 1 


8514 


8525 


8595 


8700 


8705 


87 10 


8716 


, 8730 




8793 


























IBP DP 


4668 


ft 


4692 


4697 


4711 


6033 


6843 


6886 


6959 










IBP SCAD 


4669 


ft 


4692 


4697 


47 1 1 


6033 


6843 


6886 












IBP SPEC 


4670 


ft 


4692 


4697 


4711 


















INH CRY 18 


1957 


ft 


35 10 


3680 


3727 


3756 


3776 


378 1 


5030 


5 105 








INST DISP 


2073 


ft 


2354 


2358 


2367 


2372 


2380 


2401 


2407 


243 1 


2436 






INTERRUPT TRAP 


2086 


ft 




















< 




dFCL FLAGS 


2023 


ft 


3598 






















JUMP DISP 


2079 


ft 


3473 


3487 


3501 


3511 
















UUMPA 


2081 


ft 


345.4 


3457 


3525 


3526 


3552 


3594 












LDB SCAD 


4782 


ft 


479 1 


4792 


4793 


4794 


4795 














LEAVE USER 


2021 


ft 


22 17 


4005 




















LOAD AC BLOCKS 


1989 


ft 


2163 


7 1 26 


7143 


















LOAD BYTE EA 


1980 


ft 


4700 


4719 


4767 


59 19 


593 1 


6850 












LOAD DST EA 


1983 


ft 


6887 


6889 


6898 


















LOAD FE 


1863 


ft 


2379 


2397 


24 1 2 


2966 


2969 


2973 


2983 


2985 


3001 


3004 


3007 




3012 




3024 


3039 


3085 


4700 


4704 


4716 


4809 


48 14 


48 1 6 


4818 


482 1 




4884 




4897 


4900 


4901 


4903 


4905 


5213 


5215 


5233 


5235 


5243 


5244 




5289 




5317 


5326 


5328 


5348 


5354 


5355 
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5391 


5395 


5397 


5398 




5412 




548 1 


5485 


5487 


5493 


5501 


5503 


5504 


5505 


5524 


5529 


5570 




5585 




5587 


565 1 


5668 
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5728 


5742 


5749 
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5764 


578 1 




5786 




5788 
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5834 


5842 


5980 


598 1 


5983 
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6520 


652 1 


6527 




6651 




6652 


6653 
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685 1 


6854 


6873 


689 1 










LOAD FLAGS 


2025 


ft 


2218 


3557 


356 1 


36 1 9 


4004 


7460 


7475 


8756 








LOAD IND EA 


1981 


ft 


2341 






















LOAD INST 


1978 


ft 


2270 


3655 


6984 


7867 
















LOAD INST EA 


1979 


ft 


3550 


3574 


3589 


7664 
















LOAD IR 


. 1974 


ft 


59 18 






















LOAD PAGE TABLE 


1988 


ft 


7377 


8534 




















LOAD PCU 


2019 


ft 


4006 






















LOAD PI 


1992 


ft 


3608 


7363 


7438 


7920 
















LOAD PXCT 


1986 


ft 


3660 
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7516 


7519 


7591 


7598 


7604 


7661 


7669 


7716 


7718 


7720 


7722 


7724 


7726 


7728 


7730 


8548 


8570 


8575 


8581 


8612 


8615 


8616 


8629 


8834 
















4787 


5283 


5426 


5428 


5981 


5983 


6034 


6844 
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Cross 


Reference 


L i st 1 ng 














SC 20. 


1893 # 


6294 
























SC 22. 


1892 #. 


























SC 24. 


1891 # 


























SC 26. 


1890 # 


5717 
























SC 27. 


1889 n 


5321 


5368 






















SC 28. 


1888 # 


























SC 3 


1903 


4954 
























SC 34. 


1887 # 


4337 


4434 


4442 


4965 


4978 


4994 














SC 35. 


1886 # 


4119 


4147 


4184 


4204 


4224 


5039 


5639 


5643 


5656 


5662 


5718 




SC 36. 


1885 # 


























SC 4 


1902. # 


























SC 5 


1901 # 


7595 


7627 






















SC 6 


1900 # 


5402 


5628 


6464 


7147 


7178 


7188 


7195 












SC 7 


1899 U 


6462 


7129 


8262 


8313 


8361 


8497 












CD 


SC 8. 


1898 # 


























SC 9. 


1897 # 


4938 


5054 




















3 


SC EXP 


1878 # 


2397 


2412 


5287 


5559 
















z 


SC FE 


1881 # 


2428 


5646 




















S 


SC FE+S# 


1880 # 


3094 


5428 






















SC_S# 


1882 # 


2175 


41 19 


4147 


4184 


4204 


4224 


4337 


4434 


4442 


4938 


4954 


i 




4965 


4978 


4994 


5039 


5054 


5321 


5368 


5402 


5628 


5639 


5643 


5656 


1 




5662 


5717 


5718 


6294 


6462 


6464 


6471 


6650 


6661 


7129 


7147 


7178 


'£ 




7188 


7195 


7407 


7595 * 


7627 


7681 


7697 


8262 


8313 


8361 


8497 




1 


SC S#-FE 


1879 # 


3097 


5430 






\ 














3 


SC SC-1 


1867 # 


7688 








\ 














1 


SC SC-EXP 


1874 # 










\ 














1 


SC SC-£XP-1 


1875 # 


.5283 


5549 




















S 


SC SC-FE 


1877 # 










\ 














1 


SC SC-FE-1 


1876 # 


5288 


5569 




















(/! 


SC SHIFT 


1868 # 


3085 


5410 






















SC SHIFT- 1 


1869 # 


2378 






















£ 


SC SHIFT-2 


1870 # 


























SET APR ENABLES 


1998 # 


2166 


7071 


7156 


















1 


SET AROV 


2007 # 


4132 


4133 


4157 


4219 


5427 














1 


SET FL NO DIVIDE 


2010 # 


5350 


5362 


5715 


















g 


SET FOV 


2008 # 
























? 


SET FPD 


2013 # 


4232 


4746 


6389 


















1 


SET HALT 


1993 # 


7849 


7915 






















SET NO DIVIDE 


2009 # 


4339 


4374 


4405 


4491 


4998 


5350 


5362 


5715 










SET PDL OV 


2016 # 


3702 


3758 


3788 


3792 


















SET P TO 36-S 


4673 # 


4732 


6043 


6846 


6888 


















SET TRAP 1 


2017 # 


























SHIFT 


1865 # 


2973 


2985 


3007 


3012 


5243 


5244 














SKIP AC REF 


2061 # 


























SKIP AD.EQ.O 


2045 # 


3017 


3332 


3344 


3435 


3447 


4122 


4127 


4329 


4331 


4335 


4349 






4394 


4423 


4453 


4534 


4612 


4617 


4622 


4638 


4645 


4963 


4992 


5346 






5372 


5374 


5447 


5489 


5513 


5669 


5720 


5762 


5807 


6137 


6190 


6266 






6269 


6558 


6595 


6616 


6739 


7296 


8289 


8292 


8376 


8379 








SKIP AD.LE.O 


2046 n 


3335 


3347 


3438 


3450 


4388 


5022 


5366 


5690 


6337 


7262 


7919 




SKIP ADL.EQ.O 


2057 # 


2188 


3987 


3992 


5389 


5394 


5508 


5673 


5676 


5744 


5747 


5750 






5753 


5813 


5913 


5956 


6095 


6097 


6179 


6199 


6383 


6399 


6453 


6488 






6491 


6523 


6987 


711 1 


7118 


7154 


7457 


7458 


7649 


7651 


7665 


8249 






8315 


8322 


8325 


8340 


8345 


8394 


8413 


8417 


8422 


8433 


8437 


8439 






8459 


8512 


8531 


8533 


8571 


8576 


8598 


8601 


8603 


8606 


8609 


8630 






8640 


8694 


8712 


8753 
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SKIP 


ADL.LE.O 


2048 


ft 


7658 


SKIP 


ADR. EQ.O 


2058 


ft 


3086 






7062 




7064 






7498 




7518 


SKIP 


CRYO 


2053 


ft 


3685 


SKIP 


CRY 1 


2054 


ft 


4085 


SKIP 


CRY2 


2055 


ft 


5771 


SKIP 


DPO 


2043 


n 


2398 






3774 




3777 






4361 




4366 






4554 




4995 






5443 




5550 






6032 




6074 






6340 




6357 






8276 




8374 


SKIP 


DP18 


2044 


ft 


2377 


SKIP 


EXECUTE 


2062 


ft 


7853 


SKIP 


FPD 


2050 


ft 


4171 


SKIP 


IF ACO 


2042 


ft 


2484 


SKIP 


10 LEGAL 


2052 


ft 


2434 


SKIP 


IRPT 


2059 


ft 


5143 


SKIP 


JFCL 


2056 


ft 


3599 


SKIP 


KERNEL 


2051 


ft 


3530 


SKIP 


NO CST 


8005 


ft 


8358 


SKIP 


- 1MS 


2060 


ft 


6029 


SKIP- 


COMP DISP 


2078 


ft 


3370 


SPEC 


MEM READ 


1812 


ft 


2410 


SPEC 


MEM WRITE 


1813 


ft 




START 


NO TEST WRITE 


1805 


ft 


8579 


START 


READ 


1803 


ft 


2228 






2364 




2405 






3525 




3526 






3709 




3719 






4762 




5095 






651 1 




6631 






7229 




7233 






7859 




8307 


START 


WRITE 


1804 


ft 


2589 






3826 




3979 






6543 




6589 






7949 




7952 


STATE 


_[ ] 


2034 


ft 


5106 






6170 




6352 






8779 




8781 


STEP 


SC 


1864 


ft. 


2185 






3143 




3147 






4960 




5060 






5631 




6323 






7633 




7701 


SWEEP 


1990 


ft 


7395 


TAKE 


INTERRUPT 


2085 


ft 


8793 


TEST 


DISP 


2077 


ft 


3271 


TL □ 




1712 


ft 


3987 






5956 




6095 






7665 




8249 



3592 


3607 


5120 


6324 


6397 


7066 


7332 


7334 


7338 


7340 


7590 


7617 


8200 


8464 


8492 


3728 


3757 


5358 


5482 


5484 


4097 


5798 


6214 


6220 


6233 


5831 










2413 


2572 


2750 


2757 


3040 


3782 


4104 


4 129 


4151 


4154 


4370 


4392 


4409' 


4421 


4428 


5139 


5163 


5249 


5285 


5289 


5652 


5699 


5703 


5714 


5727 


6076 


6098 


6115 


6118. 


6124 


6429 


6479 


6505 


6696 


6726 


8597 










2736 


2743 


5937 


6184 


6388 


4692 


4697 


471 1 


6288 




3388 


4689 








3537 


3540 








6034 


8213 


8408 


8626 


8734 


3534 


3535 


3542 


3651 


6966 


8483 


8567 








3389 


3390 


6113 






2229 


2231 


2232 


2251 


2291 


2416 


2419 


2430 


3020 


3326 


3527 


3532 


3536 


3539 


3552 


3753 


3843 


4000 


4044 


4218 


5170 


5253 


5928 


5929 


5953 


6747 


6893 


6894 


6895 


6896 


7237 


7276 


7280 


7316 


7352 


8387 


8624 








2785 


2791 


3405 


3630 


3633 


4026 


4036 


4730 


4736 


4891 


7305 


7309 


7370 


7470 


7832 


8834 










5972 


5998 


6001 


6023 


6071 


6379 


6503 


6560 


6564 


6624 


8785 










2989 


2991 


3067 


3069 


3071 


4250 


4262 


4268 


4276 


4286 


5297 


5299 


5405 


5429 


5432 


6467 


6473 


6668 


7133 


7149 


8265 


8327 


8330 


8364 


8503 


7396 


7399 








3277 


7533 








3992 


5508 


5673 


5676 


5744 


6097 


6179 


6199 


6383 


6399 


8315 


8322 


8325 


8340 


8345 



6752 


7029 


7032 


7057 


7059 


7342 


7344 


7346 


7348 


7445 


8698 


8701 


8706 






5486 


5488 








6424 


6435 








3112 


3329 


3341 


3432 


3444 


4209 


4217 


4318 


4354 


4356 


4443 


4462 


4480 


4532 


4539 


5318 


5348 


5356 


5390 


5412 


5964 


5977 


5994 


6007 


6014 


6164 


6256 


6261 


6298 


6307 


6768 


6822 


6941 


7106 


7251 


6477 


6800 


6801 


7484 




8765 


8816 








2297 


2302 


2308 


2331 


2335 


3338 


3453 


3454 


3457 


3458 


3566 


3569 


3594 


3616 


3636 


4693 


4702 


4750 


4754 


4758 


6100 


6350 


6377 


6450 


6455 


6971 


6979 


7103 


7221 


7225 


7505 


7623 


7646 


7667 


7824 


3641 


3682 


3732 


3737 


3815 


5123 


5131 


5147 


5152 


5246 


7847 


7933 


7940 


7943 


7946 


6077 


6085 


61 16 


6123 


6142 


8201 


8771 


8773 


8775 


8777 


3075 


3101 


3108 


3139 


3141 


4294 


4549 


4552 


4592 


4941 


5435 


5439 


5603 


5606 


5613 


7180 


7197 


7387 


7400 


7602 


5747 


5750 


5753 


5813 


5913 


6453 


6488 


6491 


7649 


7651 


8394 


8413 


8417 


8422 


8433 
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31 (254 




8437 




8439 


. 8459 


8512 




8609 




8630 


8640 


8694 


TR [] 


1711 


ft 


3592 


3607 


6324 




7334 




7338 


7340 


7342 




8698 




8701 


8706 




TURN OFF PXCT 


1987 


ft 


2240 


2243 


2246 


TXXX TEST 


2063 


ft 


3285 






UNHALT 


1997 


ft 


7852 






UPDATE USER 


2020 


ft 


3558 


3562 


3620 


UUO 


2082 


ft 


2435 


3529 


3538 




3627 




3640 


3919 


3921 




7000 




7001 


7002 


7006 




7021 




7022 


7023 


7024 




7807 




7809 


781 1 


7813 


VMA 


1852 


ft 








VMA EXTENDED 


1790 


ft 








VMA PHYSICAL 


1787 


ft 


3965 


3979 


3999 




7933 




7940 


7943 


7946 




8831 




8834 






VMA PHYSICAL READ 


1789 


ft 


7454 


7496 


8294 


VMA PHYSICAL WRITE 


1788 


ft 


3965 


7844 


7930 


VMA__[ ] 


1832 


ft 


2228 


2232 


2250 




3532 




3568 


3630 


3641 




4761 




5094 


5122 


5130 




7102 




7352 


7370 


7376 




8526 




8542 


8623 


8794 


VMA [ 3 WITH FLAGS 


1833 


ft 


7726 






VMA_[ 3+1 


1835 


ft 


2229 


2231 


2276 




6100 




6450 


7279 


7309 


VMA [3+XR 


1837 


ft 


4749 


4757 


6893 


vma n+n 


1838 


ft 


8293 


8301 


8386 


VMA 


1836 


ft 


3527 


3536 


3539 


VMA t 3 .OR. [ ] WITH FL 


1834 


ft 


7585 


7620 




WORK[ 3 


1853 


ft 


6132 


6354 


6553 


WORK[3 .NOT.C3 


1763 


ft 


6174 






W0RK[3 


1758 


ft 


2177 


7403 


7404 


WORK [ 3 1 


1759 


ft 


2176 






WORK[] 


1756 


ft 


4972 


6104 


6143 


WORK[3_n 


1760 


ft 


2160 


2168 


2170 




5938 




5968 


6030 


6056 




6372 




6378 


* 6577 


6725 




7239 




7253 


7264 


7285 




7926 




7936 


8198 


8208. 




8239 




8240 


'8381 


8383 


WORK [ 3 E 3 CLR LH 


1761 


ft 


3663 


7652 




WORK[ 3 n-i 


1762 


ft 


6353 






WORK[3 [ ] . AND . [ 3 


1764 


ft 


5985 






WRITE TEST 


1802 


ft 


2589 


2785 


2791 




3826 




3979 


4026 


4036 




6543 




6589 


7305 


7309 




7949 




7952 


8834 




XR 


1851 


ft 








[] LEFT_- 1 


1653 


ft 


2740 






[3 LEFT 


1651 


ft 


2738 






[3 RIGHT -1 


1654 


ft 


2761 
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8531 


8533 


8571 


8576 


8598 


8601 


8603 


8606 


8712 


8753 














CQQ7 


K) f OZ 


7AC7 

/ \JO 1 


7ACQ 


7ACO 
/ \JKD Z 


HC\CiA 
f VJO*+ 


7ACC 


7QQO 


7344 


7346 


7348 


7590 


7617 


8200 


8464 


8492 


2258 


2261 


2264 


2278 










OD4 l 


ot)4a 


0044 


oD4o 


QC7Q 

oD / o 


oDoo 


oDoo 


ooUo 


3923 


3925 


3927 


3929 


3931 


3933 


6908 


6991 


7007 


7008 


7009 


7014 


7015 


7016 


7019 


7020 


7025 


7026 


7218 


7240 


7335 


7794 


7803 


7805 


4026 


6972 


6980 


7454 


7496 


7844 


7847 


7930 


7949 


7952 


8294 


8302 


8308 


8388 


8625 


8795 


8302 


8831 














8795 
















2307 


2334 


2343 


2430 


2788 


3326 


3453 


3458 


3730 


3735 


-3814 


3842 


4218 


4693 


4702 


4753 




OztZz) 




OD 1 J 




OOo 1 


DO zfH 




7454 


7623 


7667 


7823 


7831 


7858 


7959 


8306 




Q O O Q 

oooo 


oboz 


A t~\A O 

4U42 


CL 4 A A 

O 1 44 


d i4y 


C <C7 


COCO 

OZOZ 


6895 
















7645 
















6620 


6698 


6729 


6732 










2171 


4690 


4949 


4962 


4982 


5014 


5922 


5935 


6057 


6058 


6073 


6120 


6156 


6295 


6297 


6359 


69 1 4 


6965 


/ U / Z 


74C7 
/It)/ 


*7 o o o 
/ ZZo 


/ ZZ I 


f Z<S 1 


TOOK 
/ ZOO 


7288 


7318 


7319 


7686 


7692 


7694 


7839 


791 1 


8209 


821 1 


8212 


8219 


8229 


8231 


8233 


8235 


8404 


8725 














3405 


3630 


3633 


3641 


3682 


3732 


3737 


3815 


4730 


4736 


4891 


5123 


5131 


5147 


5152 


5246 


7370 


7470 


7832 


7847 


7933 


7940 


7943 


7946 



n 
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RIGHT_0 
+ C3 
-# 
-C] 

. AND . ff 

. AND. NOT. WORK [ ] 
.AND. NOT. [ ] 
. AND . 
.AND. WORK [ ] 
.AND. [ ] 
■0R.C3 
.XOR. ff 
.XOR. [ ] 
ff 



#-[] 

#-CJ)*2 
-[])*. 5 

-[]-.25)*.5 LONG 
-[]-.25)*2 LONG 
AC[3.AND.[])*.5 
MEM. AND. [])*.5 
0+ 1 ) * . 5 
[ ]+#)*2 
[]+1)*2 

[]+[])*- 5 LONG 
[]+[])*2 LONG 
[ ) + [ 3+-25)*.5 LO 
[ ]-[ 3 )*.5 LONG 
[]-[3)*2 LONG 
[3*AND.#)*.5 
[ 3 . AND.#)*2 
[ ] . AND.N0T.#)*.5 
[ ] . AND . NOT . # ) *2 
[ 3 . AND . [ 3 ) * . 5 
[ 3 -AND. [ ] )*2 
[].0R.#)*.5 
[ ] .0R.#)*2 
+ SIGN 
~+SIGN*.5 
1 

"-2 

"-AC 

"-ACU 

~~Q 

_-0*.5 
-0*2 
"-SIGN 
"-SIGN*. 5 
"-WORK[ ] 
"-[] 
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1652 


ft 


2759 














ID IO 


u 

ft 


2783 


4229 


4369 










A tr OH 


ff 


6183 


6476 














ft 


4365 


442 1 


4422 


5119 


5 1 37 


5161 


5249 


A til A 


u 

ft 


5389 


5393 


6522 


6985 


7116 


7 1 54 




A 

1 / GO 


u 

ft 
















A c; O/l 


u 

ft 


4 1 26 














H COO 


u 

ft 


4393 














A 7££ 
] / DO 


u 

ft 


6738 














1523 


ft 


4 1 54 


7029 


7032 


75 1 8 








1525 


ft 
















1 526 


ft 


2188 


7457 


7458 










1 R07 
1 XJa. 1 


u 
ft 


7295 














1529 


ft 


2 149 


2 153 


2 1 78 


2 1 79 


22 19 


2745 


2747 


4969 




4979 


4983 


5012 


5055 


5 106 


5940 


5972 


6077 




6085 


6116 


6 1 23 


6 1 42 


6 1 70 


6352 


6379 


7036 




7038 


7379 


738 1 


7392 


7394 


7473 


75 15 


0777 
Off! 




8779 


878 1 


8785 










A C. P " 


M 
ft 
















ID ID 


ft 


5050 














IO IO 


u 
ft 
















IO 1 / 


ft 


4399 


5708 












A P> A R 


u 

ft 


4476 














Id i j 


u 
ft 


4 1 75 


4 1 77 


5547 


5638 


5693 






1827 


ft 


2424 














IO 14 


ff 


5830 














1628 


ft 
















1629 


ft 


6642 














1 630 


ft 


5577 














4CQ4 

tool 


u 

ft 


4583 














IOo4 


u 

ft 










\ 






I ooZ 


it 

ft 
















4COO 

I boo 


u 

ft 


4580 














1COA 

i o^U 


ft 


4943 


4950 


7499 












U 
ff 
















1622 


U 

ff 










\ 








u 

ff 
















1 624 


ft 


4 169 














1625 


ft 
















1 626 


ft 
















I O <£ / 


u 

ff 
















1657 


ft 


2422 


2457 


5290 


5294 


53 1 9 


5352 


54 1 3 


1 662 


ft 


5551 


5653 


5704 










1 530 


ft 


4321 


6389 


7361 










1531 


ft 
















1 546 


ft 


4625 














1 547 


ft 


6268 














i 532 


ft 
















1 534 


ft 


5377 














1533 


ft 


4449 














1658 


ff 


2420 


2458 


529 1 


5295 


5320 


5353 


54 14 


1663 


ff 


5553 


5654 


5706 










1773 


ff 


5996 


6939 


6953 










1535 


ff 


2577 


2947 


4518 
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5929 


593 1 


5952 




CQCO 


c -i aa 
b i uu 


C 4 AA 

b i uu 


bo4y 


a o c;a 
boDU 


C5C1 

boD 1 


bo / b 


C O 7 7 

bo / / 


C A 1 A 

b4z 1 


6427 


d A D A 

b4o4 


6450 




tz a c a 


D400 


b400 


65 1 1 


65 1 1 


6543 


6545 


6589 


6589 


659 1 


6594 


6622 




boo 1 


ooo 1 


b / 4b 


b / 4 / 


boy o 


boy o 


6894 


6894 


6895 


6895 


6896 


6896 




6898 


by 1 Z 


6968 


697 1 


6972 


6976 


6979 


6980 


6983 


7 102 


7 103 


7 1 04 




/ zz 1 


7 o o o 
1 ZZZ 


/ zzO 


7226 


7229 


7230 


7233 


7234 


7237 


7238 


7276 


7277 




707Q 

/ z / y 


7 O OA 

/ ZoO 


7304 


7305 


7308 


7309 


7309 


7309 


7310 


7316 


73 1 7 


7352 




70CO 

/ obz 


/ oDZ 


7 O 7 A 
/ O / U 


7370 


737 1 


7376 


7439 


7443 


7454 


7454 


7454 


7454 




7 /f C K 

/4 0D 


/4DD 


7470 


749 1 


7496 


7496 


7496 


7497 


7504 


7505 


7585 


7585 




7CQ7 
/ Do / 


7c;oa 
/ b zu 


7 C O A 

/ bZU 


7C O A 

/bz i 


/ bz o 


7C O O 

/ bzo 


7 a o o 
/bzo 


7C a rr 

/ b4 


"7 R A C 

1 b4b 


7667 


7667 


7668 




7713 


7716 


7718 


7726 


7726 


7728 


7730 


7823 


7824 


7826 


7831 


7832 




7841 


7844 


7844 


7844 


7846 


7847 


7847 


7847 


7858 


7859 


7865 


7914 




7930 


7930 


7930 


7931 


7932 


7933 


7933 


7933 


7934 


7935 


7938 


7939 




7940 


7940 


7940 


794 1 


7942 


7943 


7943 


7943 


7944 


7945 


7946 


7946 




7946 


7947 


7948 


7949 


7949 


7949 


7950 


7951 


7952 


7952 


7952 


7953 




7954 


7956 


7959 


8245 


8293 


8294 


8294 


8294 


8301 


8302 


8302 


8302 




8306 


8307 


8308 


8309 


8386 


8387 


8388 


8391 


8518 


8526 


8542 


8579 
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I 













8623 




8624 


8625 


8627 












8825 




8827 


8831 


8831 


(U) 


MICROCODE OPTION(INH' 


V@ 


~H 


1240 


ft 












OPT 






1242 


ft 


7039 






(u) 


MICROCODE OPTION(KIP"W<e> 


~H 


1264 


ft 












OPT 






1268 


ft 


7043 






(u) 


MICROCODE OPTION(KLPr 


W# 


"H 


1270 


ft 












OPT 






1272 


ft. 


7044 






(u) 


MICROCODE OPTION(NQC" 


V£ 


"H 


1246 


ft 












OPT 






1250 


ft 


7040 






(u) 


MICROCODE OPTION(NON" 


W 




1252 


ft 












OPT 






1254 


ft 


7041 






(U) 


MICROCODE OPTION(UBA" 


W 


"H 


1258 


ft 












OPT 






1260 


ft 


7042 






(U) 


MICROCODE OPTIONS 






1233 


ft 








(u) 


MICROCODE VERSION 






1 277 


ft 












UCV 






1278 


ft 


7045 






(D) 


MODE 






1338 


ft 








(U) 


MULTI PREC 






965 ft 


4400 


4452 


4467 


(u) 


MULT I SHIFT 






967 ft 


2973 


2985 


3007 


(u) 


PHYSICAL 






1 134 


ft 


3965 


3979 


3999 












7399 




7440 


7454 


7487 












7861 




7930 


7933 


7940 












8625 




8795 


8831 


8834 


(u) 


PI 


CLR 






1 193 


ft 


7332 






(U) 


PI 


C01 






1 182 


ft 








(u) 


PI 


C02 






1 183 


ft 








(U) 


PI 


DIR 






1 192 


ft 


7338 






(U) 


PI 


IP1 






1 174 


ft 


7515 






(U) 


PI 


. IP2 






1 175 


# 








(U) 


PI 


IP3 






1 176 


ft 








(u) 


PI 


IP4 






1 177 


ft 








(u) 


PI 


IP5 • 






1 178 


ft 








(u) 


PI 


IP6 






1 179 


ft 








(U) 


PI 


IP7 \ 






1 180 


ft 








(u) 


PI 


MBZ 






1 191 


ft . 


7334 






(u) 


PI 


ON 






1 181 


ft 


7343 


7345 




(u) 


PI 


. REQ 






1 194 


ft 


7340 






(u) 


PI 


SC1 






1 199 


ft 








(u) 


PI 


SC2 






1200 


ft 








(U) 


PI 


SC3 






1201 


ft 








(U) 


PI 


SC4 






1202 


ft 








(U) 


PI 


SC5 






1203 


ft 








(U) 


PI 


SC6 






1204 


ft 








(u) 


PI 


SC7 






1205 


ft 








(U) 


PI 


TCF 






1 196 


ft 


7348 






(U) 


PI 


TCN 






1 195 


ft 


7346 






(u) 


PI 


TSF 






1 197 


ft 


7344 






(u) 


PI 


TSN 






1 198 


it 


7342 






(U) 


PI 


ZER 






1 173 


ft 








(U) 


PXCT 






1 138 


ft 












BIS-DST-EA 






1 144 


ft 


6887 


6889 


6895 






BIS-SRC-EA 






1 142 


ft 












CURRENT 






1 139 
3338 


ft 


2228 
3453 


2229 
3454 


2231 
3457 
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8740 8746 8794 8795 8795 8795 8796 8818 
8831 8834 8834 8834 



4470 4477 4591 5545 

3012 4817 4822 4898 

4026 6972 6980 7382 

7496 7579 7582 7618 

7943 7946 7949 7952 



5578 5698 5709 

4906 5243 5244 

7383 7386 7395 7396 

7629 7635 7844 7847 

8294 8302 8308 8388 



6896 6898 



2232 2251 2291 2297 2405 2430 3020 3326 

3458 3525 3526 3550 3552 3574 3589 3594 
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3709 


4218 


4693 


4702 


D1 


1141 ft 


2321 


2363 


24 15 




5151 


5247 






D2 


1145 ft 


3683 


3720 


3752 


E1 


1 1 40 ft 


2330 


2335 


2341 


E2 


1 143 ft 


4700 


4719 


4759 


RAMADR 


677 ft 








AC# 


678 ft 


2357 


2370 


2384 




2856 


2866 


2886 


2896 




3016 


3078 


3090 


31 1 1 




3432 


3435 


3438 


3441 




3710 


3712 


3717 


. 3750 




4087 


4098 


4101 


4118 




4407 


4409 


4451 


4453 




5104 


5113 


51 14 


5178 




5440 


5446 


5548 


5552 




6086 


6088 


6096 


6122 




6606 


6679 


693 1 


6955 


AC*# 


679 ft 


2 173 


2 1 74 


2181 




3117 


4084 


4096 


41 75 




4212 


4213 


4214 


42 15 




4460 


4479 


4481 


4483 




4621 


4627 


4628 


5547 




5955 


5963 


5973 


5976 




61 14 


6129 


6146 


6161 




621 1 


6213 


6216 


6222 




6272 


6273 


6280 


6282 




6361 


6363 


6367 


6380 




6694 


6695 


6807 


68 14 




6934 


6936 


6940 


6943 


RAM 


682 ft 


2183 


2185 


6423 


VMA 


68 1 ft 


2161 


2269 


2339 




2527 


2533 


2538 


254 1 




3617 


3678 


3695 


3701 




3975 


4002 


4041 


4737 




5912 


5931 


6351 


6545 




7226 


7230 


7234 


7238 




7492 


7497 


7588 


762 1 




7846 


7866 


7914 


7931 




7945 


7947 


7948 


7950 




8628 


8740 


8746 


8797 


XR# 


680 ft 


2279 


2289 


2301 




4749 


4757 


5923 


5925 


ft 


683 ft 


2160 


2168 


2170 




4972 


4976 


4977 


4982 




5935 


5938 


5968 


5985 




6057 


6058. 


6060 


606 1 




6133 


6140 


6143 


6156 




6353 


6354 


6356 


6359 




6577 


6579 


6615 


6620 




6745 


6812 


6819 


6823 




6965 


7050 


7072 


7084 




7227 


7231 


7235 


7239 




7298 


7299 


7302 


7318 




7674 


7686 


• 7692 


7694 



KS ,U 
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Cross 


Reference 
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7352 


7623 


7664 


7859 










2418 


2786 


2790 


3731 


3736 


5124 


5132 


5146 


475 1 


4755 


5096 


5169 


5253 


6893 


6894 




3570 


3656 














4763 


4767 


5919 


5928 


5929 


5931 


6850 




2521 


2588 


2689 


2691 


2722 


2728 


2814 


2824 


2906 


2937 


2965 


2968 


2982 


2988 


3000 


3003 


3276 


3291 


3294 


3299 


3300 


3370 


3389 


3429 


3444 


3447 


3450 


3473 


3487 


3501 


3509 


3679 


3772 


3775 


3780 


3808 


3828 


3840 


4057 


407 1 


4119 


4145 


4147 


4194 


4209 


4316 


4317 


4326 


4624 


4625 


4629 


4707 


4713 


4717 


4993 


5065 


5201 


5203 


5283 


5316 


5346 


5348 


541 1 


5412 


5554 


5558 


5650 


5701 


5802 


5803 


5958 


6049 


6158 


6260 


6292 


6294 


6306 


6315 


6385 


6452 


7533 


7544 


7547 


7561 


7563 


7732 


7834 


8202 


2371 


2383 


2489 


2772 


278 1 


3022 


3043 


3087 


4177 


4179 


4 187 


4189 


4196 


4 198 


4210 


42 1 1 


4327 


44 1 1 


4433 


4437 


4440 


4454 


4455 


4457 


4484 


4610 


46 1 1 


4614 


4615 


46 16 


4619 


4620 


5638 


5691 


5693 


5699 


5758 


5766 


5804 


58 1 1 


6006 


6009 


6022 


6029 


6036 


6046 


6084 


6094 


6163 


6189 


6192 


6194 


6201 


6202 


6203 


6205 


6224 


6252 


6254 


6255 


6259 


6266 


6267 


6268 


6287 


6293 


6309 


6320 


6332 


634 1 


6347 


6358 


6386 


6387 


6510 


6541 


6546 


6551 


6588 


6590 


6821 


6840 


6842 


6849 


6869 


6890 


6926 


6928 


6948 
















6428 


6433 


6435 












2353 


2362 


2366 


2394 


2405 


24 1 1 


2424 


2495 


2591 


2787 


3406 


3549 


3573 


3588 


3609 


3613 


3723 


3740 


3746 


3759 


3817 


3845 


3967 


3969 


4765 


4771 


4892 


5134 


5157 


5 160 


5206 


5248 


6591 


6594 


6622 


6898 


6913 


6983 


7105 


7222 


7278 


7308 


7310 


7317 


737 1 


7439 


7444 


7455 


7668 


7713 


7716 


77 18 


7728 


7730 


7827 


7841 


7932 


7934 


7935 


7938 


7939 


7941 


7942 


7944 


7951 


7953 


7954 


7956 


8221 


8245 


8310 


8392 


8825 


8827 














2316 


2329 


2345 


3554 


3556 


3564 


4744 


4747 


5928 


6893 


6895 


6899 


7657 


7658 


7666 




2171 


2 1 76 


2177 


3663 


4690 


4949 


4962 


4967 


4988 


5014 


5027 


5035 


5040 


5046 


5176 


5922 


5992 


5996 


6013 


6025 


6030 


604 1 


6045 


6056 


6062 


6063 


6073 


6080 


6 104 


6 1 20 


6127 


6132 


6174 


6178 


6181* 


6185 


6295 


6297 


6338 


6348 


6372 


6374 


6378 


6381 


6382 


6403 


6553 


6554 


6630 


6692 


6698 


6725 


6729 


6732 


6737 


6738 


6825 


6914 


6930 


6939 


6945 


6953 


6954 


6957 


7152 


7157 


7209 


721 1 


7213 


7215 


7217 


7223 


7246 


7253 


7255 


7260 


7264 


7266 


7285 


7288 


7319 


7323 


7403 


7404 


7652 


7655 


7660 


7672 


7839 


791 1 


7913 


7918 


7922 


7926 


7936 


7937 
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(D) READ 



(U) RSRC 



(U) 5# 





7955 


7957 


7958 


7960 


8 198 


8 199 


8208 


8209 


8211 


82 1 2 


8219 


8229 




823 1 


8233 


8235 


8239 


8240 


8288 


829 1 


8318 


8320 


835 1 


8358 


8375 




8378 


838 1 


8383 


8397 


8404 


8442 


8452 


8454 


8483 


8499 


8539 


8540 




854'1 


8547 


8567 


8568 


8574 


8725 


8736 


8742 


875 1 


8755 


8767 




) 


1349 # 


2547 


2548 


2550 


2552 


2553 


2555 


2557 


2558 


2560 


2562 


2563 




2565 


2584 


2600 


2601 


2602 


2603 


2605 


2606 


2607 


2608 


26 10 


26 1 1 




2613 


2615 


26 16 


26 18 


2620 


262 1 


2623 


2625 


2626 


2628 


2630 


263 1 




2633 


2635 


2636 


2638 


2642 


2643 


2644 


2645 


2647 


2648 


2649 


2650 




2652 


2653 


2655 


2657 


2658 


2660 


2662 


2663 


2665 


2667 


2668 


2670 




2672 


2673 


2675 


2677 


2678 


2680 


2766 


2767 


2797 


2798 


2807 


2808 




2809 


28 10 


2817 


28 18 


28 19 


2820 


2827 


2828 


2829 


2830 


2832 


2833 




2834 


2835 


2842 


2849 


2850 


285 1 


2852 


2859 


2860 


286 1 


2862 


2869 




2870 


287 1 


2872 


2879 


2880 


288 1 


2882 


2889 


2890 


2899 


2900 


2901 




2902 


29 10 


29 1 1 


29 1 2 


29 1 3 


2920 


292 1 


2922 


2923 


2930 


293 1 


2932 




2933 


2940 


294 1 


2952 


2953 


2954 


2956 


2957 


2958 


3 1 86 


3187 


3 1 88 




3189 


3190 


3191 


3202 


3203 


3204 


3205 


3206 


3207 


3208 


3209 


3220 




322 1 


3222 


3223 


3224 


3225 


3226 


3227 


3237 


3238 


3239 


3240 


324 1 




3242 


3243 


3244 


3359 


3360 


336 1 


3362 


3363 


3364 


3365 


3366 


3376 




3377 


3378 


3379 


3380 


338 1 


3382 


3383 


3393 


3394 


3395 


3396 


3397 




3398 


3399 


3400 


3409 


34 10 


34 1 1 


34 1 2 


34 1 3 


34 1 4 


34 1 5 


34 16 


3476 




3490 


3647 


3670 


3766 


4050 


405 1 


4052 


4053 


4064 


4065 


4066 


4067 




4079 


4080 


4112 


4113 


4114 


4115 


4137 


4 1 38 


4 1 39 


4 1 40 


4 1 63 


4304 




4305 


4306 


4307 


4309 


43 10 


43 1 1 


4312 


438 1 


4682 


4683 


4684 


4685 




4686 


5260 


526 1 


5262 


5263 


5264 


5265 


5266 


5268 


5269 


5270 


527 1 




5272 


5273 


5274 


5305 


5306 


5307 


5309 


5310 


53 1 1 


53 1 2 


5334 


5335 




5336 


5338 


5339 


5340 


534 1 


5384 


54 19 


5420 


5534 


5535 


5623 


5684 




5908 
























I CYCLE 


1 1 26 # 


2228 


2229 


223 1 


2232 


225 1 


229 1 


2297 


2302 


2308 


233 1 


2335 




2364 


2405 


24 16 


24 19 


2430 


3020 


3326 


3338 


3453 


3454 


3457 


3458 




3525 


3526 


3527 


3532 


3536 


3539 


3552 


3566 


3569 


3594 


3616 


3636 




3709 


3719 


3753 


3843 


4000 


4044 


4218 


4693 


4702 


4750 


4754 


4758 




4762 


5095 


5 1 70 


5253 


5928 


5929 


5953 


6 100 


6350 


6377 


6450 


6455 




6511 


6631 


6747 


6893 


6894 


6895 


6896 


697 1 


6979 


7 103 


722 1 


7225 




7229 


7233 


7237 


7276 


7280 


7316 


7352 


7440 


7454 


7487 


7496 


7505 




7579 


7582 


7623 


7646 


7667 


7824 


7859 


786 1 


8294 


8302 


8307 


8387 




8522 


8624 


883 1 




















ID 


1337 # 


5263 


5264 


5265 


5266 


527 1 


5272 


5273 


5274 


5309 


53 10 


53 1 1 




5312 
611 # 


5338 


5339 


5340 


534 1 


5384 


5420 












AB 


613 # 


3663 


• 7652 




















AO 


6 1 2 # 
























DO 


619 # 


2759 


6155 


6270 


7440 


7487 


7579 


7582 


76 1 8 


7629 


7635 


7708 




7861 


8225 


8227 


824 1 


















DA 


617 # 


2 1 55 


2 1 58 


2191 


2202 


2238 


2242 


2245 


2248 


2257 


2260 


2263 




2266 


2517 


3042 


3580 


3943 


3983 


403 1 


4395 


4406 


4800 


5880 


5882 




5884 


5886 


5888 


5890 


5892 


5894 


5896 


6580 


6592 


66 18 


6658 


6803 




7028 


7031 


7094 


7249 


7292 


7293 


7294 


7428 


7429 


7430 


7431 


7432 




7433 


7434 


7436 


7469 


7501 


8267 


8346 


8406 


8424 


8528 


8750 




DO 


618 # 
























OA 


616 # 


2320 


2761 


3689 


3806 


3812 


4216 


5221 


5551 


5553 


5653 


5654 




5704 


5706 


5926 


6964 


7471 
















OB 


615 # 


2738 


2740 




















OQ 


614 


3628 


3642 


3960 


3986 


5225 


5915 


5959 


6159 


7459 


8805 






1001 r 


2175 


2378 


2397 


2397 


2412 


2412 


2428 


2966 


2969 


2373 


2983 




2985 


3001 


3004 


' 3007 


3012 


3024 


3039 


3041 


3068 


3085 


3094 


3097 
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(U) SCAD 





3 140 


41 19 


4147 


4 184 


4204 


4224 


4337 


4434 


4442 


4704 


4786 


4809 




48 14 


48 16 


48 18 


482 1 


4884 


4885 


4886 


4887 


4888 


4889 


4897 


4901 




4903 


4905 


4938 


4954 


4965 


4978 


4994 


5039 


5054 


52 13 


52 15 


5233 




5235 


5243 


5244 


5287 


5289 


532 1 


5326 


5328 


5354 


5355 


5368 


5369 




539 1 


5395 


5397 


5398 


5402 


54 10 


5425 


5428 


5430 


548 1 


5485 


5487 




5490 


5493 


5501 


5503 


5504 


5505 


5506 


5524 


5529 


5559 


5570 


5585 




5587 


5628 


5639 


5643 


5646 


5656 


5662 


5668 


5679 


57 1 7 


57 18 


5728 




5742 


5749 


5752 


5764 


578 1 


5786 


5788 


5809 


5834 


5836 


5842 


5980 




5981 


5983 


6 1 49 


6294 


6462 


6464 


647 1 


6520 


6525 


6527 


6650 


6652 




6654 


6655 


666 1 


667 1 


6854 


7 1 29 


7147 


7 1 78 


7 1 88 


7 195 


7407 


7595 




7627 


768 1 


7697 


8262 


83 1 3 


836 1 


8497 














978 # 
























A 


986 # 


2175 


3024 


4119 


4147 


4184 


4204 


4224 


4337 


4434 


4442 


4700 




4714 


4791 


4792 


4793 


4794 


4795 


4900 


4938 


4954 


4965 


4978 


4994 




5039 


5054 


5213 


5215 


5233 


5235 


5321 


5368 


5391 


5395 


5397 


5398 




5402 


5628 


5639 


5643 


5656 


5*662 


5717 


5718 


6294 


6462 


6464 


6471 




6520 


6650 


6651 


6661 


6851 


6872 


6891 


7129 


7147 


7178 


7188 


7195 




7407 


7595 


7627 


7681 


7697 


8262 


83 13 


8361 


8497 








A*2 


979 # 


6643 






















A+B 


983 # 


2378 


2397 


2397 


24 12 


2412 


2969 


2973 


2983 


2985 


3004 


3007 




301 2 


3039 


304 1 


3085 


3094 


48 16 


482 1 


4885 


4886 


4887 


4888 


4889 




4897 


4905 


5243 


5244 


5287 


5289 


53 17 


5326 


5328 


5369 


54 10 


54 1 2 




5424 


5428 


5481 


5485 


5487 


5490 


5493 


5501 


5503 


5504 


5505 


5506 




5524 


5529 


5559 


5570 


5585 


5587 


565 1 


5668 


5679 


5742 


5749 


5752 




5764 


578 1 


5786 


5788 


5809 


5834 


5836 


5842 


5980 


598 1 


5983 


652 1 




6525 


6653 


6654 


6655 


6671 


6959 














A- 1 


985 # 


2185 


2989 


2991 


3067 


3069 


3071 


3075 


3101 


3108 


3139 


3141 




3143 


3147 


4250 


4262 


4268 


4276 


4286 


4294 


4549 


4552 


4592 


4941 




4960 


5060 


5297 


5299 


5405 


5429 


5432 


5435 


5439 


5603 


5606 


5613 




5631 


6323 


6467 


6473 


6668 


7133 


7 149 


7180 


7 197 


7387 


7400 


7602 




7633 


7688 


7701 


8265 


8327 


8330 


8364 


8503 










A-B 


982 # 


2966 


3001 


3068 


3097 


3140 


4692 


4697 


471 1 


4732 


4786 


4809 




4814 


4818 


4884 


4903 


5348 


5354 


5355 


5430 


5702 


5728 


6033 


6043 




6843 


6846 


6886 


6888 


















A-B- 1 


981 # 


5283 


5288 


5549 


5569 
















A . AND . B 


984 # 


4704 


4901 


6149 


6527 


6652 


• 6854 












A.OR.B 


980 # 


2428 


5646 




















•A 


987 # 
























BYTE 1 


991 # 
6886 


4692 
6891 


4697 
6959 


4700 


47 1 1 


4791 


4900 


6033 


6521 


6651 


6843 


6851 


BYTE2 
BYTE3 


992 tf 


4792 






















993 # 


4793 






















BYTE4 


994 if 


4794 






















BYTE5 


995 # 


47 15 


4795 


6644 


6873 
















PTR44 


990 # 


4732 


6043 


6846 


6888 
















s.# 


989 # 


2 175 


2378 


2397 


2397 


24 1 2 


24 1 2 


2428 


2966 


2969 


2973 


2983 




2985 


3001 


3004 


3007 


301 2 


3024 


3039 


304 1 


3068 


3085 


3094 


3097 




3140 


4119 


4147 


4184 


4204 


4224 


4337 


4434 


4442 


4704 


4786 


4809 




4814 


4816 


4818 


4821 


4884 


4885 


4886 


4887 


4888 


4889 


4897 


4901 




4903 


4905 


4938 


4954 


4965 


4978 


4994 


5039 


5054 


5213 


5215 


5233 




5235 


5243 


5244 


5287 


5289 


5321 


5326 


5328 


5354 


5355 


5368 


5369 




5391 


5395 


5397 


5398 


5402 


5410 


5424 


5428 


5430 


5481 


5485 


5487 




5490 


5493 


5501 


5503 


5504 


5505 


5506 


5524 


5529 


5559 


5570 


5585 




5587 


5628 


5639 


5643 


5646 


5656 


5662 


5668 


5679 


5717 


5718 


5728 




5742 


5749 


5752 


5764 


5781 


5786' 


5788 


5809 


5834 


5836 


5842 


5980 



; T10KL.MCR[ 10, 1141] 


15:34 27-JULY- 


1984 


MICRO 


31 (254*) 


KS10 


MICROCODE 


V124, 27 


- JUL-84 


Page 


303 






u 












Cross 


Reference 


L i st i ng 
















5981 


5983 


6149 


6294 


6462 


6464 


6471 


6520 


6525 


6527 


6650 


6652 






6654 


6655 


666 1 


667 1 


6854 


7129 


7 147 


7178 


7 188 


7 1 95 


7407 


7595 






7627 


768 1 


7697 


8262 


83 13 


836 1 


8497 














sc 


988 # 


2185 


2989 


299 1 


3067 


3069 


307 1 


3075 


3101 


3108 


3139 


3141 






3 143 


3 147 


4250 


4262 


4268 


4276 


4286 


4294 


4549 


4552 


4592 


494 1 






4960 


5060 


5283 


5288 


5297 


5299 


53 1 7 


5348 


5405 


54 12 


5429 


5432 






5435 


5439 


5549 


5569 


5603 


5606 


56 1 3 


563 1 


5651 


5702 


6323 


6467 






6473 


6653 


6668 


7 1 33 


7 1 49 


7 180 


7 197 


7387 


7400 


7602 


7633 


7688 






7701 


8265 


8327 


8330 


8364 


8503 














(U) 


SCADB 


996 # 


























EXP 


998 # 


2397 


2397 


2412 


24 12 


s 

5283 


5287 


5289 


53 17 


5348 


5412 


5549 






5559 


5570 , 


5651 


5702 




















FE 


997 n 


2428 


2966 


2969 


2973 


2983 


2985 


3001 


3004 


3007 


3012 


3039 






3041 


3094 


3097 


4704 


4786 


4809 


4814 


4816 


4821 


4885 


4886 


4887 






4888 


4889 


4897 


4901 


4903 


4905 


5243 


5244 


5288 


5326 


5328 


5354 






5355 


5369 


5425 


5428 


5430 


5481 


5485 


5487 


5490 


5493 


5501 


5503 






5504 


5505 


5506 


5524 


5529 


5569 


5585 


5587 


5646 


5668 


5679 


5728 






5742 


5749 


5752 


5764 


5781 


5786 


5788 


5809 


5834 


5836 


5842 


5981 






5983 


6149 


6521 


6525 


6527 


6652 


6653 


6654 


6655 


6671 


6854 






SHIFT 


999 # 


2378 


3068 


3085 


3140 


5410 
















SIZE 


1000 # 


4692 


4697 


4711 


4732 


48 18 


4884 


5980 


6033 


6043 


6843 


6846 






6886 


6888 


6959 




















(U) 


SETFOV 


1082 # 


5350 


5362 


57 1 5 


















(u) 


SETFPD 


1088 ft 


4232 


4746 


6389 


















(U) 


SETNDV 


1083 # 


4339 


4374 


4405 


449 1 


4998 


5350 


5362 


5715 








(u) 


SETOV 


1080 # 


4 132 


4 1 33 


4 157 


4219 


4339 


4374 


4405 


4491 


4998 


5350 


5362 






5427 


57 1 5 






















(U) 


SHSTYLE 


825 # 


























ASHC 


830 # 


2991 


3 100 


3 103 


3 107 


31 10 


4268 


4276 


4286 


4294 


4400 


4404 






4473 


4477 


4493 


5299 


5402 


• 5404 


5434 


5578 


5580 


5584 


5586 


5602 






5606 


5613 


5616 


5618 


5630 


567 1 


5675 


5710 


5724 


5742 


5748 


5751 






5764 


578 1 


5785 


5787 


5809 


5834 
















. DIV 


832 # 


4549 


4552 


4553 


4596 


4600 


5481 


5493 


5501 


5505 


5598 


5600 






5601 


























LSHC 


831 # 


3071 


3075 


4581 


4584 


















NORM 


826 # 


2425 


2985 


4227 


4261 


4434 


4590 


5208 


5223 


5224 


5228 


5229 






5230 


5244 


5632 


5722 




















ONES 


828 # 


4820 


4823 


4896 


4899 


5983 
















ROT 


829 # 


3007 


3012 






















ROTC 


833 # 


3143 


3 147 






















ZERO 


827 # 
























(U) 


SKIP 


903 # 


























ACO 


911 # 


2484 


3388 


4689 




















ADEQO 


923 # 


3017 


3332 


3344 


3435 


3447 


4 122 


4127 


4329 


4331 


4335 


4349 






4394 


4423 


4453 


4534 


4612 


46 17 


4622 


4638 


4645 


4963 


4992 


5346 






5372 


5374 


5447 


5489 


5513 


5669 


5720 


5762 


5807 


6137 


6190 


6266 






6269 


6558 


6595 


6616 


6739 


7296 


8289 


8292 


8358 


8376 


8379 


8483 






8567 


























ADLEQO 


907 # 


2188 


3987 


3992 


5389 


5394 


5508 


5673 


5676 


5744 


5747 


5750 






5753 . 


5813 


5913 


5956 


6095 


6097 


6179 


6199 


6383 


6399 


6453 


6488 






6491 


6523 


6987 


• 7111 


7118 


7 1 54 


7457 


7458 


7649 


765 1 


7665 


8249 






8315 


8322 


8325 


8340 


8345 


8394 


8413 


8417 


8422 


8433 


8437 


8439 






8459 


8512 


8531 


8533 


8571 


8576 


8598 


8601 


8603 


8606 


8609 


8630 






8640 


8694 


8712 


8753 




















ADREQO 


908 # 


3086 


3592 


3607 


5120 


6324 


6397 


6752 


7029 


7032 


7057 


7059 



























f 


IOKL.WR[ 10,1141] 


15:34 27-JULY- 


1984 


MICRO 


31 (254) 


KS lO 
Cross 


MICROCODE 
Reference 


V124, 27 
L i st i ng 


- JUL-84 


Page 


304 








7062 


7064 


7066 


7332 


7334 


7338 


7340 


7342 


7344 


7346 


7348 


7445 




7498 


7518 


7590 


7617 


8200 


8464 


8492 


8698 


8701 


8706 






CRYO 


906 # 


3685 


3728 


3757 


5358 


5482 


5484 


5486 


5488 








CRY 1 


919 # 


4085 


4097 


5798 


62 14 


6220 


6233 


6424 


6435 








CRY2 


914 # 


577 1 


583 1 




















DPO 


915 # 


2398 


24 1 3 


2572 


2750 


2757 


3040 


3112 


3329 


334 1 


3432 


3444 




3774 


3777 


3782 


4 104 


4 1 29 


4151 


4 1 54 


4209 


42 17 


43 18 


4354 


4356 




436 1 


4366 


4370 


4392 


4409 


442 1 


4428 


4443 


4462 


4480 


4532 


4539 




4554 


4995 


5 1 39 


5163 


5249 


5285 


5289 


53 18 


5348 


5356 


5390 


54 1 2 




5443 


5550 


5652 


5699 


5703 


57 14 


5727 


5964 


5977 


5994 


6007 


6014 




6032 


6074 


6076 


6098 


6115 


61 18 


6124 


6164 


6256 


6261 


6298 


6307 




6340 


6357 


6429 


6479 


6505 


6696 


6726 


6768 


6822 


694 1 


7106 


7251 




8276 


8374 


8597 




















DP 18 


916 # 


2377 


2736 


2743 


5937 


6 184 


6388 


6477 


6800 


6801 


7484 




EXECUTE 


925 # 


7853 






















FPD 


910 # 


4171 


4692 


4697 


47 1 1 


6288 














INT 


912 H 


5143 


6034 


82 13 


8408 


8626 


8734 


8765 


8816 








IOLGL 


904 # 


2434 


3537 


3540 


















IOT 


917 # 
























JFCL 


918 # 


3599 






















KERNEL 


909 # 


3530 


3534 


3535 


3542 


365 1 


6966 












LE 


913 ft 


3335 


3347 


3438 


3450 


4388 


5022 


5366 


5690 


6337 


7262 


7919 


LLE 


905 # 


7658 






















SC 


924 # 


2185 


2989 


299 1 


3067 


3069 


307 1 


3075 


3092 


3101 


3108 


3139 




3141 


3143 


3147 


4250 


4262 


4268 


4276 


4286 


4294 


4549 


4552 


4592 




494 1 


4960 


5060 


5297 


5299 


5405 


5429 


5432 


5435 


5439 


5552 


5554 




5603 


5606 


56 1 3 


563 1 


6323 


6467 


6473 


6659 


6668 


7 133 


7149 


7180 




7 197 


7387 


7400 


7602 


7633 


7701 


8265 


8327 


8330 


8364 


8503 




TRAP CYCLE 


92 1 # 


8752 






















TXXX 


920 # 


3285 






















- 1 MS 


928 # 


5135 


6029 


7300 


8403 
















-CONTINUE 


927 # 


7855 






















-10 BUSY 


926 # 


7683 


7689 


7698 


7706 
















SPEC 


789 # 


2569 


2575 


2689 


269 1 


2724 


2730 


2738 


2740 


2759 


2761 


2804 




2814 


2824 


2856 


2866 


2886 


2896 


2907 


2917 


2947 


4124 


4130 


4153 




4 155 


85 18 


88 18 




















APR EN 


803 # 


2166 


707 1 


7 156 


















APR FLAGS 


801 # 


7076 


7080 


7270 


















ASHOV 


810 # 


2991 


3 107 


3 1 10 


















CLR 10 BUSY 


793 # 


7576 


76 14 




















CLR 10 LATCH 


792 # 


766 1 


7669 


7673 


7676 


7685 


769 1 


7700 


7705 








CLRCLK 


79 1 # 


7247 


7301 


8453 


8737 
















CLRCSH 


802 # 


7382 


7383 


7386 


















EXPTST 


811 # 


5490 


5506 


5836 


















FLAGS 


812 # 


22 17 


2218 


2578 


3404 


3420 


3487 


3501 


3557 


3558 


356 1 


3562 




3598 


36 19 


3620 


3690 


3702 


3758 


3788 


3792 


3807 


38 1 3 


4004 


4005 




4006 


4058 


4072 


4089 


4099 


4 102 


4 132 


4 1 33 


4157 


4207 


42 19 


4229 




4232 


4339 


• 4374 


4405 


4491 


4640 


4642 


4707 


4724 


4746 


4998 


5350 




5362 


5427 


57 15 


6389 


6390 


6988 


7460 


7475 


8756 








INHCRY 18 


807 # 


3510 


3680 


3727 


3756 


3776 


3781 


5030 


5105 








LDACBLK 


813 # 


2 163 


7 126 


7 143 


















LDINST 


814 # 


2270 


3655 


6984 


7867 
















LDPAGE 


794 # 


7377 


8534 




















LDP I 


809 # 


3608 


7363 


7438 


7920 

















LDPXCT 796 # 3660 



OKL . MCR [ 10, 1 141] 


15:34 27- JULY - 


1984 


MICRO 


31(254) 


KS10 


MICROCODE 


V124, 27 


-JUL-84 


Page 


305 
















Cross 


Reference 


L i st i ng 












LOADIR 


808 U 


5918 






















LOADXR 


799 H 


2341 


3550 


3574 


3589 


4700 


4719 


4767 


5919 


5931 


6850 


6887 




6889 


6898 


7664 




















MEMCLR 


804 # 


2161 


3609 


7439 


7841 


7914 


8245 


8740 


8746 








NICOND 


795 # 


2228 


2229 


2231 


2232 


2292 


2298 


2522 


3043 


3089 


3117 


3326 




3338 


3429 


3453 


3454 


3457 


3458 


3525 


3526 


3552 


3594 


371 1 


3787 




3794 


4218 


4482 


4485 


4693 


5440 


5446 


5805 


7352 


7623 


8202 




PREV 


798 ft 


7825 


7833 




















PXCT OFF 


806 # 


2240 


2243 


2246 


2258 


2261 


2264 


2278 










SWEEP 


805 # 


7395 


7396 


7399 


















WAIT 


797 # 


2410 






















# 


790 # 


7849 


7852 


7915 


















STATE 


1004 # 
























BLT 


1006 # 


5106 






















CQMP-DST 


1013 # 


6123 






















CVTDB 


1012 


6170 






















DST 


1009 # 


6085 






















DSTF 


1011 # 


6023 






















EDIT-DST 


1015 # 


6142 


6352 


6379 


6598 


6624 


8773 


8777 










EDIT-S+D 


1016 # 


6564 






















EDIT-SRC 


1014 # 


6116 


6503 


6560 


8771 


8779 


8781 


8785 










MAP 


1007 # 


8201 






















SIMPLE 


1005 # 
























SRC 


1008 # 


5972 


6001 


607 1 


8775 
















SRC+DST 


1010 # 


5998 


6077 




















SWITCH% 


























FULL 


398 


1295 


1297 


2172 


2192 


2197 


2201 


4166 


4234 


4237 


4384 


4494 




4497 


4565 


4630 


4916 


5067 


5071 


7150 


7158 










INHCST 


7 


401 


1241 


1243 


1245 


8004 


8006 


8353 


8356 


8357 


8360 


8478 




8481 


8482 


8485 


8556 


8565 


8566 


8582 












KIPAGE 


9 


410 


418 


420 


422 


1265 


1267 


1269 


3947 


3957 


4009 


4020 




7160 


7167 


7173 


7175 


8270 


8274 


8279 


8282 


8646 


8692 


8801 


8804 




8808 


8813 






















KLPAGE 


413 


417 


419 


1271 


1273 


1275 


3948 


3952 


3958 


3972 


7161 


7166 




7169 


7171 


8269 


8278 


8284 


8487 


8550 


8644 


8800 


8806 


8823 


8828 


NOCST 


404 


425 


427 


1247 


1249 


1251 


8348 


8423 


8427 


8441 


8444 


8445 




8449 


8475 


8494 


8551 ' 


8583 
















NONSTD 


10 


429 


1253 


1255 


1257 
















SIM 


395 


2210 


2215 


2222 


















UBABLT 


8 


407 


416 


423 


1259 


1261 


1263 


5181 


5255 


7797 


7799 


7801 


T 


941 # 
























21 


944 # 


4409 


4422 


5289 


5559 


6133 


6203 


6267 


6555 


6692 


6737 


7302 




7659 
























3T 


945 # 


2188 


2413 


2423 


2578 


3111 


3285 


3370 


3404 


3420 


3510 


3600 




3684 


3719 


3727 


3752 


3756 


3773 


3778 


3783 


3820 


3834 


4058 


4072 




4175 


4177 


4196 


4230 


4367 


4371 


4421 


4427 


4428 


4429 


4446 


4450 




4471 


4479 


4560 


4625 
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D 


0100 


3898 


3899 


3900 


3901 


3906 


3766 


3907 


3908 


u 


A -1 1 A 
U 1 1U 




5535 


5623 


5684 


4079 


4080 


4 1 63 


438 1 


D 


0120 


2766 


2767 


5419 


5908 


2775 


2776 


5420 


5384 


D 


0130 


3909 


3910 


5385 


4682 


4683 


4684 


4685 


4686 


D 


0140 


5260 


391 1 


5261 


5262 


5263 


5264 


5265 


5266 


D 


0150 


5268 


3912 


5269 


5270 


5271 


5272 


5273 


5274 


D 


0160 


5305 


3913 


5306 


5307 


5309 


5310 


531 1 


5312 


D 


0170 


5334 


3914 


5335 


5336 


5338 


5339 


5340 


5341 


D 


0200 


2547 


2548 


2549 


2550 


2552 


2553 


2554 


2555 


D 




2557 


2558 


2559 


2560 


2562 


2563 


2564 


2565 


D 


0220 


4112 


4113 


4114 


4115 


4137 


4138 


4139 


4140 


D 


0230 


4304 


4305 


4306 


4307 


4309 


4310 


431 1 


4312 


D 


0240 


2952 


2953 


2954 


2955 


2956 


2957 


2958 


3915 


D 


0250 


2584 


5109 


3504 


3505 


3516 


3518 


3647 


8188 


D 


0260 


3669 


3670 


3671 


3672 


3799 


3800 


3801 


3802 


D 


0270 


4050 


4051 


4052 


4053 


4064 


4065 


4 % 066 


4067 


D 


0300 


3350 


3351 


3352 


3353 


3354 


3355 


3356 


3357 


n 


r\r> ■* r\ 
V/O 1 \J 


3359 


3360 


336 1 


3362 


3363 


3364 


3365 


3366 


D 


0320 


3462 


3463 


3464 


3465 


3466 


3467 


3468 


3469 


D 


0330 


3376 


3377 


3378 


3379 


3380 


3381 


3382 


3383 


D 


0340 


3476 


3477 


3478 


3479 


3480 


3481 


3482 


3483 


D 


0350 


3393 


3394 


3395 


3396 


3397 


3398 


3399 


3400 


D 


0360 


3490 


3491 


" 3492 


3493 


3494 


3495 


3496 


3497 


D 


0370 


3409 


3410 


3411 


3412 


3413 


3414 


3415 


3416 


D 


0400 


2797 


2798 


2799 


2800 


2807 


2808 


2809 


2810 


n 


Ad 1 A 


28 1 7 


28 18 


28 19 


2820 


2827 


2828 


2829 


2830 


D 


0420 


2832 


2833 


2834 


2835 


2842 


2843 


' 2844 


2845 


D 


0430 


2849 


2850 


2851 


2852 


2859 


2860 


2861 


2862 


D 


0440 


2869 


2870 


2871 


2872 


2879 


2880 


2881 


2882 


D 


0450 


2889 


2890 


2891 


2892 


2899 


2900 


2901 


2902 


D 


0460 


2910 


2911 


2912 


2913 


2920 


2921' 


2922 


2923 


D 


0470 


2930 


2931 


2932 


2933 


2940 


2941 


2942 


2943 


D 


0500 


2600 


2601 


2602 


2603 


2605 


2606 


2607 


2608 


D 


0510 


2610 


261 1 


2612 


2613 


2615 


2616 


2617 


26 18 


D 


0520 


2620 


2621 


2622 


2623 


2625 


2626 


2627 


2628 


D 


0530 


2630 


2631 


2632 


2633 


2635 


2636 


2637 


2638 


D 


0540 


2642 


2643 


2644 


2645 


2647 


2648 


2649 


2650 


D 


0550 


2652 


2653 


2654 


2655 


2657 


2658 


2659 


2660 


D 


0560 


2662 


2663 


2664 


2665 


2667 


2668 


2669 


2670 


D 


0570 


2672 


2673 


2674 


2675 


2677 


2678 


2679 


2680 





T10KL.MCR[ 10, 1141] 


1 5 ; 34 


O *7 till W 


1984 


MI CRO 


3 1 v 2d4 ) 


KS10 


MICROCOD 


















Location / Li 




Dcode Loc'n 





1 


2 


3 


4 


5 


6 


7 


u 


0600 


3175 


3 1 76 


3177 


3 1 78 


3 1 79 


3 1 80 


318 1 


3182 


U 


06 10 


3 184 


O HOC 

O I03 


o < o c 
J 1 oo 


0^07 
J 1 o / 


o^oo 

J 1 oo 


3 1 89 


3190 


3191 


u 


0620 


3193 


O 1 zi e * 




o i y o 


O 4 07 


O < Q D 


3199 


3200 


D 


0630 


3202 


3203 


3204 


3205 


3206 


3207 


3208 


3209 


D 


0640 


32 1 1 


3212 


3213 


3214 


3215 


3216 


3217 


321 8 


n 
u 


0650 


3220 


oZZ 1 


oZZZ 


OZZO 




O O O R 


3226 


3227 


u 


0660 


3228 


o zzy 


o o o/~\ 


d/O 1 




o o o o 

o Zoo 


3234 


3235 


n 


0670 


3237 


oZoa 






O O A i 




3243 


3244 


u 


0700 


6996 


6997 


7204 


7737 


78 1 8 


78 1 9 


7738 


7739 


D 


07 10 


7525 


7526 


7536 


7537 


7550 


755 1 


774 1 


7742 


D 


0720 


7527 


7528 


7538 


7539 


7552 


7553 


7744 


7745 


U 


0730 


7747 


/ f HO 




77CA 


/ / O 1 


77CO 

/ / oz 


7753 


7754 


D 


0740 


7756 


7757 


7758 


7759 


7760 


7761 


7762 


7763 


D 


0750 


7765 


7766 


7767 


7768 


7769 


7770 


7771 


7772 


D 


0760 


7774 


7775 


7776 


7777 


7778 


7779 


7780 


7781 


D 


0770 


7783 


7784 


7785 


7786 


1181 


7788 


7789 


7790 
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Location / Line Number Index 
Ucode Loc'n 1 2 3 4 5 6 7 



u 


0000 


2149: 


7912: 


2150 


2158 : 


7853: 


7855: 


5209 = 


5212 = 


u 


0010 


2182 = 


7913: 


2183 = 


2151 


3285 = 


3288 = 


3291 = 


3294 = 


u 


0020 


3971 = 


4121 = 


3977 = 


3980= 


7914 = 


4122 = 


7915 = 


3983 = 


u 


0030 


3559 = 


4149 = 


3563 = 


4490= 


3567 = 


4150= 


3571 = 


4491 = 


u 


0040 


2354: 


2358: 


2362 : 


2370: 


2380: 


2383: 


2390: 


2394: 


u 


0050 


2407 : 


2413: 


2434 : 


2152 


4412 = 


4414 = 


4448 = 


4449 = 


u 


0060 


3631 = 


2153 


5042 = 


5443 = 


3634 = 


3636 = 


5049 = 


7581 = 


u 


0070 


4752 = 


2156 


4756 = 


5444 = 


• 4760= 


4416 = 


4763 = 


7582 = 


u 


0100 


2160 


2241 = 


2244 = 


2247 = 


7840= 


2248 = 


2161 


2252 = 


u 


01 10 


2163 


2259 = 


2262 = 


2265 = 


•7842= 


2266 = 


7844 = 


2271 = 


u 


0120 


4176 = 


4178 = 


4269 = 


4273 = 


4179 = 


2166 


4277 = 


4281 = 


u 


0130 


3829 = 


2168 


5689 = 


5691 = 


3832 = 


3836 = 


2170 


7047: 


u 


0140 


2191 = 


2194 = 


4287 = 


4291 = 


5368 = 


5369 = 


4295 = 


4299 = 


u 


0150 


3551 = 


2202 = 


3552 = 


5599 = 


5371 = 


5373 = 


5375 = 


5376 = 


u 


0160 


4332 = 


4335 = 


2171 


5323 = 


4338 = 


4339 = 


4341 = 


5325 = 


u 


0170 


5925 = 


4185 = 


5927 = 


5600= 


5928 = 


4186 = 


5929 = 


5377 = 


u 


0200 


5782 = 


2292 = 


5784 = 


2298 = 


5786 = 


2304 = 


5788 = 


2309 = 


u 


0210 


5790= 


2317 = 


2173 


2321 = 


2174 


2331 = 


5791 = 


2335 = 


u 


0220 


3709 = 


371 1 = 


3713 = 


2175 


2187 = 


2188 = 


2176 


7617 = 


u 


0230 


6893 = 


6845 = 


6894 = 


6846 = 


6895 = 


2177 


6896 = 


7618 = 


u 


0240 


4691 = 


4692 = 


2178 


5670= 


2179 


4693 = 


6534 = 


6535 = 


u 


0250 


3326 = 


3329 = 


3332 = 


3335 = 


3338 = 


3341 = 


3344 = 


3347 = 


u 


0260 


2231 = 


2232 = 


5523 = 


567 x 1 = 


4720= 


4723 = 


5524 = 


4724 = 


u 


0270 


3429 = 


3432 = 


3435 = 


3438 = 


3441 = 


3444 = 


3447 = 


3450= 



U 


0300 


3586 = 


3590= 


5528 = 


3592 = 


2399 = 


2401 = 


5529 = 


3593 = 


U 


0310 


4195 = 


4197 = 


5832 = 


2180 


4198 = 


2184 


5834 = 


3594 = 


U 


0320 


3606 = 


3607 = 


6693 = 


2185 


2218 


3608 = 


6694 = 


5508 = 


U 


0330 


4357 = 


4359 = 


2220 


4362 = 


3967 = 


3610= 


3969 = 


5510= 


U 


0340 


4788 = 


4791 = 


4792 = 


2279 


4793 = 


4794 = 


2341 


4795 = 


U 


0350 


4730= 


4731 = 


4732 = 


4733 = 


4434 = 


4474 = 


4435 = 


4475 = 


U 


0360 


4884 = 


4885 = 


4886 = 


2346 


4887 = 


4888 = 


2364 


4889 = 


U 


0370 


4514 = 


2367 


2416 = 


2419 = 


4515 = 


4516 = 


4517 = 


4518 = 


U 


0400 


4036: 


2372 


2435 = 


2436 = 


7349 = 


7350= 


2384 


5526 = 


U 


0410 


4810= 


4444 = 


481 1 = 


4445 = 


4706 = 


7352 = 


4708 = 


5527 = 


U 


0420 


5481 = 


5482 = 


5483 = 


5484 = 


5485 = 


5486 = 


5487 = 


5488 = 


U 


0430 


5489 = 


2386 


2421 


5582 = 


2457 = 


2458 = 


5490= 


5583 = 


U 


0440 


5501 = 


6321 = 


5502 = 


6323 = 


5503 = 


2422 


5504 = 


6324 = 


U 


0450 


5505 = 


2425 


. 2426 


5616 = 


2539 = 


2542 = 


5506 = 


5617 = 


U 


0460 


6178 = 


6180= 


5836 = 


5840= 


6182 = 


6184 = 


5843 = 


2428 


U 


0470 


7472 = 


2431 


5606 = 


5608 = 


7474 = 


7476 = 


5609 = 


5610= 


U 


0500 


5993 = 


5995 = 


2991 = 


2995 = 


5997 = 


5999 = 


2592 


6001 = 


U 


0510 


6379 = 


2722 


2728 


5729 = 


3021 = 


3022 = 


6380= 


5730= 


U 


0520 


5743 = 


5744 = 


5746 = 


5747 = 


5749 = 


5750= 


5752 = 


5753 = 


U 


05 30 


5755 = 


2787 


2792 


6818 = 


3040= 


3041 = 


5756 = 


6820= 


u 


0540 


6074 = 


6076 = 


6078 = 


4205 = 


3071 = 


3072 = 


6081 = 


4207 = 


u 


0550 


5013 = 


5015 = 


2907 


5019 = 


3075 = 


3076 = 


5936 = 


5937 = 


u 


0560 


6212 = 


6215 = 


6371 = 


4228 = 


2973 


6216 = 


6372 = 


4230= 


u 


0570 


5214 = 


5216 = 


2986 


5217 = 


5972 = 


5973 = 


5975 = 


5978 = 



o 
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Location / Line Number Index 





Ucode Loc ' n 


r\ 
U 


A 

1 



2 


O 


4 


5 


6 


7 \ 


1 1 

u 








0U00- 


OAOQ — 

oUoy- 


2989 


6222 = 


6578 = 


6579 = 


U 


0610 


5234 = 


5236 = 


3005 


•5237 = 


3095 = 


3097 = 


6170 = 


6173 = 


U 


0620 


6229 = 


6230= 


6234 = 


5639 = 


3101 = 


3103 = 


6235 = 


5643 = 


u 


UooU 


C7Q j| _ 

o / y4 — 


oUU / 


C7QC- 

o / y to - 


C7QO- 


3 1 08 = 


3 1 10= 


6377 = 


6378 = 


u 


Ub4U 




000U- 


1 14- 


01 1 b - 


3 1 43 = 


3 1 44 = 


3008 


636 1 = 


1 1 

u 


UboU 




6024 = 


3010 


6026 = 


6462 = 


6463 = 


6464 = 


6465 = 


1 1 

u 


ACCA 

UbbU 


4» / 1 - 


d A H *1 — 

b4 / / - 


4972 = 


6480= 


498 1 = 


6482 = 


4932 = 


6484 = 


u 


Ub / U 


b202- 


6486 = 


5203 = 


6489 = 


5285 = 


6492 = 


5236 = 


6494 = 


U 


0700 


6555 = 


30 1 3 


6559 = 


656 1 ~ 


6562 = 


6565 = 


3024 


6567 = 


U 


0710 


6502 = 


6504 = 


6506 = 


6509 = 


6510= 


6512 = 


6731 = 


6732 = 


U 


0720 


5427 = 


6769 = 


5428 = 


6771 = 


5429 = 


6775 = 


5430= 


6779 = 


u 


A70A 


5644 = 


6783 = 


5656 = 


6787 = 


5645 = 


679 1 = 


5657 = 


6795 = 


u 


r\"7 a r\ 


6600= 


6602 = 


3147 = 


3 1 49 = 


3389 = 


3390= 


6604 = 


3042 


1 1 
u 


A7CA 

vJ / DU 


OU4U- 


DU4Z- 


6044 = 




a OAO — 
boUo - 


68 11 = 


68 13 = 


68 15 = 


1 1 

u 


A7CA 


bb2i3 - 


OO-eit) — 


o40vJ- 


O A K A — 

J4D4 - 


a c; T — 
o4o / - 


3458 = 


6627 = 


3043 


1 1 

u 


A77A 


f 42U - 


1 4 2 1 — 


*7 A O O — 
/ 422- 


"7 yl O O — 
/42a- 


"7 A O A — 

/ 424- 


7425 = 


7426 = 


7427 = 


1 1 
u 


1 uuu 


O O 1 4 — 


1 / - 


QQ4Q- 
00 13- 


Q004- 


OO / — 


OC7Q- 

ob / y - 


OAC O 


8323 = 


U 


1010 


8331 = 


8332 = 


5663 = 


7562 = 


3077 


8333 = 


5668 = 


7564 = 


U 


1020 


6084 = 


6085 = 


5914 = 


6086 = 


3583 = 


3584 = 


5916 = 


7590= 


1 1 
u 


i UoU 


6117 = 


6119 = 


6 1 20= 


3078 


3627 = 


3628 = 


3092 


759 1 = 


U 


1040 


8377 = 


8380= 


8382 = 


8384 = 


3640= 


364 1 = 


3112 


8388 = 


U 


1050 


6 1 26 = 


6 1 28 = 


6 1 29 = 


3117 


57 17 = 


7659 = 


57 18 = 


766 1 = 


1 1 
u 


1060 


8217 = 


82 19 = 


3141 


8223 = 


572 1 = 


8225 = 


5722 = 


8227 = 


U 


1070 


8229 = 


823 1 = 


8233 = 


8235 = 


6 1 93 = 


6195 = 


6 1 96 = 


3299 


u 


1 100 


8766 = 


8768 = 


8770= 


8772 = 


8774 = 


8776 = 


8778 = 


8780= 


U 


1 1 10 


8782 = 


8783 = 


8784 = 


8786 = 


6727 = 


6728 = 


6729 = 


3300 


U 


1 120 


7281 = 


7284 = 


3405 


7286 = 


7303 = 


7305 = 


7306 = 


3406 


1 1 
u 


1 1 JO 


7687 = 


7690= 


7693 = 


7695 = 


8393 = 


8396 = 


8398 = 


8403 = 


U 


1 1 40 


8422 = 


8426 = 


3554 


8432 = 


8738 = 


8739 = 


8740= 


3575 


U 


1 1 50 


8569 = 


8570= 


3657 = 


366 1 = 


8572 = 


3580 


3697 = 


3701 = 


u 


1 160 


3733 = 


3737 = 


3758 = 


376 1 = 


3779 = 


3784 = 


3787 = 


3789 = 


1 1 

u 


A A 1 f~\ ' 
1 1 /O 


3793 = 


3794 = 


3946 = 


3959 = 


3962 = 


3965 = 


399 1 = 


3993 = 


U 


1 200 


3996 = 


4000= 


4090= 


409 1 = 


4 100= 


4 102 = 


4 105 = 


4 106 = 


U 


1210 


4123 = 


4124 = 


4129 = 


4130= 


4132 = 


4133 = 


4153 = 


4154 = 


u 


1220 


4155 = 


4157 = 


4210= 


421 1 = 


4218 = 


4219 = 


4320= 


4322 = 


u 


A T3A 


4347 = 


4350= 


4368 = 


4372 = 


4374 = 


4376 = 


4390=- 


4392 = 


U 


1 240 


4394 = 


4395 = 


4404 = 


4405 = 


4420= 


442 1 = 


4423 = 


4424 = 


U 


1 250 


4427 = 


4428 = 


4429 = 


4430= 


4438 = 


4439 = 


4454 = 


4455 = 


u 


A OCA 
1 2bU 


A A C A — 


4465 = 


4482 = 


4483 = 


4533 = 


4534 = 


4535 = 


4536 = 


u 


A 07A 


4542 = 


4543 = 


4552 = 


4553 = 


4556 = 


4557 = 


458 1 = 


4584 = 


u 


a o r\r\ 


4598 = 


4602 = 


46 14 = 


4615 = 


46 19 = 


4620= 


4624 = 


4625 = 


1 1 

u 


1 J IV 




A A O — 


A £1 A d — 


A a A "7 — 
4o4 / — 


A Q A O — 


A Q A K — 

4y 40 - 


496 1 = 


4963 = 


U 


1320 


4966 = 


4967 = 


4997 = 


4998 = 


5032 = 


5034 = 


5061 = 


5064 = 


U 


1330 


5097 = 


5099 = 


5125 = 


5132 = 


5136 = 


5139 = 


5141 = 


5143 = 


u 


1340 


5148 = 


5153 = 


5165 = 


5166 = 


5250 = 


525t= 


5290= 


5291 = 


u 


1350 


5294 = 


5295 = 


5299 = 


5300= 


5319 = 


5320= 


5349 = 


5350= 


u 


1360 


5352 = 


5353 = 


5358 = 


5359 = 


5361 = 


5362 = 


5365 = 


5366 = 


u 


1370 


5390= 


5391 = 


5394 = 


5395 = 


5397 = 


5398 = 


5405 = 


5406 = 
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Location / Line Number Index 
Ucode Loc'n 1 2 3 4 5 6 7 



u 


1400 


2228 


2229 


2569 


2572 


2575 


2579 


2589 


2689 : 


u 


1410 


2691 


2716 


2718 


2721 


2724 


2727 


2730 


2736: 


u 


1420 


2738 


2740 


2743 


2750 


2745 


2747 


2752 


2754: 


u 


1430 


2757 


3404 


2759 


2761 


2771 


8541 


2772 


3420: 


u 


1440 


3473 


2804 


2814 


2824 


2839 


• 2856 


2866 


2876: 


u 


1450 


2886 


2896 


2906 


2917 


2927 


2937 


2947 


4085 : 


u 


1460 


7543 


7547 


3017 


7544 


3067 


3068 


3086 


5912: 


u 


1470 


3139 


3140 


3269 


3271 


3274 


3277 


3370 


3388: 


u 


1500 


8544 


8548 


8567 


8593 


2485 


2490 


2496 


8595 


u 


1510 


8597 


8626 


8640 


8698 


2517 


2522 


2528 


2534: 


u 


1520 


3525 


3526 


3528 


3529 


3530 


3533 


3534 


3535: 


u 


1530 


3537 


3538 


3540 


3541 


3542 


3543 


3544 


3545: 


u 


1540 


3601 


3651 


3501 


3678 


3691 


3720 


3753 


351 1 : 


u 


1550 


3806 


3771 


3813 


8194 


3826 


3840 


3941 


4031 : 


u 


1560 


4058 


4072 


8722 


8725 


8732 


2781 


4168- 


2786: 


u 


1570 


5318 


4145 


8734 


8743 


5346 


8746 


5280 


5283: 


u 


1600 


4316 


4325 


8756 


8795 


8816 


88,32 


8834 




u 


1610 


4689 


3487 


2967 


2970 


7532 


4097 


5389 


7533: 


u 


1620 


'4697 


5410 


2981 


2983 


4701 


4702 


5426 


4386: 


u 


1630 


471 1 


5628 


3002 


3004 


4713 


5544 


5687 


5547: 


u 


1640 


51 13 


41 18 


5115 


5118 


7558 






7560: 


u 


1650 


7794 


7800 


7803 


7805 


7807 


7809 


781 1 


7813: 


u 


1660 


3931 


3919 


3921 


3923 


3925 


3933 


3927 


3929: 


u 


1670 


















u 


1700 


7037 


7000 


7001 


7002 


7050 


7084 


7003 


' 7004 : 


u 


1710 


7006 


7007 


7008 


7009 


7332 


7329 


7010 


7011: 


u 


1720 


7014 


7187 


7377 


7103 


7147 


7178 


7015 


7016: 


u 


1730 


7019 


7020 


7021 


7022 


7023 


7024 


7025 


7026: 


u 


1740 


5880 


5882 


5884 


5886 


5888 




5890 


5892: 


u 


1750 


5894 


5896 






7825 


7833 






u 


1760 


7209 


721 1 


7213 


7215 


7292 


7324 


7217 


7218: 


u 


1770 


7221 


7225 


7229 


7233 


7276 


7316 


7237 


7240: 


u 


2000 ' 


5413 = 


5414 = 


5435 = 


5436 = 


5439 = 


5440= 


5446 = 


5447 = 


u 


2010 


5448 = 


5450= 


5493 = 


5494 = 


5497 = 


5499 = 


5512 = 


5513 = 


u 


2020 


5514 = 


5515 = 


= 5552= 


5554 = 


5557 = 


5559 = 


5563 = 


5564 = 


u 


2030 


5571 = 


5572 = 


5613 = 


5614 = 


5631 = 


5632 = 


5653 = 


5654 = 


u 


2040 


5674 = 


5675 = 


= 5677= 


5679 = 


5694 = 


5695 = 


5704 = 


5705 = 


u 


2050 


5713 = 


5714 = 


5715 = 


57-16 = 


5732 = 


5733 = 


5765 = 


5766 = 


u 


2060 


5770= 


5771 = 


5775 = 


5777 = 


5802 = 


5803 = 


5810= 


5811 = 


u 


2070 


5820= 


5821 = 


5939 = 


5941 = 


5961 = 


5964 = 


5966 = 


5967 = 


u 


2100 


5957 = 


5983 = 


3613 


5984 = 


5958 = 


3616 


6009= 


6011 = 


u 


21 10 


6015 = 


6016 = 


6030= 


6032 = 


6035 = 


6037 = 


6048 = 


6050= 


u 


2120 


6059 = 


6095 = 


6060= 


6097 = 


6162 = 


6096 = 


6163 = 


6098 = 


u 


2130 


6099 = 


6100= 


= 6103= 


6105 = 


6113 = 


6114 = 


6140= 


6141 = 


u 


2140 


6147 = 


6150= 


6165 = 


6168 = 


= 6186= 


6190= 


6200= 


6201 = 


u 


2150 


6204 = 


6206 = 


6240= 


6241 = 


6253 = 


6254 = 


6257 = 


6258 = 


u 


2160 


6261 = 


6262 = 


6267 = 


6269 = 


6270= 


6272 = 


6280= 


6281 = 


u 


2170 


6291 = 


6292 = 


6301 = 


6303 = 


6296 = 


6305 = 


6298 = 


6307 = 
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Location / Line 'Number Index 





Ucode Loc'n 





1 


2 


3 


4 


5 


6 


7 


u 


2200 


6309 = 


6310= 


6315 = 


6318 = 


6328 = 


6329 = 


6333 = 


6334 = 


u 


2210 


6339 = 


6340= 


6342 = 


6346 = 


6384 = 


6385 = 


6389 = 


6390 = 


M 


2220 


6396 = 


6397 = 


6398=- 


6399 = 


6400= 


6401 = 


6418 = 


6419 = 


u 


2230 


6422 = 


6552 = 


6424 = 


6553 = 


6425 = 


6426 = 


6432 = 


6433 = 


u 


2240 


6438 = 


6440= 


6454 = 


8339 = 


6459 = 


6460= 


6455 = 


8340= 


u 


2250 


6467 = 


6468 = 


6473 = 


6474 = 


6500= 


6501 = 


6525 = 


6528 = 


u 


2260 


6542 = 


6543 = 


6572 = 


6573 = 


6593 = 


6595 = 


66 1 7 = 


66 19 = 


u 


2270 


6621 = 


6622 = 


6639 = 


664 1 = 


6662 = 


6666 = 


6668 = 


6670= 


u 


2300 


6697 = 


6698 = 


675 1 = 


6752 = 


6756 = 


6758 = 


6802 = 


6804 = 


u 


2310 


6824 = 


6826 = 


6841 = 


6842 = 


6851 = 


6855 = 


6870 = 


6873 = 


u 


2320 


6875 = 


6887 = 


6876 = 


6888 = 


6927 = 


6928 = 


6935 = 


6936 = 


u 


2330 


6943 = 


6944 = 


6946 = 


6947 = 


6973 = 


698 1 = 


6990= 


699 1 = 


u 


2340 


7058 = 


7059 = 


7060= 


706 1 = 


7063 = 


7064 = 


7065 = 


7066 = 


u 


2350 


7068 = 


7069 = 


7112 = 


71 15 = 


7122 = 


7 127 = 


7 1 34 = 


7 1 37 = 


u 


2360 


7 149 = 


7 152 = 


7 155 = 


7 156 = 


7 180= 


7181 = 


7 188 = 


7191 = 


u 


2370 


7197 = 


7 198 = 


7254 = 


7255 = 


7257 = 


793 1 = 


7259 = 


7932 = 


u 


2400 


7265 = 


7266 = 


7297 = 


7298 = 


'7333= 


7334 = 


7335 = 


7336 = 


u 


2410 


7339 = 


7340= 


7341 = 


7342 = 


7343 = 


7344 = 


7345 = 


7346 = 


u 


2420 


7347 = 


7348 = 


7380= 


7382 = 


7388 = 


7389 = 


7393 = 


7395 = 


u 


2430 


7401 = 


7403 = 


7442 = 


7445 = 


7446 = 


7447 = 


7458 = 


7459 = 


u 


2440 


7469 = 


7470= 


7486 = 


7488 = 


7490= 


7492 = 


7494 = 


7496 = 


u 


2450 


7500= 


7501 = 


7515 = 


7516 = 


75 19 = 


7520= 


7577 = 


7578 = 


u 


2460 


7586 = 


7589 = 


7596- 


7598 = 


7602 = 


7604 = 


76 15 = 


76 16 = 


u 


2470 


7622 = 


7623 = 


7628 = 


7630= 


7634 = 


7636 = 


7647 = 


7648 = 


u 


2500 


7651 = 


7653 = 


7656 = 


7657 = 


7666 = 


7667 = 


7673 = 


7674 = 


u 


2510 


7701 = 


7702 = 


7707 = 


7708 = 


7848 = 


7849 = 


7860 = 


7861 = 


u 


2520 


7864 = 


7868 = 


7921 = 


7923 = 


7934 = 


7935 = 


7935 = 


7937 = 


u 


2530 


7938 = 


7941 = 


7939 = 


7942 = 


7944 = 


7947 = 


7945 = 


7948 = 


u 


2540 


7950= 


7953 = 


7951 = 


7954 = 


7955 = 


8350= 


7956 = 


$351 = 


u 


2550 


8201 = 


8202 = 


8252 = 


8255 = 


8266 = 


8268 = 


8290= 


8292 = 


u 


2560 


8295 = 


8298 = 


8303 = 


8305 = 


8325 = 


8327 = 


8345 = 


8347 = 


u 


2570 


8359 = 


8416 = 


8365 = 


8374 = 


8361 = 


8418 = 


8405 = 


8408 = 


u 


2600 


8412 = 


8413 = 


8436 = 


8438 = 


8439 = 


8443 = 


8463 = 


8465*= 


u 


2610 


8453 = 


3618 


8455 = 


8484 = 


8470 = 


8474 = 


3620 


8493 = 


u 


2620 


8498 = 


8500= 


8504 = 


8507 = 


8514 = 


8516 = 


8532 = 


8534 = 


u 


2630 


8537 = 


8538 = 


8575 = 


8576 = 


8580= 


858 1 = 


8600= 


8601 = 


u 


2640 


8605 = 


8606 = 


86 1 1 = 


86 12 = 


86 15 = 


86 16 = 


8629 = 


8630= 


u 


2650 


8638 = 


8639 = 


8641 = 


8642 = 


8694 = 


8697 = 


8700 = 


8701 = 


u 


2660 


8705 = 


8707 = 


87 1 1 = 


87 13 = 


87 17 = 


87 18 = 


8727 = 


8730= 


u 


2670 


8750= 


8752 = 


8754 = 


8755 = 


8758 = 


8759 = 


8761 = 


3622 


u 


2700 


8792 = 


8793 = 


8798 = 


8805 = 


88 18 = 


8819 = 


8826 = 


8827 = 


u 


2710 


3642 


3664 


3686 


3704 


3723 


3728 


3742 


3747 


u 


2720 


3757 


3774 


3809 


3815 


3817 


3821 


3827 


3841 


u 


2730 


3843 


3846 


3943 


3985 


3986 


3988 


4002 


4007 


u 


2740 


4024 


4027 


• 4039 


4041 


4045 


4093 


4104 


41 19 


u 


2750 


4127 


4146 


4147 


4151 


4169 


4171 


4188 


4189 


u 


2760 


4200 


4209 


4212 


4213 


4214 


4215 


4217 


4223 


u 


2770 


4224 


4225 


4232 


4248 


4251 


4263 


4318 


4326 
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* 


Ucode Loc'n 





1 


2 


3 


y 


3000 


4327 


4329 


4352 


4354 


U 


3010 


4406 


4407 


4409 


4433 


U 


3020 


4452 


4453 


4457 


4459 


U 


3030 


4470 


447 1 


4477 


4480 


u 


3040 


4539 


454-5 


4546 


4547 


y 


3050 


4559 


4562 


4592 


46 10 


y 


3060 


4628 


4629 


4636 


4638 


y 


3070 


4737 


4745 


4747 


4768 


y 


3 100 


48 18 


48 19 


4822 


4823 


U 


31 10 


4898 


4899 


4900 


4901 


U 


3120 


491 1 


4913 


4938 


4948 


U 


3 130 


4975 


4976 


4977 


4978 


u 


3 1 40 


5039 


5040 


5052 


5054 


y 


3 1 50 


5101 


5 103 


5 105 


5 106 


y 


3 160 


5163 


5171 


5 1 75 


5 177 


y 


3 1 70 


5223 


5224 


5226 


5228 


y 


3200 


5243 


5244 


5247 


5248 


U 


3210 


5289 


5297 


5321 


5326 


U 


3220 


5379 


5402 


541 1 


5412 


y 


3230 


5565 


5569 


5570 


5573 


U 


3240 


5588 


5601 


5603 


56 18 


y 


3250 


5652 


5658 


5672 


5673 


U 


3260 


5706 


5707 


5710* 


5725 


u 


3270 


5805 


5807 


58 1 3 


5918 


U 


3300 


5969 


5980 


598 1 


5986 


U 


3310 


6029 


6046 


6053 


6056 


U 


3320 


6064 


6070 


6071 


6088 


U 


3330 


6 124 


6132 


6133 


6134 


u 


3340 


6143 


6 156 


6158 


6160 


u 


3350 


6243 


6246 


6248 


6256 


u 


3360 


6282 


6293 


6294 


63 1 3 


u 


3370 


6350 


635 1 


6352 


6353 


y 


3400 


6375 


638 1 


6382 


6383 


u 


34 10 


6407 


6427 


6429 


6434 


u 


3420 


6520 


6521 


6523 


6545 


u 


3430 


6590 


6591 


6609 


6630 


u 


3440 


6651 


6652 


6653 


•6654 


u 


3450 


6676 


6678 


6679 


6696 


u 


3460 


6822 


6844 


6847 


6849 


u 


3470 


6898 


6899 


6913 


6915 



U 


3500 


6941 


6949 


6951 


6953 


U 


3510 


6964 


6966 


6984 


6987 


U 


3520 


7052 


7053 


7054 


7056 


U 


3530 


7076 


7078 


708 1 * 


7086 


U 


3540 


7097 


7106 


7118 


7130 


U 


3550 


7154 


7157 


7174 


7184 


U 


3560 


7199 


7222 


7223 


7226 


U 


3570 


7235 


7238 


7239 


7247 
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4 


5 


6 


7 


4388 


4397 


4398 


4401 


4436 


4437 


4440 


4446 


4460 


4462 


4467 


4468 


4485 


4493 


4532 


4538 


4548 


4549 


4554 


4558 


4612 


4617 


4622 


4627 


4645 


4716 


4717 


4736 


4772 


4805 


• 4814 


4817 


4824 


4891 


4892 


4895 


4903 


4906 


4909 


49 10 


4949 


4952 


4954 


4956 


4984 


4992 


5022 


5036 


5057 


5066 


5093 


5100 


5120 


5135 


5158 


5160 


5179 


5207 


5220 


5222 


5229 


5230 


5232 


5241 


5249 


5254 


5287 


5288 


5329 


5354 


5355 


5356 


5432 


5516 


5545 


5550 


5578 


5580 


5585 


5587 


5633 


5634 


5638 


5646 


5676 


5696 


5700 


5703 


5759 


5762 


5772 


5800 


5920 


5922 


5923 


5931 


6007 


6013 


6014 


6017 


OUD / 




606 1 




6089 


6115 


6122 


6123 


6135 


6136 


6137 


6142 


6174 


6199 


6202 


6225 


6259 


6264 


6266 


6273 


6335 


6337 


6347 


6348 


6354 


6357 


6363 


6368 


6386 


6387 


6388 


6403 


6435 


6456 


6457 


6471 


6546 


6582 


6588 


6589 


6632 


6642 


6645 


6650 


6656 


6659 


6671 


6674 


6737 


6740 


6745 


6747 


6868 


6886 


6889 


6891 


6920 


6930 


6931 


6939 


6954 


6955 


6957 


6960 


7028 


7029 


7031 


7032 


7057 


7062 


7071 


7073 


7089 


7022 


7093 


7095 


7139 


7140 


7144 


7153 


7194 


7135 


6908: 


6909 


7227 


7230 


7231 


7234 


7249 


7250 


7251 


7260 





T 10KL 


MCR[ 10, 1 141 ] 


1 5 : 34 


27 - JULY - 


1 984 


MICRO 


3 1 ( 254 ; 


KS10 


MICR0C0D 




















Location / Li 




Ucode 


Loc 'n 





1 


2 


3 


4 


5 


• 6 


7 


u 


3600 




7262 


7267 


7268 


727 1 


7278 


7289 


7293 


7294 


u 


36 10 




7296 


7300 


7308 


7309 


73 1 


7317 


7318 


7320 


u 


3620 




7337 


7338 


7360 


736 1 


7362 


7364 


7370 


7371 


u 


3630 




7378 


7383 


7396 


7405 


7408 


7428 


7429 


7430 


u 


3640 




7431 


7432 


7433 


7434 


7437 


7438 


7439 


7449 


u 


3650 




7451 


7454 


7456 


7457 


746 1 


7484 


7498 


7502 


u 


3660 




7505 


7518 


7567 


7620 


7649 


7664 


7665 


7669 


u 


3670 




7676 


7683 


7698 


77 1 4 


77 1 6 


77 1 8 


7720 


7722 


u 


3700 




7724 


7726 


7728 


7730 


7732 


7828 


7835 


7846 


u 


37 10 




7919 


7925 


7927 


7930 


7933 


7940 


7943 


7946 


u 


3720 




7949 


7952 


7957 


7958 


7959 


■ 796 1 


8195 


8197 


1 1 

u 


o / oU 




8198 


8 1 99 


8200 


8209 


8210 


8211 


8213 


8239 


u 


3740 




6094: 


6451 : 


6155: 


6288 : 


5954 : 


8240 


8241 


8245 


u 


3750 




8248 


6452: 


8249 


8260 


5955: 


8262 


8277 


8308 


u 


3760 




8310 


8433 


8459 


8508 


851 1 


8512 


8518 


8520 


u 


3770 




8525 


8527 


8529 


8530 ' 


8531 


8539 


8540 


8208 : 



No errors detected 

End of microcode assembly 

319 pages of listing 

Used 48.24 seconds, 118 pages of core 
Symbol table: 31P 
Text strings: 9P 
Loc'n assignment: 18P 
Cross reference: 53P 




